Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

007374,000002:                                                                                                  ## Copyright:   Public domain.
007375,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
007376,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
007377,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
007378,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
007379,000007:                                                                                                  ## Assembler:   yaYUL
007380,000008:                                                                                                  ## Reference:   pp. 177-204.
007381,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
007382,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
007383,000011:                                                                                                  ## Mod history: 08/07/04 RSB.   Adapted from similar Luminary 131 file.
007384,000012:                                                                                                  ##                              Oddly, the 2 pages of introductory comments
007385,000013:                                                                                                  ##                              aren't present in Luminary.
007386,000014:                                                                                                  ##              2010-08-29 JL   Added missing comment character. 
007387,000015:                                                                                                  ##              2010-10-24 JL   Pseudo-label indentation fixes.
007388,000016:                                                                                                  ##              2017-01-05 RSB  Page numbers now agree with those on the
007389,000017:                                                                                                  ##                              original harcopy, as opposed to the PDF page
007390,000018:                                                                                                  ##                              numbers in 1701.pdf.
007391,000019:                                                                                                  ##              2017-01-14 RSB  Cross-diff'd comment text (not whitespace)
007392,000020:                                                                                                  ##                              vs the already-proofed corresponding Colossus
007393,000021:                                                                                                  ##                              237 and Comanche 55 source-code files
007394,000022:                                                                                                  ##                              and corrected errors found.
007395,000023:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
007396,000024:                                                                                                  ##              2017-03-13 RSB  GOP00FIX -> GOPOOFIX.
007397,000025:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 4-way side-by-side
007398,000026:                                                                                                  ##                              diff of Colossus237/249/Comanche55/Artemis72.
007399,000027:                                                                                                  ##              2017-08-19 MAS  Fixed label errors found transcribing Zerlina 56.
007400,000028:                                                                                                  ##              2021-05-30 ABS  00 -> OO in various symbol names.
007401,000029:                                                                                                  ##                              ROC -> ROO
007402,000030: 
007403,000031:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
007404,000032:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
007405,000033:                                                                                                  ## document read, in part:
007406,000034:                                                                                                  ##
007407,000035:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
007408,000036:                                                                                                  ##      2021111-041.  October 28, 1968.  
007409,000037:                                                                                                  ##
007410,000038:                                                                                                  ##      This AGC program shall also be referred to as
007411,000039:                                                                                                  ##                              Colossus 1A
007412,000040:                                                                                                  ##
007413,000041:                                                                                                  ##      Prepared by
007414,000042:                                                                                                  ##                      Massachusetts Institute of Technology
007415,000043:                                                                                                  ##                      75 Cambridge Parkway
007416,000044:                                                                                                  ##                      Cambridge, Massachusetts
007417,000045:                                                                                                  ##      under NASA contract NAS 9-4065.
007418,000046:                                                                                                  ##
007419,000047:                                                                                                  ## Refer directly to the online document mentioned above for further information.
007420,000048:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
007421,000049:                                                                                                  ##
007422,000050:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
007423,000051:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
007424,000052:                                                                                                  ## source file, and then is proofed to incorporate any changes.
007425,000053: 

Page 177

007427,000055:                                                                                                  #  PROGRAM DESCRIPTION                                           8 APRIL, 1967
007428,000056:                                                                                                  #                                                                SUNDISK REV 120
007429,000057:                                                                                                  #  FUNCTIONAL DESCRIPTION
007430,000058: 
007431,000059:                                                                                                  #  SLAP1         MAN INITIATED FRESH START
007432,000060:                                                                                                  #        1.      EXECUTE STARTSUB
007433,000061:                                                                                                  #        2.      TURN OFF DSKY DISCRETE-LAMPS
007434,000062:                                                                                                  #        3.      CLEAR FAIL REGISTERS, SELF CHECK ERROR COUNTER AND RESTART
007435,000063:                                                                                                  #                COUNTER
007436,000064:                                                                                                  #        4.      EXECUTE DOFSTART
007437,000065: 
007438,000066:                                                                                                  #  DOFSTART      MACHINE INITIATED FRESH START
007439,000067: 
007440,000068:                                                                                                  #        1.      CLEAR SELF-CHECK REGISTERS, MODE REGISTER AND CDUZ REGISTER
007441,000069:                                                                                                  #        2.      CLEAR PHASE TABLE
007442,000070:                                                                                                  #        3.      INITIALIZE IMU FLAGS
007443,000071:                                                                                                  #        4.      INITIALIZE FLAGWORDS
007444,000072:                                                                                                  #        5.      TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
007445,000073: 
007446,000074:                                                                                                  #  GOPROG        HARDWARE RESTART
007447,000075: 
007448,000076:                                                                                                  #        0.      EXECUTE STARTSUB
007449,000077:                                                                                                  #        1.      TRANSFER CONTROL TO DOFSTART IF ANY OF THE FOLLOWING CONDITIONS
007450,000078:                                                                                                  #                EXIST.
007451,000079:                                                                                                  #                A.      RESTART OCCURED DURING EXECUTION OF ERASCHK
007452,000080:                                                                                                  #                B.      BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON
007453,000081:                                                                                                  #                C.      MARK REJECT AND EITHER NAV OR MAIN DSKY ERROR LIGHT RESET
007454,000082:                                                                                                  #                        ARE ON.
007455,000083:                                                                                                  #        2.      SCHEDULE A T5RUPT PROGRAM FOR THE DAP
007456,000084:                                                                                                  #        3.      SET FLAGWRD5 BITS FOR INTWAKE ROUTINE
007457,000085:                                                                                                  #        4.      EXTINGUISH ALL DSKY LAMPS, EXCEPT PROGRAM ALARM, GIMBAL LOCK AND
007458,000086:                                                                                                  #                NO ATT
007459,000087:                                                                                                  #        5.      INITIALIZE IMU FLAGS
007460,000088:                                                                                                  #        6.      IF ENGINE COMMAND IS ON (FLAGWRD5,BIT 7), SET ENGINE ON (CHAN-
007461,000089:                                                                                                  #                NEL 11, BIT 13)
007462,000090:                                                                                                  #        7.      TRANSFER CONTROL TO GOPROG3
007463,000091: 
007464,000092:                                                                                                  #  ENEMA         SOFTWARE RESTART   INITIATED BY MAJOR MODE CHANGE
007465,000093: 
007466,000094:                                                                                                  #        1.      EXECUTE STARTSB2
007467,000095:                                                                                                  #        2.      KILL PROGRAMS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION
007468,000096:                                                                                                  #                ROUTINE
007469,000097:                                                                                                  #        3.      TRANSFER CONTROL TO GOPROG3
007470,000098: 
007471,000099:                                                                                                  #  GOPROG3       SUBROUTINE COMMON TO GOPROG AND ENEMA
007472,000100: 
007473,000101:                                                                                                  #        1.      TEST PHASE TABLES - IF INCORRECT, DISPLAY ALARM 1107 AND
007474,000102:                                                                                                  #                TRANSFER CONTROL TO DOFSTART
007475,000103:                                                                                                  #        2.      DISPLAY MAJOR MODE
007476,000104:                                                                                                  #        3.      IF ANY GROUPS WERE ACTIVE UPON RESTART, TRANSFER CONTROL TO THE

Page 178

007478,000106:                                                                                                  #                RESTARTS SUBROUTINE TO RESCHEDULE PENDING TASKS, LONGCALLS, AND
007479,000107:                                                                                                  #                JOBS (P20 IS RESTARTED VIA FINDVAC)
007480,000108:                                                                                                  #        4.      IF NO GROUPS WERE ACTIVE UPON RESTART, DISPLAY ALARM CODE
007481,000109:                                                                                                  #                1110 (RESTART WITH NO ACTIVE GROUPS).
007482,000110:                                                                                                  #        5.      TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
007483,000111: 
007484,000112:                                                                                                  #  STARTSUB      SUBROUTINE COMMON TO SLAP1 AND GOPROG
007485,000113: 
007486,000114:                                                                                                  #        1.      CLEAR OUTBIT CHANNELS 5 AND 6
007487,000115:                                                                                                  #        2.      INITIALIZE TIME5, TIME4, TIME3
007488,000116:                                                                                                  #        3.      TRANSFER CONTROL TO STARTSB2
007489,000117: 
007490,000118:                                                                                                  #  STARTSB2      SUBROUTINE COMMON TO STARTSUB AND ENEMA
007491,000119: 
007492,000120:                                                                                                  #        1.      INITIALIZE OUTBIT CHANNELS 11,12,13 AND 14
007493,000121:                                                                                                  #        2.      REPLACE ALL TASKS ON WAITLIST WITH ENDTASK
007494,000122:                                                                                                  #        3.      MAKE ALL EXECUTIVE REGISTERS AVAILABLE
007495,000123:                                                                                                  #        4.      MAKE ALL VAC AREAS AVAILABLE
007496,000124:                                                                                                  #        5.      CLEAR DSKY REGISTERS
007497,000125:                                                                                                  #        6.      ZERO NUMEROUS SWITCHES
007498,000126:                                                                                                  #        7.      INITIALIZE OPTICS FLAGS
007499,000127:                                                                                                  #        8.      INITIALIZE PIPA AND TELEMETRY FAIL FLAGS
007500,000128:                                                                                                  #        9.      INITIALIZE DOWN TELEMETRY
007501,000129: 
007502,000130:                                                                                                  #  INPUT/OUTPUT INITIALIZATION
007503,000131: 
007504,000132:                                                                                                  #        A.      CALLING SEQUENCE
007505,000133: 
007506,000134:                                                                                                  #                SLAP1 -         TC POSTJUMP     OR      VERB 36,ENTER
007507,000135:                                                                                                  #                                CADR SLAP1
007508,000136: 
007509,000137:                                                                                                  #                ENEMA -         TC POSTJUMP     *** DO NOT CALL ENEMA WITHOUT ***
007510,000138:                                                                                                  #                                CADR ENEMA      ***  CONSULTING POOH PEOPLE   ***
007511,000139: 
007512,000140:                                                                                                  #        B.      OUTPUT
007513,000141: 
007514,000142:                                                                                                  #                ERASABLE MEMORY INITIALIZATION
007515,000143: 
007516,000144:                                                                                                  #  PROGRAM ANALYSIS
007517,000145: 
007518,000146:                                                                                                  #        A.      SUBROUTINES CALLED
007519,000147: 
007520,000148:                                                                                                  #                MR.KLEAN,WAITLIST,DSPMM,ALARM,RESTARTS,FINDVAC
007521,000149: 
007522,000150:                                                                                                  #        B.      ALARMS
007523,000151: 
007524,000152:                                                                                                  #                1107    PHASE TABLE ERROR
007525,000153:                                                                                                  #                1110    RESTART WITH NO ACTIVE GROUPS
007526,000154: 

Page 179

007528,000156: 10,2203                                           BANK     10                                    
007529,000157: 05,2000                                           SETLOC   FRANDRES                              
007530,000158: 05,2000                                           BANK                                           
007531,000159: 
007532,000160: 05,2347  E3,1400                                  EBANK=   LST1                                  
007533,000161: 
007534,000162: 05,2347                                           COUNT    05/START                              
007535,000163: 05,2347           00004        SLAP1              INHINT                                         #  FRESH START.  COMES HERE FROM PINBALL.
007536,000164: 05,2350           02767                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
007537,000165: 
007538,000166: 05,2351           12356        STARTSW            TCF      SKIPSIM                               #  PATCH....TCF STARTSIM...FOR SIMULATION
007539,000167: 05,2352           34675        STARTSIM           CAF      BIT14                                 
007540,000168: 05,2353           05042                           TC       FINDVAC                               
007541,000169: 05,2354           77777        SIM2CADR           OCT      77777                                 #  PATCH 2CADR (AND EBANK DESIGNATION) OF
007542,000170: 05,2355           77777                           OCT      77777                                 #  SIMULATION START ADDRESS.
007543,000171: 
007544,000172: 05,2356           31036        SKIPSIM            CA       DSPTAB     +11D                       
007545,000173: 05,2357           74726                           MASK     BITS4&6                               
007546,000174: 05,2360           64674                           AD       BIT15                                 
007547,000175: 05,2361           55036                           TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
007548,000176: 
007549,000177: 05,2362           34714                           CA       ZERO                                  #  SAME STORY ON ZEROING FAILREG.
007550,000178: 05,2363           55365                           TS       ERCOUNT                               
007551,000179: 05,2364           54375                           TS       FAILREG                               
007552,000180: 05,2365           54376                           TS       FAILREG    +1                         
007553,000181: 05,2366           54377                           TS       FAILREG    +2                         
007554,000182: 05,2367           55154                           TS       REDOCTR                               
007555,000183: 
007556,000184: 05,2370           44603                           CS       PRIO12                                
007557,000185: 05,2371           55302                           TS       DSRUPTSW                              
007558,000186: 
007559,000187: 05,2372           34714        DOFSTART           CAF      ZERO                                  #  DO A FRESH START.
007560,000188: 05,2373           55360                           TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
007561,000189: 05,2374           55362                           TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
007562,000190: 05,2375           55501                           TS       UPSVFLAG                              #  UPDATE STATE VECTOR REQUEST FLAGWORD
007563,000191: 05,2376           00006                           EXTEND                                         
007564,000192: 05,2377           01005                           WRITE    CHAN5                                 #  TURN OFF RCS JETS
007565,000193: 05,2400           00006                           EXTEND                                         
007566,000194: 05,2401           01006                           WRITE    CHAN6                                 #  TURN OFF RCS JETS
007567,000195: 05,2402           00006                           EXTEND                                         
007568,000196: 05,2403           01011                           WRITE    DSALMOUT                              #  ZERO CHANNEL 11
007569,000197: 05,2404           00006                           EXTEND                                         
007570,000198: 05,2405           01012                           WRITE    CHAN12                                #  ZERO CHANNEL 12
007571,000199: 05,2406           00006                           EXTEND                                         
007572,000200: 05,2407           01013                           WRITE    CHAN13                                #  ZERO CHANNEL 13
007573,000201: 05,2410           00006                           EXTEND                                         
007574,000202: 05,2411           01014                           WRITE    CHAN14                                #  ZERO CHANNEL 14
007575,000203: 05,2412           55316                           TS       WTOPTION                              
007576,000204: 05,2413           54332                           TS       DNLSTCOD                              

Page 180

007578,000206: 05,2414           54371                           TS       NVSAVE                                
007579,000207: 05,2415           55071                           TS       EBANKTEM                              
007580,000208: 05,2416           55130                           TS       RATEINDX                              
007581,000209: 05,2417           55126                           TS       TRKMKCNT                              
007582,000210: 05,2420           55125                           TS       VHFCNT                                
007583,000211: 05,2421           55044                           TS       EXTVBACT                              
007584,000212: 
007585,000213: 05,2422           41036                           CS       DSPTAB     +11D                       
007586,000214: 05,2423           74726                           MASK     BITS4&6                               
007587,000215: 05,2424           10000                           CCS      A                                     
007588,000216: 05,2425           02431                           TC       +4                                    
007589,000217: 05,2426           34726                           CA       BITS4&6                               
007590,000218: 05,2427           00006                           EXTEND                                         #  THE IMU WAS IN COARSE ALIGN IN GIMBAL
007591,000219: 05,2430           05012                           WOR      CHAN12                                #  LOCK, SO PUT IT BACK INTO COARSE ALIGN.
007592,000220: 05,2431           02474                           TC       MR.KLEAN                              
007593,000221: 
007594,000222: 05,2432           44714                           CS       ZERO                                  
007595,000223: 05,2433           55011                           TS       MODREG                                
007596,000224: 
007597,000225: 05,2434           34371                           CAF      PRIO30                                
007598,000226: 05,2435           54366                           TS       RESTREG                               
007599,000227: 
007600,000228: 05,2436           33167                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
007601,000229: 05,2437           55320                           TS       IMODES30                              
007602,000230: 
007603,000231: 05,2440           37716                           CAF      NEGONE                                
007604,000232: 05,2441           55303                           TS       OPTIND                                #  KILL COARSE OPTICS
007605,000233: 
007606,000234: 05,2442           33172                           CAF      OPTINITF                              
007607,000235: 05,2443           55331                           TS       OPTMODES                              
007608,000236: 
007609,000237: 05,2444           34763                           CAF      IM33INIT                              
007610,000238: 05,2445           55321                           TS       IMODES33                              
007611,000239: 
007612,000240: 05,2446           00006                           EXTEND                                         #  LET T5 IDLE.
007613,000241: 05,2447           33146                           DCA      T5IDLER                               
007614,000242: 05,2450           53313                           DXCH     T5LOC                                 
007615,000243: 
007616,000244: 05,2451           00006                           EXTEND                                         #  INITIALIZE SWITCHES ONLY ON FRESH START.
007617,000245: 05,2452           33175                           DCA      SWINIT                                
007618,000246: 05,2453           52075                           DXCH     STATE                                 
007619,000247: 05,2454           00006                           EXTEND                                         
007620,000248: 05,2455           33177                           DCA      SWINIT     +2                         
007621,000249: 05,2456           52077                           DXCH     STATE      +2                         
007622,000250: 05,2457           00006                           EXTEND                                         
007623,000251: 05,2460           33201                           DCA      SWINIT     +4                         
007624,000252: 05,2461           52101                           DXCH     STATE      +4                         
007625,000253: 05,2462           00006                           EXTEND                                         
007626,000254: 05,2463           33203                           DCA      SWINIT     +6                         
007627,000255: 05,2464           52103                           DXCH     STATE      +6                         

Page 181

007629,000257: 05,2465           00006                           EXTEND                                         
007630,000258: 05,2466           33205                           DCA      SWINIT     +8D                        
007631,000259: 05,2467           52105                           DXCH     STATE      +8D                        
007632,000260: 
007633,000261: 05,2470           33206                           CA       SWINIT     +10D                       
007634,000262: 05,2471           54106                           TS       STATE      +10D                       
007635,000263: 
007636,000264: 05,2472           04574        ENDRSTRT           TC       POSTJUMP                              
007637,000265: 05,2473           03225                           CADR     DUMMYJOB   +2                         #  DOES A RELINT.        (IN A SWITCHED BANK.)
007638,000266: 
007639,000267: 05,2474           00004        MR.KLEAN           INHINT                                         
007640,000268: 05,2475           00006                           EXTEND                                         
007641,000269: 05,2476           34714                           DCA      NEG0                                  
007642,000270: 05,2477           52755                           DXCH     -PHASE2                               
007643,000271: 05,2500           00006        POOKLEAN           EXTEND                                         
007644,000272: 05,2501           34714                           DCA      NEG0                                  
007645,000273: 05,2502           52761                           DXCH     -PHASE4                               
007646,000274: 05,2503           00006                           EXTEND                                         
007647,000275: 05,2504           34714                           DCA      NEG0                                  
007648,000276: 05,2505           52753                           DXCH     -PHASE1                               
007649,000277: 05,2506           00006        V37KLEAN           EXTEND                                         
007650,000278: 05,2507           34714                           DCA      NEG0                                  
007651,000279: 05,2510           52757                           DXCH     -PHASE3                               
007652,000280: 05,2511           00006                           EXTEND                                         
007653,000281: 05,2512           34714                           DCA      NEG0                                  
007654,000282: 05,2513           52763                           DXCH     -PHASE5                               
007655,000283: 05,2514           00006                           EXTEND                                         
007656,000284: 05,2515           34714                           DCA      NEG0                                  
007657,000285: 05,2516           52765                           DXCH     -PHASE6                               
007658,000286: 05,2517           00002                           TC       Q                                     
007659,000287: 

Page 182

007661,000289:                                                                                                  #  COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
007662,000290: 
007663,000291: 05,2520           25154        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
007664,000292: 
007665,000293: 05,2521           22002                           LXCH     Q                                     
007666,000294: 05,2522           00006                           EXTEND                                         
007667,000295: 05,2523           04007                           ROR      SUPERBNK                              
007668,000296: 05,2524           53433                           DXCH     RSBBQ                                 
007669,000297: 05,2525           02767                           TC       STARTSUB                              
007670,000298: 
007671,000299:                                                                                                  #  ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
007672,000300:                                                                                                  #  AND X+1 INTO SKEEP5 AND SKEEP6.  IT ALSO STORES X INTO SKEEP7 AND
007673,000301:                                                                                                  #  ERESTORE.  IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
007674,000302:                                                                                                  #  EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT.  OTHERWISE
007675,000303:                                                                                                  #  C(ERESTORE) SHOULD EQUAL +0.
007676,000304: 
007677,000305: 05,2526           34364                           CAF      HI5                                   
007678,000306: 05,2527           71360                           MASK     ERESTORE                              
007679,000307: 05,2530           00006                           EXTEND                                         
007680,000308: 05,2531           12533                           BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
007681,000309: 05,2532           12372                           TCF      DOFSTART                              #  DOUBT E MEMORY AND DO A FRESH START.
007682,000310: 05,2533           41360                           CS       ERESTORE                              
007683,000311: 05,2534           00006                           EXTEND                                         
007684,000312: 05,2535           12552                           BZF      DORSTART                              #  = +0 CONTINUE WITH RESTART.
007685,000313: 05,2536           61377                           AD       SKEEP7                                
007686,000314: 05,2537           00006                           EXTEND                                         
007687,000315: 05,2540           12542                           BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
007688,000316: 05,2541           12372                           TCF      DOFSTART                              #  NOT = SKEEP7, DOUBE E MEM,DO FRESH START.
007689,000317: 05,2542           31374                           CA       SKEEP4                                
007690,000318: 05,2543           54003                           TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
007691,000319: 05,2544           00006                           EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
007692,000320: 05,2545           31376                           DCA      SKEEP5                                
007693,000321: 05,2546           51377                           INDEX    SKEEP7                                
007694,000322: 05,2547           52001                           DXCH     0000                                  #  E MEMORY RESTORED.
007695,000323: 05,2550           34714                           CA       ZERO                                  
007696,000324: 05,2551           55360                           TS       ERESTORE                              
007697,000325: 05,2552           34674        DORSTART           CA       BIT15                                 #  TEST OSC FAIL BIT TO SEE IF WE HAVE
007698,000326: 05,2553           00006                           EXTEND                                         #  HAD A POWER TRANSIENT.  IF SO, ATTEMPT
007699,000327: 05,2554           03033                           WAND     CHAN33                                #  A RESTART.  IF NOT, CHACK THE PRESENT
007700,000328: 05,2555           00006                           EXTEND                                         #  STATE OF AGC WARNING.
007701,000329: 05,2556           12564                           BZF      BUTTONS                               
007702,000330: 
007703,000331: 05,2557           34675                           CA       BIT14                                 #  IF AGC WARNING ON (BIT = 0), DO A FRESH
007704,000332: 05,2560           00006                           EXTEND                                         #  START ON THE ASSUMPTION THAT WE'RE IN A
007705,000333: 05,2561           02033                           RAND     CHAN33                                #  RESTART LOOP.
007706,000334: 05,2562           00006                           EXTEND                                         
007707,000335: 05,2563           12372                           BZF      DOFSTART                              
007708,000336: 
007709,000337: 05,2564           02744        BUTTONS            TC       LIGHTSET                              #  EXIT
007710,000338:                                                                                                  #  MARK REJECT DEPRESSED SIMULTANEOUSLY

Page 183

007712,000340: 05,2565           30102        ELRSKIP            CA       FLAGWRD6                              #  RESTART AUTOPILOTS
007713,000341: 05,2566           00006                           EXTEND                                         
007714,000342: 05,2567           74710                           MP       BIT3                                  #  BITS 15,14    00      T5IDLOC
007715,000343: 05,2570           76211                           MASK     SIX                                   #                01      REDORCS
007716,000344: 05,2571           00006                           EXTEND                                         #                10      REDOTVC
007717,000345: 05,2572           50000                           INDEX    A                                     #                11      REDOSAT
007718,000346: 05,2573           33146                           DCA      T5IDLER                               
007719,000347: 05,2574           53313                           DXCH     T5LOC                                 
007720,000348: 
007721,000349: 05,2575           44675                           CS       INTFLBIT                              
007722,000350: 05,2576           70106                           MASK     RASFLAG                               
007723,000351: 05,2577           54106                           TS       RASFLAG                               
007724,000352: 
007725,000353: 05,2600           31331                           CA       OPTMODES                              
007726,000354: 05,2601           73173                           MASK     OPTINITR                              
007727,000355: 05,2602           64704                           AD       BIT7                                  
007728,000356: 05,2603           55331                           TS       OPTMODES                              
007729,000357: 
007730,000358: 05,2604           34705                           CAF      BIT6                                  
007731,000359: 05,2605           71321                           MASK     IMODES33                              
007732,000360: 05,2606           64763                           AD       IM33INIT                              
007733,000361: 05,2607           55321                           TS       IMODES33                              
007734,000362: 
007735,000363: 05,2610           33171                           CA       9,6,4                                 #  LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
007736,000364: 05,2611           71036                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
007737,000365: 05,2612           64674                           AD       BIT15                                 
007738,000366: 05,2613           57036                           XCH      DSPTAB     +11D                       
007739,000367: 05,2614           74707                           MASK     BIT4                                  #  IF NO ATT LAMP WAS ON, LEAVE ISS IN
007740,000368: 05,2615           00006                           EXTEND                                         #  COURSE ALIGN
007741,000369: 05,2616           12625                           BZF      NOCOARSE                              
007742,000370: 05,2617           04633                           TC       IBNKCALL                              #  IF NO ATT LAMP ON, RETURN ISS TO
007743,000371: 05,2620           16746                           CADR     SETCOARS                              #        COARSE ALIGN
007744,000372: 
007745,000373: 05,2621           36211                           CAF      SIX                                   
007746,000374: 05,2622           05140                           TC       WAITLIST                              
007747,000375: 05,2623  E3,1474                                  EBANK=   CDUIND                                
007748,000376: 05,2623           02742 16063                     2CADR    CA+ECE                                
007749,000377: 
007750,000378: 05,2625           33155        NOCOARSE           CAF      IFAILINH                              #  LEAVE FAILURE INHIBITS INTACT ON
007751,000379: 05,2626           71320                           MASK     IMODES30                              #        HARDWARE RESTART.  RESET ALL
007752,000380: 05,2627           63170                           AD       IM30INIR                              #        FAILURE CODES.
007753,000381: 05,2630           55320                           TS       IMODES30                              
007754,000382: 
007755,000383: 05,2631           40101                           CS       FLAGWRD5                              
007756,000384: 05,2632           74704                           MASK     BIT7                                  
007757,000385: 05,2633           10000                           CCS      A                                     
007758,000386: 05,2634           12657                           TCF      GOPROG3                               
007759,000387: 05,2635           34676                           CAF      BIT13                                 
007760,000388: 05,2636           00006                           EXTEND                                         
007761,000389: 05,2637           05011                           WOR      DSALMOUT                              #  TURN ENGINE ON

Page 184

007763,000391: 05,2640           12657                           TCF      GOPROG3                               
007764,000392: 
007765,000393: 05,2641           00004        ENEMA              INHINT                                         
007766,000394: 05,2642           02744                           TC       LIGHTSET                              #  EXIT TO DOFSTART IF ERROR RESET AND
007767,000395: 05,2643           02777                           TC       STARTSB2                              #  MARK REJECT DEPRESSED SIMULTANEOUSLY
007768,000396: 05,2644           43162                           CS       INTMASK                               #  RESET INTEGRATION BITS
007769,000397: 05,2645           70106                           MASK     RASFLAG                               
007770,000398: 05,2646           54106                           TS       RASFLAG                               
007771,000399: 
007772,000400: 05,2647           40102                           CS       FLAGWRD6                              #  IS TVC ON
007773,000401: 05,2650           74105                           MASK     OCT60000                              
007774,000402: 05,2651           00006                           EXTEND                                         
007775,000403: 05,2652           62657                           BZMF     GOPROG3                               #  NO
007776,000404: 
007777,000405: 05,2653           34731                           CAF      .5SEC                                 #  YES, CALL TVCEXEC TASK WHICH WAS KILLED
007778,000406: 05,2654           05140                           TC       WAITLIST                              #        IN STARTSB2.
007779,000407: 05,2655  E6,1742                                  EBANK=   BZERO                                 
007780,000408: 05,2655           02660 34066                     2CADR    TVCEXEC                               
007781,000409: 
007782,000410: 05,2657           34715        GOPROG3            CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
007783,000411: 05,2660           54161        PCLOOP             TS       MPAC       +5                         
007784,000412: 05,2661           60000                           DOUBLE                                         
007785,000413: 05,2662           00006                           EXTEND                                         
007786,000414: 05,2663           50000                           INDEX    A                                     
007787,000415: 05,2664           30753                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
007788,000416: 05,2665           00006                           EXTEND                                         
007789,000417: 05,2666           06001                           RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
007790,000418: 05,2667           10000                           CCS      A                                     
007791,000419: 05,2670           12737                           TCF      PTBAD                                 #  RESTART FAILURE.
007792,000420: 05,2671           12737                           TCF      PTBAD                                 
007793,000421: 05,2672           12737                           TCF      PTBAD                                 
007794,000422: 05,2673           10161                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
007795,000423: 05,2674           12660                           TCF      PCLOOP                                
007796,000424: 
007797,000425: 05,2675           54162                           TS       MPAC       +6                         #  SET TO +0.
007798,000426: 05,2676           05247                           TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
007799,000427: 
007800,000428: 05,2677           00004                           INHINT                                         #  RELINT DONE IN MMDSPLAY
007801,000429: 
007802,000430: 05,2700           30102                           CAE      FLAGWRD6                              #  IS RCS DAP RUNNING (BITS 15 14 OF
007803,000431: 05,2701           74105                           MASK     OCT60000                              #  FLAGWRD6 = 01)
007804,000432: 05,2702           00006                           EXTEND                                         #  YES, DO STOPRATE
007805,000433: 05,2703           62712                           BZMF     NXTRST     -1                         #  NO, SKIP TO NXTRST -1
007806,000434: 05,2704           34752                           CAF      EBANK6                                #  STOPRATE IS DONE IN EBANK 6
007807,000435: 05,2705           54003                           TS       EBANK                                 
007808,000436: 05,2706           04633                           TC       IBNKCALL                              #  ZERO DELCDUS, WBODYS, AND BIASES THUS
007809,000437: 05,2707           45245                           CADR     STOPRATE                              #  STOPING AUTOMATIC MANEUVERING
007810,000438: 05,2710           34744                           CAF      EBANK3                                
007811,000439: 05,2711           54003                           TS       EBANK                                 
007812,000440: 05,2712           34715                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.

Page 185

007814,000442: 05,2713           54161        NXTRST             TS       MPAC       +5                         
007815,000443: 05,2714           60000                           DOUBLE                                         
007816,000444: 05,2715           50000                           INDEX    A                                     
007817,000445: 05,2716           10753                           CCS      PHASE1                                
007818,000446: 05,2717           12721                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
007819,000447: 05,2720           12726                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
007820,000448: 
007821,000449: 05,2721           54154        PACTIVE            TS       MPAC                                  
007822,000450: 05,2722           24154                           INCR     MPAC                                  #  ABS OF PHASE.
007823,000451: 05,2723           24162                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
007824,000452: 05,2724           32743                           CA       RACTCADR                              
007825,000453: 05,2725           04561                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
007826,000454: 
007827,000455: 05,2726           10161        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
007828,000456: 05,2727           12713                           TCF      NXTRST                                
007829,000457: 
007830,000458: 05,2730           10162                           CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
007831,000459: 05,2731           12472                           TCF      ENDRSTRT                              #  PHASE ACTIVE
007832,000460: 05,2732           34674                           CAF      BIT15                                 #  IS MODE -0
007833,000461: 05,2733           71011                           MASK     MODREG                                
007834,000462: 05,2734           00006                           EXTEND                                         
007835,000463: 05,2735           14106                           BZF      GOTOPOOH                              #  NO
007836,000464: 05,2736           12472                           TCF      ENDRSTRT                              #  YES
007837,000465: 05,2737           05537        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
007838,000466: 05,2740           01107                           OCT      1107                                  
007839,000467: 
007840,000468: 05,2741           12372                           TCF      DOFSTART                              #  IN R2).
007841,000469: 
007842,000470:                                                                                                  #  ******** ****** ******
007843,000471: 
007844,000472:                                                                                                  #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
007845,000473: 
007846,000474: 05,2742  05,2641               GOPROG2            EQUALS   ENEMA                                 
007847,000475: 05,2742     4676               OCT10000           =        BIT13                                 
007848,000476: 05,2742     4371               OCT30000           =        PRIO30                                
007849,000477: 05,2742           07777        OCT7777            OCT      7777                                  
007850,000478: 05,2743           03520        RACTCADR           CADR     RESTARTS                              
007851,000479: 
007852,000480: 05,2744           34704        LIGHTSET           CAF      BIT7                                  #  DOFSTART IF MARK REJECT AND EITHER
007853,000481: 05,2745           00006                           EXTEND                                         #  ERROR LIGHT RESET BUTTONS ARE DEPRESSED
007854,000482: 05,2746           02016                           RAND     NAVKEYIN                              
007855,000483: 05,2747           00006                           EXTEND                                         
007856,000484: 05,2750           12764                           BZF      NONAVKEY                              #  NO MARK REJECT
007857,000485: 05,2751           34362                           CAF      OCT37                                 
007858,000486: 05,2752           00006                           EXTEND                                         
007859,000487: 05,2753           02016                           RAND     NAVKEYIN                              #  NAV DSKY KEYCODES,MARK,MARK REJECT
007860,000488: 05,2754           63166                           AD       -ELR                                  
007861,000489: 05,2755           00006                           EXTEND                                         
007862,000490: 05,2756           12765                           BZF      NONAVKEY   +1                         
007863,000491: 05,2757           00006                           EXTEND                                         
007864,000492: 05,2760           00015                           READ     MNKEYIN                               #  MAIN DSKY KEYCODES

Page 186

007866,000494: 05,2761           63166                           AD       -ELR                                  
007867,000495: 05,2762           00006                           EXTEND                                         
007868,000496: 05,2763           12765                           BZF      +2                                    
007869,000497: 
007870,000498: 05,2764           00002        NONAVKEY           TC       Q                                     
007871,000499: 
007872,000500: 05,2765           02767                           TC       STARTSUB                              
007873,000501: 05,2766           12372                           TCF      DOFSTART                              
007874,000502: 05,2767           33156        STARTSUB           CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
007875,000503: 05,2770           54335                           TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE
007876,000504:                                                                                                  #  INTERRUPTED AND START SENDING FROM THE
007877,000505:                                                                                                  #  BEGINNING OF THE CURRENT DOWNLIST.
007878,000506: 05,2771           34672                           CAF      POSMAX                                
007879,000507: 05,2772           54026                           TS       TIME3                                 #  37777 TO TIME3.
007880,000508: 05,2773           67715                           AD       MINUS2                                
007881,000509: 05,2774           54027                           TS       TIME4                                 #  37775 TO TIME4.
007882,000510: 05,2775           67716                           AD       NEGONE                                
007883,000511: 05,2776           54030                           TS       TIME5                                 #  37774 TO TIME5.
007884,000512: 
007885,000513: 05,2777           33163        STARTSB2           CAF      OCT77603                              #  TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
007886,000514: 05,3000           00006                           EXTEND                                         #  FLASH, OP. ERROR, LEAVE OTHERS UNCHANGED
007887,000515: 05,3001           03011                           WAND     DSALMOUT                              
007888,000516: 
007889,000517: 05,3002           33164                           CAF      OCT74777                              #  TURN OFF TEST ALARMS, STANDBY ENABLE.
007890,000518: 05,3003           00006                           EXTEND                                         
007891,000519: 05,3004           03013                           WAND     CHAN13                                
007892,000520: 05,3005           44675                           CS       BIT14                                 #  CLEAR R21MARK
007893,000521: 05,3006           70076                           MASK     FLAGWRD2                              #  R21 SETS R21MARK AND RESETS IF IF R21
007894,000522: 05,3007           54076                           TS       FLAGWRD2                              #  IS TERMINATED NORMALLY
007895,000523: 05,3010  E3,1400                                  EBANK=   LST1                                  
007896,000524: 05,3010           33165                           CAF      STARTEB                               
007897,000525: 05,3011           54003                           TS       EBANK                                 #  SET FOR E3
007898,000526: 
007899,000527: 05,3012           34673                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
007900,000528: 05,3013           55407                           TS       LST1       +7                         
007901,000529: 05,3014           55406                           TS       LST1       +6                         
007902,000530: 05,3015           55405                           TS       LST1       +5                         
007903,000531: 05,3016           55404                           TS       LST1       +4                         
007904,000532: 05,3017           55403                           TS       LST1       +3                         
007905,000533: 05,3020           55402                           TS       LST1       +2                         
007906,000534: 05,3021           55401                           TS       LST1       +1                         
007907,000535: 05,3022           55400                           TS       LST1                                  
007908,000536: 
007909,000537: 05,3023           45173                           CS       ENDTASK                               
007910,000538: 05,3024           55410                           TS       LST2                                  
007911,000539: 05,3025           55412                           TS       LST2       +2                         
007912,000540: 05,3026           55414                           TS       LST2       +4                         
007913,000541: 05,3027           55416                           TS       LST2       +6                         
007914,000542: 05,3030           55420                           TS       LST2       +8D                        

Page 187

007916,000544: 05,3031           55422                           TS       LST2       +10D                       
007917,000545: 05,3032           55424                           TS       LST2       +12D                       
007918,000546: 05,3033           55426                           TS       LST2       +14D                       
007919,000547: 05,3034           55430                           TS       LST2       +16D                       
007920,000548: 05,3035           45174                           CS       ENDTASK    +1                         
007921,000549: 05,3036           55411                           TS       LST2       +1                         
007922,000550: 05,3037           55413                           TS       LST2       +3                         
007923,000551: 05,3040           55415                           TS       LST2       +5                         
007924,000552: 05,3041           55417                           TS       LST2       +7                         
007925,000553: 05,3042           55421                           TS       LST2       +9D                        
007926,000554: 05,3043           55423                           TS       LST2       +11D                       
007927,000555: 05,3044           55425                           TS       LST2       +13D                       
007928,000556: 05,3045           55427                           TS       LST2       +15D                       
007929,000557: 05,3046           55431                           TS       LST2       +17D                       
007930,000558: 
007931,000559: 05,3047           44714                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
007932,000560: 05,3050           54167                           TS       PRIORITY                              #  AVAILABLE.
007933,000561: 05,3051           54203                           TS       PRIORITY   +12D                       
007934,000562: 05,3052           54217                           TS       PRIORITY   +24D                       
007935,000563: 05,3053           54233                           TS       PRIORITY   +36D                       
007936,000564: 05,3054           54247                           TS       PRIORITY   +48D                       
007937,000565: 05,3055           54263                           TS       PRIORITY   +60D                       
007938,000566: 05,3056           54277                           TS       PRIORITY   +72D                       
007939,000567: 
007940,000568: 05,3057           55302                           TS       DSRUPTSW                              
007941,000569: 05,3060           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
007942,000570: 
007943,000571: 05,3061           33160                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
007944,000572: 05,3062           54400                           TS       VAC1USE                               
007945,000573: 05,3063           63161                           AD       LTHVACA                               
007946,000574: 05,3064           54454                           TS       VAC2USE                               
007947,000575: 05,3065           63161                           AD       LTHVACA                               
007948,000576: 05,3066           54530                           TS       VAC3USE                               
007949,000577: 05,3067           63161                           AD       LTHVACA                               
007950,000578: 05,3070           54604                           TS       VAC4USE                               
007951,000579: 05,3071           63161                           AD       LTHVACA                               
007952,000580: 05,3072           54660                           TS       VAC5USE                               
007953,000581: 
007954,000582: 05,3073           34377                           CAF      TEN                                   #  BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN,
007955,000583:                                                                                                  #  R1,R2,R3)
007956,000584: 05,3074           54154        DSPOFF             TS       MPAC                                  
007957,000585: 05,3075           44677                           CS       BIT12                                 
007958,000586: 05,3076           50154                           INDEX    MPAC                                  
007959,000587: 05,3077           55023                           TS       DSPTAB                                
007960,000588: 05,3100           10154                           CCS      MPAC                                  
007961,000589: 05,3101           13074                           TCF      DSPOFF                                
007962,000590: 
007963,000591: 05,3102           55141                           TS       DELAYLOC                              
007964,000592: 05,3103           55142                           TS       DELAYLOC   +1                         
007965,000593: 05,3104           55143                           TS       DELAYLOC   +2                         

Page 188

007967,000595: 05,3105           55144                           TS       DELAYLOC   +3                         
007968,000596: 05,3106           55073                           TS       R1SAVE                                
007969,000597: 05,3107           54045                           TS       INLINK                                
007970,000598: 05,3110           54776                           TS       DSPCNT                                
007971,000599: 05,3111           55042                           TS       CADRSTOR                              
007972,000600: 05,3112           55013                           TS       REQRET                                
007973,000601: 05,3113           55015                           TS       CLPASS                                
007974,000602: 05,3114           55012                           TS       DSPLOCK                               
007975,000603: 05,3115           55020                           TS       MONSAVE                               #  KILL MONITOR
007976,000604: 05,3116           55021                           TS       MONSAVE1                              
007977,000605: 05,3117           55001                           TS       VERBREG                               
007978,000606: 05,3120           55002                           TS       NOUNREG                               
007979,000607: 05,3121           55043                           TS       DSPLIST                               
007980,000608: 05,3122           55330                           TS       MARKSTAT                              
007981,000609: 05,3123           55322                           TS       IMUCADR                               
007982,000610: 05,3124           55323                           TS       OPTCADR                               
007983,000611: 05,3125           55324                           TS       RADCADR                               
007984,000612: 05,3126           55325                           TS       ATTCADR                               
007985,000613: 05,3127           55304                           TS       LGYRO                                 
007986,000614: 05,3130           54100                           TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
007987,000615: 05,3131           34717                           CAF      NOUTCON                               
007988,000616: 05,3132           55016                           TS       NOUT                                  
007989,000617: 
007990,000618: 05,3133           34675                           CAF      BIT14                                 
007991,000619: 05,3134           71044                           MASK     EXTVBACT                              
007992,000620: 05,3135           55044                           TS       EXTVBACT                              
007993,000621: 05,3136           33157                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
007994,000622: 05,3137           55361                           TS       SELFRET                               
007995,000623: 
007996,000624: 05,3140           44374                           CS       VD1                                   
007997,000625: 05,3141           54777                           TS       DSPCOUNT                              
007998,000626: 
007999,000627: 05,3142           00002                           TC       Q                                     
008000,000628: 
008001,000629: 05,3143           30001        T5IDLOC            CA       L                                     #  T5RUPT COMES HERE EVERY 163.84 SECS
008002,000630: 05,3144           15225                           TCF      NOQRSM     +1                         #  WHEN NOBODY IS USING IT.
008003,000631: 
008004,000632: 05,3145  E6,1672                                  EBANK=   OGANOW                                
008005,000633: 05,3145           03143 12066  T5IDLER            2CADR    T5IDLOC                               
008006,000634: 
008007,000635: 05,3147  E6,1672                                  EBANK=   OGANOW                                
008008,000636: 05,3147           02071 42066                     2CADR    REDORCS                               
008009,000637: 
008010,000638: 05,3151  E6,1672                                  EBANK=   OGANOW                                
008011,000639: 05,3151           03165 34066                     2CADR    REDOTVC                               
008012,000640: 
008013,000641: 05,3153  E6,1672                                  EBANK=   OGANOW                                
008014,000642: 05,3153           02765 46066                     2CADR    REDOSAT                               
008015,000643: 
008016,000644: 05,3155           00435        IFAILINH           OCT      435                                   
008017,000645: 05,3156           03351        LDNPHAS1           GENADR   DNPHASE1                              

Page 189

008019,000647: 05,3157           03334        LESCHK             GENADR   SELFCHK                               
008020,000648: 05,3160           00400        VAC1ADRC           ADRES    VAC1USE                               
008021,000649: 05,3161           00054        LTHVACA            DEC      44         B-14                       
008022,000650: 
008023,000651: 05,3162           20100        INTMASK            OCT      20100                                 
008024,000652: 05,3163           77603        OCT77603           OCT      77603                                 
008025,000653: 05,3164           74777        OCT74777           OCT      74777                                 
008026,000654: 05,3165           01400        STARTEB            ECADR    LST1                                  
008027,000655: 05,3166     4715               NUMGRPS            EQUALS   FIVE                                  
008028,000656: 05,3166           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
008029,000657: 05,3167           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
008030,000658: 05,3170           37000        IM30INIR           OCT      37000                                 
008031,000659: 05,3171     4763               IM33INIT           =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
008032,000660: 05,3171           00450        9,6,4              OCT      450                                   
008033,000661: 05,3172           00130        OPTINITF           OCT      130                                   
008034,000662: 05,3173           00430        OPTINITR           OCT      430                                   
008035,000663: 05,3174           00000        SWINIT             OCT      0                                     
008036,000664: 05,3175           00000                           OCT      0                                     
008037,000665: 05,3176           00000                           OCT      0                                     
008038,000666: 05,3177           00000                           OCT      0                                     
008039,000667: 
008040,000668: 05,3200           00000                           OCT      0                                     
008041,000669: 05,3201           00200                           OCT      00200                                 
008042,000670: 05,3202           00000                           OCT      0                                     
008043,000671: 05,3203           00100                           OCT      00100                                 
008044,000672: 
008045,000673: 05,3204           00000                           OCT      0                                     
008046,000674: 05,3205           00000                           OCT      0                                     
008047,000675: 05,3206           00000                           OCT      0                                     

Page 190

008049,000677:                                                                                                  #  PROGRAM NAME          GOTOPOOH                ASSEMBLY SUNDISK
008050,000678:                                                                                                  #  LOG SECTION           FRESH START AND RESTART
008051,000679: 
008052,000680:                                                                                                  #  FUNCTIONAL DESCRIPTION
008053,000681: 
008054,000682:                                                                                                  #        1.      DISPLAY MAJOR MODE NUMBER 00 IN DSKY REGISTER R1 AND R3.  FLASH V50N07 ON DSKY.  (M M CHANGE REQUEST)
008055,000683:                                                                                                  #        2.      PERMIT A CURRENT PENDING REQUEST (FLASH ON DSKY) TO BE REPLACED (WITHOUT AN ABORT) BY THE MAJOR MODE
008056,000684:                                                                                                  #                CHANGE REQUEST
008057,000685: 
008058,000686:                                                                                                  #  INPUT/OUTPUT INFORMATION
008059,000687: 
008060,000688:                                                                                                  #        A. CALLING SEQUENCE                     TC GOTOPOOH
008061,000689:                                                                                                  #        B. ERASABLE INITIALIZATION              NONE
008062,000690:                                                                                                  #        C. OUTPUT                               FLASH VERB 50 NOUN 07 ON DSKY
008063,000691:                                                                                                  #        D. DEBRIS                               L
008064,000692: 
008065,000693:                                                                                                  #  PROGRAM ANALYSIS
008066,000694: 
008067,000695:                                                                                                  #        A. SUBROUTINES CALLED                   GOPERF3, LINUS
008068,000696:                                                                                                  #        B. NORMAL EXIT                          TCF ENDOFJOB
008069,000697:                                                                                                  #        C. ALARM AND ABORT EXITS                NONE
008070,000698: 
008071,000699:    4106                                           BLOCK    02                                    
008072,000700:    4000                                           SETLOC   FFTAG10                               
008073,000701:    4000                                           BANK                                           
008074,000702: 
008075,000703:    4106                                           COUNT    02/P00                                
008076,000704: 
008077,000705:    4106           05301        GOTOPOOH           TC       PHASCHNG                              #  RESTART GOTOPOOH
008078,000706:    4107           00014                           OCT      14                                    
008079,000707: 
008080,000708:    4110           04574                           TC       POSTJUMP                              
008081,000709:    4111           10000                           CADR     GOPOOFIX                              
008082,000710: 10,2203                                           BANK     10                                    
008083,000711: 04,2000                                           SETLOC   VERB37                                
008084,000712: 04,2000                                           BANK                                           
008085,000713: 
008086,000714: 04,2000                                           COUNT    04/P00                                
008087,000715: 
008088,000716: 04,2000           02315        GOPOOFIX           TC       INITSUB                               
008089,000717: 04,2001           32007                           CAF      V37N99                                
008090,000718: 04,2002           04555                           TC       BANKCALL                              
008091,000719: 04,2003           20624                           CADR     GOFLASH                               
008092,000720: 04,2004           12001                           TCF      -3                                    
008093,000721: 04,2005           12001                           TCF      -4                                    

Page 191

008095,000723: 04,2006           12001                           TCF      -5                                    
008096,000724: 04,2007           11343        V37N99             VN       3799                                  
008097,000725: 

Page 192

008099,000727:                                                                                                  #  PROGRAM NAME          V37                     ASSEMBLY SUNDISK
008100,000728: 
008101,000729:                                                                                                  #  LOG SECTION           FRESH START AND RESTART
008102,000730: 
008103,000731:                                                                                                  #  FUNCTIONAL DESCRIPTION
008104,000732: 
008105,000733:                                                                                                  #        1. CHECK IF NEW PROGRAM ALLOWED.  IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
008106,000734:                                                                                                  #        2. CHECK FOR VALIDITY OF PROGRAM SELECTED.  IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
008107,000735:                                                                                                  #           SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
008108,000736:                                                                                                  #        3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
008109,000737:                                                                                                  #        4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
008110,000738:                                                                                                  #        5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
008111,000739:                                                                                                  #        6. TRACK, UPDATE AND TARG1 FLAGS ARE SET TO ZERO.
008112,000740:                                                                                                  #        7. DISPLAY SYSTEM IS RELEASED.
008113,000741:                                                                                                  #        8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
008114,000742:                                                                                                  #                A. PROGRAM SELECTED IS P00.
008115,000743:                                                                                                  #                        1. RENDEZVOUS FLAG IS RESET (KILL P20).
008116,000744:                                                                                                  #                        2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
008117,000745:                                                                                                  #                        3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
008118,000746:                                                                                                  #                        4. SUPERBANK 3 IS SELECTED.
008119,000747:                                                                                                  #                        5. NODOFLAG IS RESET.
008120,000748:                                                                                                  #                        6. ALL RESTART GROUPS EXCEPT GROUP2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2)
008121,000749:                                                                                                  #                           WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
008122,000750:                                                                                                  #                           INITIATED.
008123,000751:                                                                                                  #                B. PROGRAM SELECTED IS P20
008124,000752:                                                                                                  #                        1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
008125,000753:                                                                                                  #                           VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
008126,000754:                                                                                                  #                        2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
008127,000755:                                                                                                  #                           ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
008128,000756:                                                                                                  #                           AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
008129,000757:                                                                                                  #                           P20 IS RESTARTED TO CONTINUE, AND ITS MAJOR MODE IS SET.
008130,000758:                                                                                                  #                        3. CONTROL IS TRANSFERRED TO GOPROG2.
008131,000759:                                                                                                  #                C. PROGRAM SELECTED IS NEITHER P00 NOR P20
008132,000760:                                                                                                  #                        1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
008133,000761:                                                                                                  #                        2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
008134,000762:                                                                                                  #                           GROUPS. GROUP 2 IS CLEARED. IF THE RENDEZVOUS FLAG IS ON P20 IS RESTARTED IN GOPROG2 VIA REDOP20.
008135,000763:                                                                                                  #                           TO CONTINUE.
008136,000764: 
008137,000765:                                                                                                  #  INPUT/OUTPUT INFORMATION
008138,000766: 
008139,000767:                                                                                                  #        A. CALLING SEQUENCE
008140,000768:                                                                                                  #                CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
008141,000769:                                                                                                  #                VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
008142,000770:                                                                                                  #                MMCHANG EXECUTES A  TC POSTJUMP , CADR V37.
008143,000771: 
008144,000772:                                                                                                  #        B. ERASABLE INITIALIZATION              NONE
008145,000773: 
008146,000774:                                                                                                  #        C. OUTPUT
008147,000775:                                                                                                  #                MAJOR MODE CHANGE

Page 193

008149,000777: 
008150,000778:                                                                                                  #        D. DEBRIS
008151,000779:                                                                                                  #                MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
008152,000780:                                                                                                  #                GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
008153,000781: 
008154,000782:                                                                                                  #  PROGRAM ANALYSIS
008155,000783: 
008156,000784:                                                                                                  #        A. SUBROUTINES CALLED
008157,000785:                                                                                                  #                ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
008158,000786:                                                                                                  #                DSPMM
008159,000787: 
008160,000788:                                                                                                  #        B. NORMAL EXIT                          TC ENDOFJOB
008161,000789: 
008162,000790:                                                                                                  #        C. ALARMS                               1520 (MAJOR MODE CHANGE NOT PERMITTED)
008163,000791: 
008164,000792:    4112                                           BLOCK    02                                    
008165,000793:    4000                                           SETLOC   FFTAG10                               
008166,000794:    4000                                           BANK                                           
008167,000795: 
008168,000796:    4112                                           COUNT    02/V37                                
008169,000797: 
008170,000798:    4112           00024        OCT24              MM       20         B-14                       
008171,000799:    4113           00031        OCT31              MM       25         B-14                       
008172,000800: 27,2000                                           BANK     27                                    
008173,000801: 04,2000                                           SETLOC   VERB37                                
008174,000802: 04,2000                                           BANK                                           
008175,000803: 
008176,000804: 04,2010                                           COUNT    04/V37                                
008177,000805: 
008178,000806: 04,2010           54775        V37                TS       MMNUMBER                              #  SAVE MAJOR MODE
008179,000807: 04,2011           34371                           CAF      PRIO30                                #  RESTART AT PINBALL PRIORITY
008180,000808: 04,2012           54366                           TS       RESTREG                               
008181,000809: 
008182,000810: 04,2013           31320                           CA       IMODES30                              #  IS IMU BEING INITIALIZED
008183,000811: 04,2014           74705                           MASK     BIT6                                  
008184,000812: 04,2015           10000                           CCS      A                                     
008185,000813: 04,2016           12070                           TCF      CANTROO                               
008186,000814: 
008187,000815: 04,2017           34676                           CAF      BIT13                                 #  IS ENGINE ON
008188,000816: 04,2020           00006                           EXTEND                                         
008189,000817: 04,2021           02011                           RAND     DSALMOUT                              
008190,000818: 04,2022           10000                           CCS      A                                     
008191,000819: 04,2023           12030                           TCF      ROOTOPOO                              #  YES, SET UP FOR POO
008192,000820: 
008193,000821: 04,2024           40102                           CS       FLAGWRD6                              #  NO, IS TVC DAP ON
008194,000822: 04,2025           74105                           MASK     OCT60000                              
008195,000823: 04,2026           00006                           EXTEND                                         
008196,000824: 04,2027           62061                           BZMF     ISITPOO                               #  NO, CONTINUE WITH ROO
008197,000825: 
008198,000826: 04,2030           00004        ROOTOPOO           INHINT                                         
008199,000827: 04,2031           34752                           CAF      EBANK6                                

Page 194

008201,000829: 04,2032           54003                           TS       EBANK                                 
008202,000830: 04,2033  E6,1466                                  EBANK=   DAPDATR1                              
008203,000831: 04,2033           31474                           CAE      CSMMASS                               
008204,000832: 04,2034           55662                           TS       MASSTMP                               
008205,000833: 04,2035           04633                           TC       IBNKCALL                              
008206,000834: 04,2036           50737                           CADR     SPSOFF                                
008207,000835: 04,2037           04633                           TC       IBNKCALL                              
008208,000836: 04,2040           13207                           CADR     MASSPROP                              
008209,000837: 04,2041           32402                           CAF      3.1SEC                                
008210,000838: 04,2042           04633                           TC       IBNKCALL                              
008211,000839: 04,2043           42011                           CADR     RCSDAPON   +1                         
008212,000840: 
008213,000841: 04,2044           04633                           TC       IBNKCALL                              
008214,000842: 04,2045           51003                           CADR     TVCZAP                                #  DISABLE TVC
008215,000843: 04,2046           34714                           CAF      ZERO                                  
008216,000844: 04,2047           54775                           TS       MMNUMBER                              
008217,000845: 04,2050           00003                           RELINT                                         
008218,000846: 04,2051           34715                           CAF      FIVE                                  
008219,000847: 04,2052           04555                           TC       BANKCALL                              
008220,000848: 04,2053           01732                           CADR     DELAYJOB                              
008221,000849: 04,2054           34714                           CAF      ZERO                                  
008222,000850: 04,2055           00006                           EXTEND                                         
008223,000851: 04,2056           01005                           WRITE    5                                     
008224,000852: 04,2057           00006                           EXTEND                                         
008225,000853: 04,2060           01006                           WRITE    6                                     
008226,000854: 04,2061           30775        ISITPOO            CA       MMNUMBER                              
008227,000855: 04,2062           00006                           EXTEND                                         
008228,000856: 04,2063           12112                           BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
008229,000857: 
008230,000858: 04,2064           40076                           CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
008231,000859: 04,2065           74712                           MASK     BIT1                                  
008232,000860: 04,2066           10000                           CCS      A                                     
008233,000861: 04,2067           12075                           TCF      CHECKTAB                              #  NO
008234,000862: 04,2070           05537        CANTROO            TC       ALARM                                 
008235,000863: 04,2071           01520                           OCT      1520                                  
008236,000864: 
008237,000865: 04,2072           04473        V37BAD             TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
008238,000866: 
008239,000867: 04,2073           04574                           TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
008240,000868: 04,2074           21176                           CADR     PINBRNCH                              #  WAS ONE.  OY
008241,000869: 
008242,000870: 04,2075           32475        CHECKTAB           CA       NOV37MM                               #  THE NO. OF MM
008243,000871: 04,2076           54155        AGAINMM            TS       MPAC       +1                         
008244,000872: 04,2077           50155                           NDX      MPAC       +1                         
008245,000873: 04,2100           32440                           CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
008246,000874: 04,2101           76043                           MASK     LOW7                                  
008247,000875: 04,2102           40000                           COM                                            
008248,000876: 04,2103           60775                           AD       MMNUMBER                              
008249,000877: 04,2104           10000                           CCS      A                                     
008250,000878: 04,2105           10155                           CCS      MPAC       +1                         #  IF GR, SEE IF ANY MORE IN LIST

Page 195

008252,000880: 04,2106           12076                           TCF      AGAINMM                               #  YES, GET NEXT ONE
008253,000881: 04,2107           12257                           TCF      V37NONO                               #  LAST TIME OR PASSED MM
008254,000882: 
008255,000883: 04,2110           30155                           CA       MPAC       +1                         
008256,000884: 04,2111           54774                           TS       MINDEX                                #  SAVE INDEX FOR LATER
008257,000885: 
008258,000886: 04,2112           40103        ISSERVON           CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
008259,000887: 04,2113           74705                           MASK     BIT6                                  
008260,000888: 04,2114           10000                           CCS      A                                     
008261,000889: 04,2115           12123                           TCF      CANV37                                #  NO
008262,000890: 
008263,000891: 04,2116           00004                           INHINT                                         
008264,000892: 04,2117           44712                           CS       BIT1                                  #  YES, TURN OFF AVERAGE G FLAG AND WAIT
008265,000893: 04,2120           70075                           MASK     FLAGWRD1                              #  FOR SERVICER TO RETURN TO CANV37
008266,000894: 04,2121           54075                           TS       FLAGWRD1                              
008267,000895: 
008268,000896: 04,2122           15112                           TCF      ENDOFJOB                              
008269,000897: 
008270,000898: 04,2123           32377        CANV37             CAF      ROOAD                                 
008271,000899: 04,2124           54374                           TS       TEMPFLSH                              
008272,000900: 
008273,000901: 04,2125           05301                           TC       PHASCHNG                              
008274,000902: 04,2126           00014                           OCT      14                                    
008275,000903: 
008276,000904: 04,2127           06006        ROO                TC       INTPRET                               
008277,000905: 
008278,000906: 04,2130           77624                           CALL                                           #  WAIT FOR INTEGRATION TO FINISH
008279,000907: 04,2131           27371                                    INTSTALL                              
008280,000908: 04,2132           77776        DUMMYAD            EXIT                                           
008281,000909: 
008282,000910: 04,2133           02315                           TC       INITSUB                               
008283,000911: 
008284,000912: 04,2134           05447                           TC       DOWNFLAG                              
008285,000913: 04,2135           00020                           ADRES    STIKFLAG                              
008286,000914: 
008287,000915: 04,2136           04555                           TC       BANKCALL                              
008288,000916: 04,2137           57750                           CADR     UPACTOFF                              #  TURN OFF UPLINK ACTIV LIGHT
008289,000917: 
008290,000918: 04,2140           05447                           TC       DOWNFLAG                              
008291,000919: 04,2141           00215                           ADRES    VHFRFLAG                              
008292,000920: 04,2142           05447                           TC       DOWNFLAG                              
008293,000921: 04,2143           00037                           ADRES    R21MARK                               
008294,000922: 
008295,000923: 04,2144           10775                           CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
008296,000924: 04,2145           12245                           TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
008297,000925: 
008298,000926: 04,2146                                           COUNT    04/P00                                
008299,000927: 
008300,000928: 04,2146           04473        POOH               TC       RELDSP                                #  RELEASE DISPLAY SYSTEM

Page 196

008302,000930: 04,2147           34754                           CAF      PRIO5                                 #  SET VARIABLE RESTART REGISTER FOR P00.
008303,000931: 04,2150           55056                           TS       PHSPRDT2                              
008304,000932: 
008305,000933: 04,2151           00004                           INHINT                                         
008306,000934: 
008307,000935: 04,2152           44712                           CS       BIT1                                  #  TURN OFF NODOFLAG
008308,000936: 04,2153           70076                           MASK     FLAGWRD2                              
008309,000937: 04,2154           54076                           TS       FLAGWRD2                              
008310,000938: 
008311,000939: 04,2155           34715                           CA       FIVE                                  #  SET 2.5 RESTART FOR STATEINT1
008312,000940: 04,2156           54001                           TS       L                                     
008313,000941: 04,2157           40000                           COM                                            
008314,000942: 04,2160           52755                           DXCH     -PHASE2                               
008315,000943: 
008316,000944: 04,2161           42374                           CS       BIT7-8                                #  RESET IMUSE + KILL P20 BY TURNING OFF
008317,000945: 04,2162           70074                           MASK     FLAGWRD0                              
008318,000946: 04,2163           54074                           TS       FLAGWRD0                              #                         RENDFLG
008319,000947: 
008320,000948: 04,2164           34714                           CAF      DNLADP00                              
008321,000949: 
008322,000950: 04,2165                                           COUNT    04/V37                                
008323,000951: 
008324,000952: 04,2165           54332        SEUDOPOO           TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST.
008325,000953:                                                                                                  #  (OLD ONE WILL BE FINISHED FIRST)
008326,000954: 
008327,000955: 04,2166           42375                           CS       OCT01120                              #  TURN OFF TRACK, TARG1, UPDATE FLAGS
008328,000956: 04,2167           55071                           TS       EBANKTEM                              
008329,000957: 04,2170           70075                           MASK     FLAGWRD1                              
008330,000958: 04,2171           54075                           TS       FLAGWRD1                              
008331,000959: 
008332,000960: 04,2172           04633        GROUPKIL           TC       IBNKCALL                              #  KILL GROUPS 3(5,6
008333,000961: 04,2173           12506                           CADR     V37KLEAN                              
008334,000962: 
008335,000963: 04,2174           10775                           CCS      MMNUMBER                              #  IS IT POOH
008336,000964: 04,2175           12204                           TCF      RENDVOO                               #  NO
008337,000965: 04,2176           04633                           TC       IBNKCALL                              
008338,000966: 04,2177           12500                           CADR     POOKLEAN                              #  REDUNDANT EXCEPT FOR GROUP 4.
008339,000967: 
008340,000968: 04,2200           30775        GOMOD              CA       MMNUMBER                              
008341,000969: 04,2201           55011                           TS       MODREG                                
008342,000970: 
008343,000971: 04,2202           04574        GOGOPROG           TC       POSTJUMP                              
008344,000972: 04,2203           12641                           CADR     GOPROG2                               
008345,000973: 
008346,000974: 04,2204           40775        RENDVOO            CS       MMNUMBER                              #  IS NEW PROG = 20
008347,000975: 04,2205           64112                           AD       OCT24                                 #  20
008348,000976: 04,2206           00006                           EXTEND                                         
008349,000977: 04,2207           12211                           BZF      RENDNOO                               #  YES
008350,000978: 04,2210           12221                           TCF      POOFIZZ                               

Page 197

008352,000980: 04,2211           40775        RENDNOO            CS       MMNUMBER                              
008353,000981: 04,2212           61011                           AD       MODREG                                
008354,000982: 04,2213           00006                           EXTEND                                         
008355,000983: 04,2214           12225                           BZF      KILL20                                
008356,000984: 
008357,000985: 04,2215           30074                           CA       FLAGWRD0                              #  IS RENDEZVOO FLAG SET
008358,000986: 04,2216           74704                           MASK     BIT7                                  
008359,000987: 04,2217           10000                           CCS      A                                     
008360,000988: 04,2220           12236                           TCF      STATQUO                               
008361,000989: 
008362,000990: 04,2221           34704        POOFIZZ            CAF      BIT7                                  
008363,000991: 04,2222           70074                           MASK     FLAGWRD0                              
008364,000992: 04,2223           10000                           CCS      A                                     
008365,000993: 04,2224           12233                           TCF      REV37                                 
008366,000994: 04,2225           00006        KILL20             EXTEND                                         #  NO, KILL GROUPS 1 + 2
008367,000995: 04,2226           34714                           DCA      NEG0                                  
008368,000996: 04,2227           52753                           DXCH     -PHASE1                               
008369,000997: 
008370,000998: 04,2230           00006                           EXTEND                                         
008371,000999: 04,2231           34714                           DCA      NEG0                                  
008372,001000: 04,2232           52755                           DXCH     -PHASE2                               
008373,001001: 
008374,001002: 04,2233           32376        REV37              CAF      V37QCAD                               #  SET RESTART POINT
008375,001003: 04,2234           54374                           TS       TEMPFLSH                              
008376,001004: 
008377,001005: 04,2235           12202                           TCF      GOGOPROG                              
008378,001006: 
008379,001007: 
008380,001008: 04,2236           40075        STATQUO            CS       FLAGWRD1                              #  SET TRACKFLAG AND UPDATE FLAG
008381,001009: 04,2237           74732                           MASK     OCT120                                
008382,001010: 04,2240           26075                           ADS      FLAGWRD1                              
008383,001011: 
008384,001012: 04,2241           00006                           EXTEND                                         #  KILL GROUP 4
008385,001013: 04,2242           34714                           DCA      NEG0                                  
008386,001014: 04,2243           52761                           DXCH     -PHASE4                               
008387,001015: 
008388,001016: 04,2244           12200                           TCF      GOMOD                                 
008389,001017: 
008390,001018: 04,2245           34704        NOUVEAU            CAF      BIT7                                  
008391,001019: 04,2246           70074                           MASK     FLAGWRD0                              
008392,001020: 04,2247           10000                           CCS      A                                     
008393,001021: 04,2250           12253                           TCF      +3                                    
008394,001022: 04,2251           05447                           TC       DOWNFLAG                              #  NO, RESET IMUSE FLAG.
008395,001023: 04,2252           00007                           ADRES    IMUSE                                 #  BIT 8 FLAG 0
008396,001024: 04,2253           50774                 +3        INDEX    MINDEX                                
008397,001025: 04,2254           32476                           CAF      DNLADMM1                              #  OBTAIN NEW DOWNLIST ADDRESS
008398,001026: 
008399,001027: 04,2255           00004                           INHINT                                         
008400,001028: 04,2256           12165                           TCF      SEUDOPOO                              
008401,001029: 
008402,001030: 04,2257           04400        V37NONO            TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST

Page 198

008404,001032: 04,2260           12072                           TCF      V37BAD                                
008405,001033: 
008406,001034: 04,2261     4707               OCT00010           EQUALS   BIT4                                  
008407,001035: 04,2261           00004        V37XEQ             INHINT                                         
008408,001036: 04,2262           50774                           INDEX    MINDEX                                
008409,001037: 04,2263           32440                           CAF      PREMM1                                
008410,001038: 04,2264           55060                           TS       MMTEMP                                #  OBTAIN PRIORITY BITS 15-11
008411,001039: 04,2265           54020                           TS       CYR                                   #  SHIFT RIGHT TO BITS 14-10
008412,001040: 
008413,001041: 04,2266           30020                           CA       CYR                                   
008414,001042: 04,2267           77674                           MASK     PRIO37                                
008415,001043: 04,2270           55062                           TS       PHSPRDT4                              #  PRESET GROUP 4 RESTART PRIORITY
008416,001044: 04,2271           54063                           TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
008417,001045: 
008418,001046: 04,2272           31060                           CA       MMTEMP                                #  OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
008419,001047: 04,2273           00006                           EXTEND                                         
008420,001048: 04,2274           74703                           MP       BIT8                                  
008421,001049: 04,2275           74716                           MASK     LOW3                                  
008422,001050: 04,2276           54001                           TS       L                                     
008423,001051: 04,2277           50774                           INDEX    MINDEX                                
008424,001052: 04,2300           32403                           CAF      FCADRMM1                              
008425,001053: 04,2301           55061                           TS       BASETEMP                              
008426,001054: 04,2302           74364                           MASK     HI5                                   
008427,001055: 04,2303           26001                           ADS      L                                     
008428,001056: 
008429,001057: 04,2304           31061                           CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
008430,001058: 04,2305           74747                           MASK     LOW10                                 
008431,001059: 04,2306           64700                           AD       BIT11                                 
008432,001060: 
008433,001061: 04,2307           05053                           TC       SPVAC                                 
008434,001062: 
008435,001063: 04,2310           31060        V37XEQC            CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
008436,001064: 04,2311           76043                           MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
008437,001065: 04,2312           05246                           TC       NEWMODEA                              #  PHSBRDT1)
008438,001066: 
008439,001067:                                                                                                  #  FOR SUNDISK ONLY
008440,001068: 04,2313           04473                           TC       RELDSP                                #  RELEASE DISPLAY
008441,001069: 04,2314           05112                           TC       ENDOFJOB                              #  AND EXIT
008442,001070: 
008443,001071: 04,2315           00006        INITSUB            EXTEND                                         
008444,001072: 04,2316           22155                           QXCH     MPAC       +1                         
008445,001073: 
008446,001074: 04,2317           34752                           CAF      EBANK6                                #  SET E6 FOR DEADBAND CODING
008447,001075: 04,2320           54003                           TS       EBANK                                 #  WILL BE RESET IN STARTSB2.
008448,001076: 04,2321           00004                           INHINT                                         
008449,001077: 04,2322           04555                           TC       BANKCALL                              
008450,001078: 04,2323           45245                           CADR     STOPRATE                              
008451,001079: 
008452,001080: 04,2324           30105                           CA       FLAGWRD9                              #  RESTORE DEADBAND
008453,001081: 04,2325           74677                           MASK     BIT12                                 

Page 199

008455,001083: 04,2326           10000                           CCS      A                                     
008456,001084: 04,2327           12333                           TCF      SETMAXER                              #  MAX DB SELECTED
008457,001085: 04,2330           04555                           TC       BANKCALL                              #  MIN DB SELECTED
008458,001086: 04,2331           50213                           CADR     SETMINDB                              
008459,001087: 04,2332           12335                           TCF      RAKE                                  
008460,001088: 04,2333           04555        SETMAXER           TC       BANKCALL                              
008461,001089: 04,2334           50227                           CADR     SETMAXDB                              
008462,001090: 
008463,001091: 04,2335           34717        RAKE               CAF      ELEVEN                                #  THIS PART CLEARS FLAGWORD BITS.
008464,001092: 04,2336           54154                 +1        TS       MPAC                                  #  LOOP COMES HERE.
008465,001093: 04,2337           50154                           INDEX    MPAC                                  
008466,001094: 04,2340           42356                           CS       FLAGTABL                              
008467,001095: 04,2341           50154                           INDEX    MPAC                                  
008468,001096: 04,2342           70074                           MASK     FLAGWRD0                              
008469,001097: 04,2343           50154                           INDEX    MPAC                                  #  PUT REVISED FLAGWORD BACK.
008470,001098: 04,2344           54074                           TS       FLAGWRD0                              
008471,001099: 04,2345           10154                           CCS      MPAC                                  
008472,001100: 04,2346           12336                           TCF      RAKE       +1                         #  GET THE NEXT FLAGWORD.
008473,001101: 04,2347           00003                           RELINT                                         
008474,001102: 
008475,001103: 04,2350           05435                           TC       UPFLAG                                #  NOW SET IMPULSW
008476,001104: 04,2351           00044                           ADRES    IMPULSW                               
008477,001105: 
008478,001106: 04,2352           05425                           TC       CLEARMRK                              
008479,001107: 
008480,001108: 04,2353           37716                           CA       NEGONE                                
008481,001109: 04,2354           55303                           TS       OPTIND                                
008482,001110: 04,2355           00155                           TC       MPAC       +1                         #  RETURN FROM INITSUB
008483,001111: 
008484,001112: 04,2356           00000        FLAGTABL           OCT      0                                     
008485,001113: 04,2357           00040                           OCT      00040                                 #  IDLEFAIL
008486,001114: 04,2360           02000                           OCT      02000                                 #  STEERSW
008487,001115: 04,2361           00000                           OCT      0                                     
008488,001116: 04,2362           00000                           OCT      0                                     
008489,001117: 04,2363           04140                           OCT      04140                                 #  V59FLAG, ENGONFLG, 3AXISFLG
008490,001118: 04,2364           10000                           OCT      10000                                 #  STRULLSW
008491,001119: 04,2365           16020                           OCT      16020                                 #  IGNFLAG, ASTNFLAG, TIMRFLAG, NOUPFLAG
008492,001120: 04,2366           00000                           OCT      0                                     
008493,001121: 04,2367           42000                           OCT      42000                                 #  SWTOVER, V94FLAG
008494,001122: 04,2370           00000                           OCT      0                                     
008495,001123: 04,2371           00000                           OCT      0                                     
008496,001124: 
008497,001125: 04,2372     5630               NEG7               EQUALS   OCT77770                              
008498,001126: 
008499,001127: 04,2372  E6,1425                                  EBANK=   PACTOFF                               
008500,001128: 04,2372           03143 12066  POODAPAD           2CADR    T5IDLOC                               
008501,001129: 
008502,001130: 04,2374     1060               MMTEMP             EQUALS   PHSPRDT3                              
008503,001131: 04,2374     1061               BASETEMP           EQUALS   TBASE4                                
008504,001132: 04,2374           00300        BIT7-8             OCT      300                                   

Page 200

008506,001134: 04,2375           01120        OCT01120           OCT      01120                                 
008507,001135: 
008508,001136: 04,2376           10264        V37QCAD            CADR     V37XEQ     +3                         
008509,001137: 04,2377           10132        ROOAD              CADR     DUMMYAD                               
008510,001138: 04,2400  E6,1466                                  EBANK=   DAPDATR1                              
008511,001139: 04,2400           02106 42066  RCSADDR4           2CADR    RCSATT                                
008512,001140: 
008513,001141: 04,2402           37312        3.1SEC             OCT      37312                                 #  2.5 + 0.6 SEC
008514,001142: 
008515,001143:                                                                                                  #  FOR VERB 37 TWO TABLES ARE MAINTAINED.  EACH TABLE HAS AN ENTRY FOR EACH
008516,001144:                                                                                                  #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD.  THE ENTRIES ARE PUT
008517,001145:                                                                                                  #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
008518,001146:                                                                                                  #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
008519,001147: 
008520,001148:                                                                                                  #  THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
008521,001149:                                                                                                  #  THE MAJOR MODE.  FOR EXAMPLE, 
008522,001150: 
008523,001151:                                                                                                  #        FCADRMM1        FCADR   P79             START OF P 79
008524,001152:                                                                                                  #                        FCADR   PROG18          START OF P 18
008525,001153:                                                                                                  #                        FCADR   P01             START OF P 01
008526,001154: 
008527,001155: 04,2403                        FCADRMM1           EQUALS                                         
008528,001156: 04,2403           11334                           FCADR    P79                                   
008529,001157: 04,2404           11106                           FCADR    P78                                   
008530,001158: 04,2405           73433                           FCADR    P77                                   
008531,001159: 04,2406           26036                           FCADR    P76                                   
008532,001160: 04,2407           72157                           FCADR    P75                                   
008533,001161: 04,2410           72002                           FCADR    P74                                   
008534,001162: 04,2411           54320                           FCADR    P62                                   
008535,001163: 04,2412           54217                           FCADR    P61                                   
008536,001164: 04,2413           32000                           FCADR    P54                                   
008537,001165: 04,2414           31054                           FCADR    P53                                   
008538,001166: 04,2415           32000                           FCADR    PROG52                                
008539,001167: 04,2416           31054                           FCADR    P51                                   
008540,001168: 04,2417           50410                           FCADR    P47CSM                                
008541,001169: 04,2420           50235                           FCADR    P41CSM                                
008542,001170: 04,2421           50002                           FCADR    P40CSM                                
008543,001171: 04,2422           11327                           FCADR    P39                                   
008544,001172: 04,2423           11103                           FCADR    P38                                   
008545,001173: 04,2424           74502                           FCADR    P37                                   
008546,001174: 04,2425           72153                           FCADR    P35                                   
008547,001175: 04,2426           72000                           FCADR    P34                                   
008548,001176: 04,2427           73620                           FCADR    P31                                   
008549,001177: 04,2430           73604                           FCADR    P30                                   
008550,001178: 04,2431           62021                           FCADR    P23                                   
008551,001179: 04,2432           60000                           FCADR    PROG22                                
008552,001180: 04,2433           76001                           FCADR    PROG21                                
008553,001181: 04,2434           76207                           FCADR    PROG20                                
008554,001182: 04,2435           73431                           FCADR    P17                                   
008555,001183: 04,2436           55655                           FCADR    P06                                   

Page 201

008557,001185: 04,2437           66001                           FCADR    GTSCPSS1                              #  GYROCOMPASS STANDARD LEAD IN.
008558,001186: 
008559,001187:                                                                                                  #  THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND PRIORITY
008560,001188:                                                                                                  #  INFORMATION, IT IS IN THE FOLLOWING FORM,
008561,001189: 
008562,001190:                                                                                                  #        PPP PPE EEM MMM MMM
008563,001191: 
008564,001192:                                                                                                  #        WHERE THE       7 M BITS CONTAIN THE MAJOR MODE NUMBER
008565,001193:                                                                                                  #                        3 E BITS CONTAIN THE E-BANK NUMBER
008566,001194:                                                                                                  #                        5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
008567,001195:                                                                                                  #                            TO BE STARTED
008568,001196: 
008569,001197:                                                                                                  #        FOR EXAMPLE,
008570,001198: 
008571,001199:                                                                                                  #                PREMM1          OCT     67213           PRIORITY        33
008572,001200:                                                                                                  #                                                        E-BANK  5
008573,001201:                                                                                                  #                                                        MAJOR MODE      11
008574,001202:                                                                                                  #                                OCT     25437           PRIORITY        12
008575,001203:                                                                                                  #                                                        E-BANK  6
008576,001204:                                                                                                  #                                                        MAJOR MODE      31
008577,001205: 
008578,001206: 04,2440                        PREMM1             EQUALS                                         
008579,001207: 04,2440           27117                           OCT      27117                                 #  MM 79         EBANK 4         PRIO 13
008580,001208: 04,2441           27116                           OCT      27116                                 #  MM 78         EBANK 4         PR23 13
008581,001209: 04,2442           27115                           OCT      27115                                 #  MM 77         EBANK 4         PRIO 13
008582,001210: 04,2443           27714                           OCT      27714                                 #  MM 76         EBANK 7         PRIO 13
008583,001211: 04,2444           27113                           OCT      27113                                 #  MM 75         EBANK 4         PRIO 13
008584,001212: 04,2445           27112                           OCT      27112                                 #  MM 74         EBANK 4         PRIO 13
008585,001213: 
008586,001214: 04,2446           27476                           OCT      27476                                 #  MM 62         EBANK 6         PRIO 13
008587,001215: 04,2447           27475                           OCT      27475                                 #  MM 61         EBANK 6         PRIO 13
008588,001216: 
008589,001217: 04,2450           27266                           OCT      27266                                 #  MM 54         EBANK 5         PRIO 13
008590,001218: 04,2451           27265                           OCT      27265                                 #  MM 53         EBANK 5         PRIO 13
008591,001219: 04,2452           27264                           OCT      27264                                 #  MM 52         EBANK 5         PRIO 13
008592,001220: 04,2453           27263                           OCT      27263                                 #  MM 51         EBANK 5         PRIO 13
008593,001221: 
008594,001222: 04,2454           27657                           OCT      27657                                 #  MM 47         EBANK 7         PRIO 13
008595,001223: 04,2455           27451                           OCT      27451                                 #  MM 41         EBANK 6         PRIO 13
008596,001224: 04,2456           27450                           OCT      27450                                 #  MM 40         EBANK 6         PRIO 13
008597,001225: 
008598,001226: 04,2457           27047                           OCT      27047                                 #  MM 39         EBANK 4         PRIO 13
008599,001227: 04,2460           27046                           OCT      27046                                 #  MM 38         EBANK 4         PRIO 13
008600,001228: 04,2461           27645                           OCT      27645                                 #  MM 37         EBANK 7         PRIO 13
008601,001229: 04,2462           27043                           OCT      27043                                 #  MM 35         EBANK 4         PRIO 13
008602,001230: 04,2463           27042                           OCT      27042                                 #  MM 34         EBANK 4         PRIO 13
008603,001231: 04,2464           27637                           OCT      27637                                 #  MM 31         EBANK 7         PRIO 13
008604,001232: 04,2465           27636                           OCT      27636                                 #  MM 30         EBANK 7         PRIO 13
008605,001233: 
008606,001234: 04,2466           27227                           OCT      27227                                 #  MM 23         EBANK 5         PRIO 13
008607,001235: 04,2467           27226                           OCT      27226                                 #  MM 22         EBANK 5         PRIO 13
008608,001236: 04,2470           27025                           OCT      27025                                 #  MM 21         EBANK 4         PRIO 13
008609,001237: 04,2471           27424                           OCT      27424                                 #  MM 20         EBANK 6         PRIO 13
008610,001238: 
008611,001239: 04,2472           27021                           OCT      27021                                 #  MM 17         EBANK 4         PRIO 13

Page 202

008613,001241: 04,2473           27006                           OCT      27006                                 #  MM 06         EBANK 4         PRIO 13
008614,001242: 04,2474           41201                           OCT      41201                                 #  MM 01         EBANK 5         PRIO 20
008615,001243: 
008616,001244:                                                                                                  #  THE FOLLOWING LIST IS FOR THE PURPOSE OF VERIFYING THAT THE EBA
008617,001245: 
008618,001246: 04,2475  E7,1412                                  EBANK=   TIG                                   #  EBANK SETTING REQUIRED BY MM 76
008619,001247: 04,2475  E4,1763                                  EBANK=   KT                                    #  EBANK SETTING REQUIRED BY MM 75
008620,001248: 04,2475  E4,1770                                  EBANK=   SUBEXIT                               #  EBANK SETTING REQUIRED BY MM 74
008621,001249: 04,2475  E6,1661                                  EBANK=   AOG                                   #  EBANK SETTING REQUIRED BY MM 62
008622,001250: 04,2475  E6,1661                                  EBANK=   AOG                                   #  EBANK SETTING REQUIRED BY MM 61
008623,001251: 04,2475     0302                                  EBANK=   BESTI                                 #  EBANK SETTING REQUIRED BY MM 54
008624,001252: 04,2475     0304                                  EBANK=   STARIND                               #  EBANK SETTING REQUIRED BY MM 53
008625,001253: 04,2475     0302                                  EBANK=   BESTI                                 #  EBANK SETTING REQUIRED BY MM 52
008626,001254: 04,2475     0304                                  EBANK=   STARIND                               #  EBANK SETTING REQUIRED BY MM 51
008627,001255: 04,2475  E7,1672                                  EBANK=   P40TMP                                #  EBANK SETTING REQUIRED BY MM 47
008628,001256: 04,2475  E7,1477                                  EBANK=   AXISCODE                              #  EBANK SETTING REQUIRED BY MM 41
008629,001257: 04,2475  E6,1510                                  EBANK=   KMPAC                                 #  EBANK SETTING REQUIRED BY MM 40
008630,001258: 04,2475  E4,1763                                  EBANK=   KT                                    #  EBANK SETTING REQUIRED BY MM 35
008631,001259: 04,2475  E4,1770                                  EBANK=   SUBEXIT                               #  EBANK SETTING REQUIRED BY MM 34
008632,001260: 04,2475  E7,1625                                  EBANK=   +MGA                                  #  EBANK SETTING REQUIRED BY MM 30
008633,001261: 04,2475  E5,1751                                  EBANK=   LANDMARK                              #  EBANK SETTING REQUIRED BY MM 23
008634,001262: 04,2475     0301                                  EBANK=   MARKINDX                              #  EBANK SETTING REQUIRED BY MM 22
008635,001263: 04,2475  E7,1777                                  EBANK=   WHOCARES                              #  EBANK SETTING REQUIRED BY MM 21
008636,001264: 04,2475  E6,1412                                  EBANK=   ESTROKER                              #  EBANK SETTING REQUIRED BY MM 20
008637,001265: 04,2475     1150                                  EBANK=   TIME2SAV                              #  EBANK SETTING REQUIRED BY MM 06
008638,001266: 04,2475  E5,1425                                  EBANK=   QPLACE                                #  EBANK SETTING REQUIRED BY MM 01
008639,001267: 
008640,001268:                                                                                                  #  NOTE,         THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
008641,001269:                                                                                                  #  ----          THE ABOVE LISTS-1 (IE, THE NUMBER OF MAJOR MODES (EXCEPT P00)
008642,001270:                                                                                                  #                THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
008643,001271: 
008644,001272: 04,2475                        EPREMM1            EQUALS                                         #  END OF PREMM1 TABLE
008645,001273: 04,2440                                           SETLOC   PREMM1                                #  THIS CODING WILL AUTOMATICALLY CHANGE
008646,001274: 04,2440                        NO.MMS             =MINUS   EPREMM1                               #  THE 'NOV37MM' CONSTANT AS ENTRIES ARE
008647,001275: 04,2000                                           SETLOC   VERB37                                #  INSERTED(IN) OR DELETED(FROM) THE
008648,001276: 04,2000                                           BANK                                           #  'PREMM1' TABLE.
008649,001277: 
008650,001278: 04,2475           00034        NOV37MM            ADRES    NO.MMS     -1                         #  ITEMS IN 'PREMM1'TABLE - 1.  *DON'T MOVE*
008651,001279: 
008652,001280: 04,2476                        DNLADMM1           EQUALS                                         
008653,001281: 04,2476           00002                           ADRES    RENDEZVU                              #  P79
008654,001282: 04,2477           00002                           ADRES    RENDEZVU                              #  P78
008655,001283: 04,2500           00002                           ADRES    RENDEZVU                              #  P77
008656,001284: 04,2501           00002                           ADRES    RENDEZVU                              #  P76
008657,001285: 04,2502           00002                           ADRES    RENDEZVU                              #  P75
008658,001286: 04,2503           00002                           ADRES    RENDEZVU                              #  P74

Page 203

008660,001288: 04,2504           00001                           ADRES    ENTRYUPD                              #  P62
008661,001289: 04,2505           00003                           ADRES    POWERED                               #  P61
008662,001290: 04,2506           00000                           ADRES    COSTALIN                              
008663,001291: 04,2507           00000                           ADRES    COSTALIN                              
008664,001292: 04,2510           00000                           ADRES    COSTALIN                              #  P52
008665,001293: 04,2511           00000                           ADRES    COSTALIN                              #  P51
008666,001294: 04,2512           00003                           ADRES    POWERED                               #  P47
008667,001295: 04,2513           00003                           ADRES    POWERED                               #  P41
008668,001296: 04,2514           00003                           ADRES    POWERED                               #  P40
008669,001297: 04,2515           00002                           ADRES    RENDEZVU                              #  P39
008670,001298: 04,2516           00002                           ADRES    RENDEZVU                              #  P38
008671,001299: 04,2517           00002                           ADRES    RENDEZVU                              #  P37
008672,001300: 04,2520           00002                           ADRES    RENDEZVU                              #  P35
008673,001301: 04,2521           00002                           ADRES    RENDEZVU                              #  P34
008674,001302: 04,2522           00002                           ADRES    RENDEZVU                              
008675,001303: 04,2523           00002                           ADRES    RENDEZVU                              #  P30
008676,001304: 04,2524           00002                           ADRES    RENDEZVU                              #  P23
008677,001305: 04,2525           00004                           ADRES    P22DNLST                              #  P22
008678,001306: 04,2526           00002                           ADRES    RENDEZVU                              #  P21
008679,001307: 04,2527           00002                           ADRES    RENDEZVU                              #  P20
008680,001308: 04,2530           00002                           ADRES    RENDEZVU                              #  P17
008681,001309: 04,2531           00000                           ADRES    COSTALIN                              #  P06
008682,001310: 04,2532           00000                           ADRES    COSTALIN                              #  P01
008683,001311: 
008684,001312: 04,2533     4714               DNLADP00           =        ZERO                                  
008685,001313: 04,2533                        COSTALIN           =        0                                     
008686,001314: 04,2533                        ENTRYUPD           =        1                                     
008687,001315: 04,2533                        RENDEZVU           =        2                                     
008688,001316: 04,2533                        POWERED            =        3                                     
008689,001317: 
008690,001318: 04,2533                        P22DNLST           =        4                                     
008691,001319: 
008692,001320:                                                                                                  #  ORBITAL INTEGRATION CONSTANTS
008693,001321: 
008694,001322:                                                                                                  #  THESE CONSTANTS ARE USED IN COMPUTING THE SETTING OF MIDFLAG.
008695,001323: 
008696,001324: 04,2533           00465 32324  RMM                2DEC     2538.09    E3         B-27            #  800 KM ABOVE LUNAR SURFACE
008697,001325: 
008698,001326: 04,2535           00333 01733  RME                2DEC     7178165    B-29                       #  800 KM ABOVE EQ. RADIUS
008699,001327: 
008700,001328: 13,2000                                           BANK     13                                    
008701,001329: 13,2000                                           SETLOC   INTINIT                               
008702,001330: 13,2000                                           BANK                                           
008703,001331: 
008704,001332: 13,2000                                           COUNT*   $$/INTIN                              
008705,001333: 
008706,001334: 13,2000  E3,1554                                  EBANK=   RRECTCSM                              
008707,001335: 
008708,001336: 13,2000           43014        STATEUP            SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
008709,001337: 13,2001           01474                                    VINTFLAG                              
008710,001338: 13,2002           01751                                    ORBWFLAG                              #  ALSO 6X6 W-MATRIX IF VALID
008711,001339: 13,2003           26006                                    +3                                    #        FOR ORBITAL NAVIGATION
008712,001340: 13,2004           77614                           SET                                            

Page 204

008714,001342: 13,2005           01476                                    DIM0FLAG                              
008715,001343: 13,2006           45014                           CLEAR    CALL                                  
008716,001344: 13,2007           01667                                    PRECIFLG                              
008717,001345: 13,2010           27113                                    INTEGRV                               
008718,001346: 
008719,001347: 13,2011           71214                           BON      DLOAD                                 
008720,001348: 13,2012           04307                                    SURFFLAG                              
008721,001349: 13,2013           26031                                    STATEND                               
008722,001350: 13,2014           01571                                    TETCSM                                
008723,001351: 13,2015           34041                           STCALL   TDEC1                                 
008724,001352: 13,2016           27371                                    INTSTALL                              
008725,001353: 13,2017           45014                           CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
008726,001354: 13,2020           01674                                    VINTFLAG                              
008727,001355: 13,2021           26621                                    SETIFLGS                              #        AND 6X6 W-MATRIX IF VALID
008728,001356: 13,2022           43014                           BOF      SET                                   
008729,001357: 13,2023           02756                                    RENDWFLG                              #        FOR RENDEZVOUS NAVIGATION
008730,001358: 13,2024           26026                                    +2                                    
008731,001359: 13,2025           01476                                    DIM0FLAG                              
008732,001360: 13,2026           45014                           SET      CALL                                  
008733,001361: 13,2027           01467                                    PRECIFLG                              
008734,001362: 13,2030           27113                                    INTEGRV                               
008735,001363: 13,2031           77614        STATEND            CLRGO                                          
008736,001364: 13,2032           01236                                    NODOFLAG                              
008737,001365: 13,2033           26607                                    ENDINT                                
008738,001366: 
008739,001367:                                                                                                  #  THIS VINT IS CALLED BY MIDTOAV1 AND 2
008740,001368: 
008741,001369: 13,2034           43414        THISVINT           SET      RVQ                                   
008742,001370: 13,2035           01474                                    VINTFLAG                              
008743,001371: 
008744,001372: 

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