Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

008186,000002:                                                                                                 #  Copyright:     Public domain.
008187,000003:                                                                                                 #  Filename:      FRESH_START_AND_RESTART.agc
008188,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
008189,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
008190,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
008191,000007:                                                                                                 #                 Apollo 15-17.
008192,000008:                                                                                                 #  Assembler:     yaYUL
008193,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
008194,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
008195,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
008196,000012:                                                                                                 #  Mod history:   2009-07-28 JL   Adapted from corresponding Comanche 055 file.
008197,000013:                                                                                                 #                 2009-09-03 JL   Fixed symbol names.
008198,000014:                                                                                                 #                 2010-01-31 JL   Fixed build errors.
008199,000015:                                                                                                 #                 2010-02-01 JL   Fixed build errors.
008200,000016:                                                                                                 #                 2010-02-05 JL   Fixed build errors.
008201,000017:                                                                                                 #                 2010-02-11 JL   Fixed errors on p201, p226.
008202,000018:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
008203,000019: 

Page 192

008205,000021: 
008206,000022:                                                                                                 #  PROGRAM DESCRIPTION                                            8 APRIL, 1967
008207,000023:                                                                                                 #                                                                 SUNDISK REV 120
008208,000024:                                                                                                 #  FUNCTIONAL DESCRIPTION
008209,000025: 
008210,000026:                                                                                                 #  SLAP1          MAN INITIATED FRESH START
008211,000027:                                                                                                 #         1.      EXECUTE STARTSUB
008212,000028:                                                                                                 #         2.      TURN OFF DSKY DISCRETE-LAMPS
008213,000029:                                                                                                 #         3.      CLEAR FAIL REGISTERS, SELF-CHECK ERROR COUNTER AND RESTART
008214,000030:                                                                                                 #                 COUNTER
008215,000031:                                                                                                 #         4.      INITIALIZE OUTBIT CHANNEL 77
008216,000032:                                                                                                 #         4.      EXECUTE DOFSTART
008217,000033: 
008218,000034:                                                                                                 #  DOFSTART       MACHINE INITIATED FRESH START
008219,000035: 
008220,000036:                                                                                                 #         1.      CLEAR SELF-CHECK REGISTERS, MODE REGISTER AND CDUZ REGISTER
008221,000037:                                                                                                 #         2.      CLEAR PHASE TABLE
008222,000038:                                                                                                 #         3.      INITIALIZE IMU FLAGS
008223,000039:                                                                                                 #         4.      INITIALIZE FLAGWORDS
008224,000040:                                                                                                 #         5.      TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
008225,000041: 
008226,000042:                                                                                                 #  GOPROG HARDWARE RESTART
008227,000043: 
008228,000044:                                                                                                 #         0.      EXECUTE STARTSUB
008229,000045:                                                                                                 #         1.      TRANSFER CONTROL TO DOFSTART IF ANY OF THE FOLLOWING CONDITIONS
008230,000046:                                                                                                 #                 EXIST.
008231,000047:                                                                                                 #                 A.      RESTART OCCURRED DURING EXECUTION OF ERASCHK
008232,000048:                                                                                                 #                 B.      BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON
008233,000049:                                                                                                 #                 C.      MARK REJECT AND EITHER NAV OR MAIN DSKY ERROR LIGHT RESET
008234,000050:                                                                                                 #                         ARE ON.
008235,000051:                                                                                                 #         2.      SCHEDULE A T5RUPT PROGRAM FOR THE DAP
008236,000052:                                                                                                 #         3.      SET FLAGWRD5 BITS FOR INTWAKE ROUTINE
008237,000053:                                                                                                 #         4.      EXTINGUISH ALL DSKY LAMPS, EXCEPT FOR PROGRAM ALARM, GIMBAL LOCK, AND
008238,000054:                                                                                                 #                 NO ATT
008239,000055:                                                                                                 #         5.      INITIALIZE IMU FLAGS
008240,000056:                                                                                                 #         6.      IF ENGINE COMMAND IS ON (FLAGWRD5, BIT 7), SET ENGINE ON (CHANNEL
008241,000057:                                                                                                 #                 11, BIT 13).
008242,000058:                                                                                                 #         7.      TRANSFER CONTROL TO GOPROG3
008243,000059: 
008244,000060:                                                                                                 #  ENEMA          SOFTWARE RESTART -- INITIATED BY MAJOR MODE CHANGE
008245,000061: 
008246,000062:                                                                                                 #         1.      EXECUTE STARTSB2
008247,000063:                                                                                                 #         2.      KILL PROGRAMS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION
008248,000064:                                                                                                 #                 ROUTINE
008249,000065:                                                                                                 #         3.      TRANSFER CONTROL TO GOPROG3
008250,000066: 
008251,000067:                                                                                                 #  GOPROG3        SUBROUTINE COMMON TO GOPROG AND ENEMA
008252,000068: 
008253,000069:                                                                                                 #         1.      TEST PHASE TABLES -- IF INCORRECT, DISPLAY ALARM 1107 AND
008254,000070:                                                                                                 #                 TRANSFER CONTROL TO DOFSTART
008255,000071:                                                                                                 #         2.      DISPLAY MAJOR MODE
008256,000072: 

Page 193

008258,000074: 
008259,000075:                                                                                                 #         3.      IF ANY GROUPS WERE ACTIVE UPON RESTART, TRANSFER CONTROL TO THE
008260,000076:                                                                                                 #                 RESTARTS SUBROUTINE TO RESCHEDULE PENDING TASKS, LONGCALLS, AND
008261,000077:                                                                                                 #                 JOBS (P20 IS RESTARTED VIA FINDVAC)
008262,000078:                                                                                                 #         4.      IF NO GROUPS WERE ACTIVE UPON RESTART, DISPLAY ALARM CODE
008263,000079:                                                                                                 #                 1110 (RESTART WITH NO ACTIVE GROUPS).
008264,000080:                                                                                                 #         5.      TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
008265,000081: 
008266,000082:                                                                                                 #  STARTSUB       SUBROUTINE COMMON TO SLAP1 AND GOPROG
008267,000083: 
008268,000084:                                                                                                 #         1.      CLEAR OUTBIT CHANNELS 5 AND 6
008269,000085:                                                                                                 #         2.      INITIALIZE TIME5, TIME4, TIME3
008270,000086:                                                                                                 #         3.      TRANSFER CONTROL TO STARTSB2
008271,000087: 
008272,000088:                                                                                                 #  STARTSB2       SUBROUTINE COMMON TO STARTSUB AND ENEMA
008273,000089: 
008274,000090:                                                                                                 #         1.      INTIALIZE OUTBIT CHANNELS 11,12,13, AND 14
008275,000091:                                                                                                 #         2.      REPLACE ALL TASKS ON WAITLIST WITH ENDTASK
008276,000092:                                                                                                 #         3.      MAKE ALL EXECUTEVE REGISTERS AVAILABLE
008277,000093:                                                                                                 #         4.      MAKE ALL VAC AREAS AVAILABLE
008278,000094:                                                                                                 #         5.      CLEAR DSKY REGISTERS
008279,000095:                                                                                                 #         6.      ZERO NUMEROUS SWITCHES
008280,000096:                                                                                                 #         7.      INITIALIZE OPTICS FLAGS
008281,000097:                                                                                                 #         8.      INITIALIZE PIPA AND TELEMETRY FAIL FLAGS
008282,000098:                                                                                                 #         9.      INITIALIZE DOWN TELEMETRY
008283,000099: 
008284,000100:                                                                                                 #  INPUT/OUTPUT INITIALIZATION
008285,000101: 
008286,000102:                                                                                                 #         A.      CALLING SEQUENCE
008287,000103: 
008288,000104:                                                                                                 #                 SLAP1 - TC POSTJUMP     OR      VERB 36,ENTER
008289,000105:                                                                                                 #                         CADR SLAP1
008290,000106: 
008291,000107:                                                                                                 #                 ENEMA - TC POSTJUMP     ***  DO NOT CALL ENEMA WITHOUT  ***
008292,000108:                                                                                                 #                         CADR ENEMA      ***  CONSULTING POOH PEOPLE     ***
008293,000109: 
008294,000110:                                                                                                 #         B.      OUTPUT
008295,000111: 
008296,000112:                                                                                                 #                 ERASABLE MEMORY INITIALIZATION
008297,000113: 
008298,000114:                                                                                                 #  PROGRAM ANALYSIS
008299,000115: 
008300,000116:                                                                                                 #         A.      SUBROUTINES CALLED
008301,000117: 
008302,000118:                                                                                                 #                 MR.KLEAN,WAITLIST,DSPMM,ALARM,RESTARTS,FINDVAC
008303,000119: 
008304,000120:                                                                                                 #         B.      ALARMS
008305,000121: 
008306,000122:                                                                                                 #                 1107    PHASE TABLE ERROR
008307,000123:                                                                                                 #                 1110    RESTART WTIH NO ACTIVE GROUPS
008308,000124: 

Page 194

008310,000126: 05,2000                                          SETLOC   FRANDRES                              
008311,000127: 05,2000                                          BANK                                           
008312,000128: 
008313,000129: 05,2367  E3,1400                                 EBANK=   LST1                                  
008314,000130: 
008315,000131: 05,2367                                          COUNT*   $$/START                              
008316,000132: 05,2367           00004        SLAP1             INHINT                                         #  FRESH START. COMES HERE FROM PINBALL.
008317,000133: 05,2370           03046                          TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
008318,000134: 
008319,000135: 05,2371           12376        STARTSW           TCF      SKIPSIM                               
008320,000136: 
008321,000137: 05,2372           34753        STARTSIM          CAF      BIT14                                 
008322,000138: 
008323,000139: 05,2373           05135                          TC       FINDVAC                               
008324,000140: 
008325,000141: 05,2374           77777        SIM2CADR          OCT      77777                                 
008326,000142: 
008327,000143: 05,2375           77777                          OCT      77777                                 
008328,000144: 05,2376           31241        SKIPSIM           CA       DSPTAB     +11D                       
008329,000145: 05,2377           75004                          MASK     BITS4&6                               
008330,000146: 05,2400           64752                          AD       BIT15                                 
008331,000147: 05,2401           55241                          TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
008332,000148: 
008333,000149: 05,2402           34772                          CAF      ZERO                                  #  SAME STORY ON ZEROING FAILREG.
008334,000150: 05,2403           55365                          TS       ERCOUNT                               
008335,000151: 05,2404           54375                          TS       FAILREG                               
008336,000152: 05,2405           54376                          TS       FAILREG    +1                         
008337,000153: 05,2406           54377                          TS       FAILREG    +2                         
008338,000154: 05,2407           55306                          TS       REDOCTR                               
008339,000155: 
008340,000156: 05,2410           00006                          EXTEND                                         
008341,000157: 05,2411           01077                          WRITE    CHAN77                                #  ZERO CHANNEL 77
008342,000158: 05,2412           44664                          CS       PRIO12                                
008343,000159: 05,2413           55322                          TS       DSRUPTSW                              
008344,000160: 
008345,000161: 05,2414           34772        DOFSTART          CAF      ZERO                                  #  DO A FRESH START.
008346,000162: 05,2415           55360                          TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
008347,000163: 05,2416           55362                          TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
008348,000164: 05,2417           55501                          TS       UPSVFLAG                              #  UPDATE STATE VECTOR REQUEST FLAGWORD
008349,000165: 05,2420           00006                          EXTEND                                         
008350,000166: 05,2421           01005                          WRITE    CHAN5                                 #  TURN OFF RCS JETS
008351,000167: 05,2422           00006                          EXTEND                                         
008352,000168: 05,2423           01006                          WRITE    CHAN6                                 #  TURN OFF RCS JETS
008353,000169: 05,2424           00006                          EXTEND                                         
008354,000170: 05,2425           01011                          WRITE    DSALMOUT                              #  ZERO CHANNEL 11
008355,000171: 05,2426           00006                          EXTEND                                         
008356,000172: 05,2427           01012                          WRITE    CHAN12                                #  ZERO CHANNEL 12
008357,000173: 05,2430           00006                          EXTEND                                         
008358,000174: 05,2431           01013                          WRITE    CHAN13                                #  ZERO CHANNEL 13
008359,000175: 05,2432           00006                          EXTEND                                         

Page 195

008361,000177: 05,2433           01014                          WRITE    CHAN14                                #  ZERO CHANNEL 14
008362,000178: 05,2434           55331                          TS       WTOPTION                              
008363,000179: 05,2435           54332                          TS       DNLSTCOD                              
008364,000180: 
008365,000181: 05,2436           54370                          TS       NVSAVE                                
008366,000182: 05,2437           55275                          TS       EBANKTEM                              
008367,000183: 05,2440           54772                          TS       TRKMKCNT                              
008368,000184: 05,2441           54771                          TS       VHFCNT                                
008369,000185: 05,2442           55247                          TS       EXTVBACT                              
008370,000186: 
008371,000187: 05,2443           54735                          TS       TRATE                                 
008372,000188: 05,2444           54736                          TS       SRATE                                 
008373,000189: 05,2445           54740                          TS       TOLD                                  
008374,000190: 05,2446           54741                          TS       SOLD                                  
008375,000191: 05,2447           41241                          CS       DSPTAB     +11D                       
008376,000192: 05,2450           75004                          MASK     BITS4&6                               
008377,000193: 05,2451           10000                          CCS      A                                     
008378,000194: 05,2452           02456                          TC       +4                                    
008379,000195: 05,2453           35004                          CA       BITS4&6                               
008380,000196: 05,2454           00006                          EXTEND                                         #  THE IMU WAS IN COARSE ALIGN IN GIMBAL
008381,000197: 05,2455           05012                          WOR      CHAN12                                #  LOCK, SO PUT IT BACK INTO COARSE ALIGN.
008382,000198: 05,2456           02536                          TC       MR.KLEAN                              
008383,000199: 
008384,000200: 05,2457           44772                          CS       ZERO                                  
008385,000201: 05,2460           55214                          TS       MODREG                                
008386,000202: 
008387,000203: 05,2461           34346                          CAF      PRIO30                                
008388,000204: 05,2462           54365                          TS       RESTREG                               
008389,000205: 
008390,000206: 05,2463           33247                          CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
008391,000207: 05,2464           55333                          TS       IMODES30                              
008392,000208: 
008393,000209: 05,2465           37702                          CAF      NEGONE                                
008394,000210: 05,2466           55323                          TS       OPTIND                                #  KILL COARSE OPTICS
008395,000211: 
008396,000212: 05,2467           33251                          CAF      OPTINITF                              
008397,000213: 05,2470           55337                          TS       OPTMODES                              
008398,000214: 
008399,000215: 05,2471           35055                          CAF      IM33INIT                              
008400,000216: 05,2472           55334                          TS       IMODES33                              
008401,000217: 
008402,000218: 05,2473           00006                          EXTEND                                         #  LET T5 IDLE.
008403,000219: 05,2474           33231                          DCA      T5IDLER                               
008404,000220: 05,2475           52113                          DXCH     T5LOC                                 
008405,000221: 
008406,000222: 05,2476           33252                          CA       SWINIT                                
008407,000223: 05,2477           54074                          TS       STATE                                 
008408,000224: 
008409,000225: 05,2500           30075                          CA       FLAGWRD1                              
008410,000226: 05,2501           74755                          MASK     NOP01BIT                              #  LEAVE NODOP01 FLAG UNTOUCHED

Page 196

008412,000228: 05,2502           63253                          AD       SWINIT     +1                         
008413,000229: 05,2503           54075                          TS       FLAGWRD1                              
008414,000230: 
008415,000231: 05,2504           33254                          CA       SWINIT     +2                         
008416,000232: 05,2505           54076                          TS       STATE      +2                         
008417,000233: 
008418,000234: 05,2506           30077                          CA       FLAGWRD3                              
008419,000235: 05,2507           74754                          MASK     REFSMBIT                              
008420,000236: 05,2510           63255                          AD       SWINIT     +3                         
008421,000237: 05,2511           54077                          TS       FLAGWRD3                              
008422,000238: 
008423,000239: 05,2512           00006                          EXTEND                                         
008424,000240: 05,2513           33257                          DCA      SWINIT     +4                         
008425,000241: 05,2514           52101                          DXCH     STATE      +4                         
008426,000242: 05,2515           00006                          EXTEND                                         
008427,000243: 05,2516           33261                          DCA      SWINIT     +6                         
008428,000244: 05,2517           52103                          DXCH     STATE      +6                         
008429,000245: 05,2520           30104                          CA       FLAGWRD8                              
008430,000246: 05,2521           72562                          MASK     OCT6200                               #  CMOONFLG, LMOONFLG, AND SUFFLAG
008431,000247: 05,2522           63262                          AD       SWINIT     +8D                        
008432,000248: 05,2523           54104                          TS       FLAGWRD8                              
008433,000249: 
008434,000250: 05,2524           33263                          CA       SWINIT     +9D                        
008435,000251: 05,2525           54105                          TS       STATE      +9D                        
008436,000252: 
008437,000253: 05,2526           34756                          CAF      HDSUPBIT                              
008438,000254: 05,2527           70106                          MASK     FLGWRD10                              
008439,000255: 05,2530           63264                          AD       SWINIT     +10D                       
008440,000256: 05,2531           54106                          TS       FLGWRD10                              
008441,000257: 
008442,000258: 05,2532           33265                          CAF      SWINIT     +11D                       
008443,000259: 05,2533           54107                          TS       FLGWRD11                              
008444,000260: 
008445,000261: 05,2534           04655        ENDRSTRT          TC       POSTJUMP                              
008446,000262: 05,2535           03173                          CADR     DUMMYJOB   +2                         #  DOES A RELINT.  (IN A SWITCHED BANK.)
008447,000263: 
008448,000264: 05,2536           00004        MR.KLEAN          INHINT                                         
008449,000265: 05,2537           00006                          EXTEND                                         
008450,000266: 05,2540           34772                          DCA      NEG0                                  
008451,000267: 05,2541           53160                          DXCH     -PHASE2                               
008452,000268: 05,2542           00006        POOKLEAN          EXTEND                                         
008453,000269: 05,2543           34772                          DCA      NEG0                                  
008454,000270: 05,2544           53164                          DXCH     -PHASE4                               
008455,000271: 05,2545           00006                          EXTEND                                         
008456,000272: 05,2546           34772                          DCA      NEG0                                  
008457,000273: 05,2547           53156                          DXCH     -PHASE1                               
008458,000274: 05,2550           00006        V37KLEAN          EXTEND                                         
008459,000275: 05,2551           34772                          DCA      NEG0                                  
008460,000276: 05,2552           53162                          DXCH     -PHASE3                               
008461,000277: 05,2553           00006                          EXTEND                                         

Page 197

008463,000279: 05,2554           34772                          DCA      NEG0                                  
008464,000280: 05,2555           53166                          DXCH     -PHASE5                               
008465,000281: 05,2556           00006        UPKLEAN           EXTEND                                         
008466,000282: 05,2557           34772                          DCA      NEG0                                  
008467,000283: 05,2560           53170                          DXCH     -PHASE6                               
008468,000284: 05,2561           00002                          TC       Q                                     
008469,000285: 
008470,000286: 05,2562           06200        OCT6200           OCT      6200                                  
008471,000287: 

Page 198

008473,000289:                                                                                                 #  COMES HERE FROM LOCATION 4000, GOJAM, RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
008474,000290: 
008475,000291: 05,2563           25306        GOPROG            INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
008476,000292: 
008477,000293: 05,2564           22002                          LXCH     Q                                     
008478,000294: 05,2565           00006                          EXTEND                                         
008479,000295: 05,2566           04007                          ROR      SUPERBNK                              
008480,000296: 05,2567           53433                          DXCH     RSBBQ                                 
008481,000297: 05,2570           04636                          TC       BANKCALL                              #  STORE ERASABLES FOR DEBUGGING PURPOSES.
008482,000298: 05,2571           40000                          CADR     VAC5STOR                              
008483,000299: 05,2572           34752                          CA       BIT15                                 #  TEST OSC FAIL BIT TO SEE IF WE HAVE
008484,000300: 05,2573           00006                          EXTEND                                         #  HAD A POWER TRANSIENT. IF SO, ATTEMPT
008485,000301: 05,2574           03033                          WAND     CHAN33                                #  A RESTART. IF NOT, CHECK THE PRESENT
008486,000302: 05,2575           00006                          EXTEND                                         #  STATE OF AGC WARNING BIT.
008487,000303: 05,2576           12604                          BZF      BUTTONS                               
008488,000304: 
008489,000305: 05,2577           34753                          CA       BIT14                                 #  IF AGC WARNING ON (BIT = 0), DO A
008490,000306: 05,2600           00006                          EXTEND                                         #  FRESH START ON ASSUMPTION THAT
008491,000307: 05,2601           02033                          RAND     CHAN33                                #  WE ARE IN A RESTART LOOP.
008492,000308: 05,2602           00006                          EXTEND                                         
008493,000309: 05,2603           13044                          BZF      NONAVKEY   +1                         
008494,000310: 
008495,000311: 05,2604           03023        BUTTONS           TC       LIGHTSET                              #  MAKE FRESH START CHECKS BEFORE ERESTORE.
008496,000312: 
008497,000313:                                                                                                 #  ERASCHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X
008498,000314:                                                                                                 #  AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
008499,000315:                                                                                                 #  ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
008500,000316:                                                                                                 #  EQUAL C(SKEEP7), AND SHOULD BE A + NUMBER LESS THAN 2000 OCT.  OTHERWISE
008501,000317:                                                                                                 #  C(ERESTORE) SHOULD EQUAL +0.
008502,000318: 
008503,000319: 05,2605           34344                          CAF      HI5                                   
008504,000320: 05,2606           71360                          MASK     ERESTORE                              
008505,000321: 05,2607           00006                          EXTEND                                         
008506,000322: 05,2610           12612                          BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
008507,000323: 05,2611           13044                          TCF      NONAVKEY   +1                         #  DOUBT E MEMORY AND DO A FRESH START
008508,000324: 05,2612           41360                          CS       ERESTORE                              
008509,000325: 05,2613           00006                          EXTEND                                         
008510,000326: 05,2614           12631                          BZF      ELRSKIP    -1                         
008511,000327: 05,2615           61377                          AD       SKEEP7                                
008512,000328: 05,2616           00006                          EXTEND                                         
008513,000329: 05,2617           12621                          BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
008514,000330: 05,2620           13044                          TCF      NONAVKEY   +1                         #  NOT = SKEEP7, DOUBT EMEM, DO FRESH START
008515,000331: 05,2621           31374                          CA       SKEEP4                                
008516,000332: 05,2622           54003                          TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
008517,000333: 05,2623           00006                          EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
008518,000334: 05,2624           31376                          DCA      SKEEP5                                
008519,000335: 05,2625           51377                          INDEX    SKEEP7                                
008520,000336: 05,2626           52001                          DXCH     0000                                  #  E MEMORY RESTORED.
008521,000337: 05,2627           34772                          CA       ZERO                                  
008522,000338: 05,2630           55360                          TS       ERESTORE                              

Page 199

008524,000340: 05,2631           03046                 -1       TC       STARTSUB                              #  DO INITIALIZATION AFTER ERASE RESTORE.
008525,000341: 05,2632           30102        ELRSKIP           CA       FLAGWRD6                              #  RESTART AUTOPILOTS
008526,000342: 05,2633           74076                          MASK     DPCONFIG                              
008527,000343: 05,2634           00006                          EXTEND                                         
008528,000344: 05,2635           74766                          MP       BIT3                                  #  BITS 15,14     00      T5IDLOC
008529,000345: 05,2636           76211                          MASK     SIX                                   #                 01      REDORCS
008530,000346: 05,2637           00006                          EXTEND                                         #                 10      REDOTVC
008531,000347: 05,2640           50000                          INDEX    A                                     #                 11      REDOSAT
008532,000348: 05,2641           33231                          DCA      T5IDLER                               
008533,000349: 05,2642           52113                          DXCH     T5LOC                                 
008534,000350: 
008535,000351: 05,2643           44753                          CS       INTFLBIT                              
008536,000352: 05,2644           70106                          MASK     FLGWRD10                              
008537,000353: 05,2645           54106                          TS       FLGWRD10                              
008538,000354: 
008539,000355: 05,2646           31337                          CA       OPTMODES                              
008540,000356: 05,2647           75001                          MASK     OPTINITR                              
008541,000357: 05,2650           64762                          AD       OCDUFBIT                              
008542,000358: 05,2651           55337                          TS       OPTMODES                              
008543,000359: 
008544,000360: 05,2652           34763                          CAF      NOIMUDAP                              
008545,000361: 05,2653           71334                          MASK     IMODES33                              
008546,000362: 05,2654           65055                          AD       IM33INIT                              
008547,000363: 05,2655           55334                          TS       IMODES33                              
008548,000364: 
008549,000365: 05,2656           34772                          CAF      ZERO                                  
008550,000366: 05,2657           54740                          TS       TOLD                                  
008551,000367: 05,2660           54741                          TS       SOLD                                  
008552,000368: 05,2661           33250                          CA       9,6,4                                 #  LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
008553,000369: 05,2662           71241                          MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
008554,000370: 05,2663           64752                          AD       BIT15                                 
008555,000371: 05,2664           57241                          XCH      DSPTAB     +11D                       
008556,000372: 05,2665           74765                          MASK     BIT4                                  #  IF NO ATT LAMP WAS ON, LEAVE ISS IN
008557,000373: 05,2666           00006                          EXTEND                                         #  COARSE ALIGN
008558,000374: 05,2667           12676                          BZF      NOCOARSE                              
008559,000375: 05,2670           04714                          TC       IBNKCALL                              #  IF NO ATT LAMP ON, RETURN ISS TO
008560,000376: 05,2671           17070                          CADR     SETCOARS                              #         COARSE ALIGN.
008561,000377: 
008562,000378: 05,2672           36211                          CAF      SIX                                   
008563,000379: 05,2673           05233                          TC       WAITLIST                              
008564,000380: 05,2674  E3,1474                                 EBANK=   CDUIND                                
008565,000381: 05,2674           03064 16063                    2CADR    CA+ECE                                
008566,000382: 
008567,000383: 05,2676           33240        NOCOARSE          CAF      IFAILINH                              #  LEAVE FAILURE INHIBITS INTACT ON
008568,000384: 05,2677           71333                          MASK     IMODES30                              #         HARDWARE RESTART. RESET ALL
008569,000385: 05,2700           67660                          AD       IM30INIR                              #         FAILURE CODES.
008570,000386: 05,2701           55333                          TS       IMODES30                              
008571,000387: 
008572,000388: 05,2702           40101                          CS       FLAGWRD5                              
008573,000389: 05,2703           74762                          MASK     ENGONBIT                              

Page 200

008575,000391: 05,2704           10000                          CCS      A                                     
008576,000392: 05,2705           12730                          TCF      GOPROG3                               
008577,000393: 05,2706           34754                          CAF      BIT13                                 
008578,000394: 05,2707           00006                          EXTEND                                         
008579,000395: 05,2710           05011                          WOR      DSALMOUT                              #  TURN ENGINE ON
008580,000396: 05,2711           12730                          TCF      GOPROG3                               
008581,000397: 05,2712           00004        ENEMA             INHINT                                         
008582,000398: 05,2713           03023                          TC       LIGHTSET                              #  EXIT TO DOFSTART IF ERROR RESET AND
008583,000399: 05,2714           03054                          TC       STARTSB2                              #  MARK REJECT DEPRESSED SIMULTANEOUSLY
008584,000400: 05,2715           44753                          CS       INTFLBIT                              
008585,000401: 05,2716           70106                          MASK     FLGWRD10                              
008586,000402: 05,2717           54106                          TS       FLGWRD10                              
008587,000403: 
008588,000404: 05,2720           40102                          CS       FLAGWRD6                              #  IS TVC ON
008589,000405: 05,2721           74076                          MASK     DPCONFIG                              
008590,000406: 05,2722           00006                          EXTEND                                         
008591,000407: 05,2723           62730                          BZMF     GOPROG3                               #  NO
008592,000408: 
008593,000409: 05,2724           35011                          CAF      .5SEC                                 #  YES, CALL TVCEXEC TASK WHICH WAS KILLED
008594,000410: 05,2725           05233                          TC       WAITLIST                              #         IN STARTSB2.
008595,000411: 05,2726  E6,1446                                 EBANK=   CNTR                                  
008596,000412: 05,2726           03037 34066                    2CADR    TVCEXEC                               
008597,000413: 
008598,000414: 05,2730           30102        GOPROG3           CA       FLAGWRD6                              
008599,000415: 05,2731           74076                          MASK     DPCONFIG                              
008600,000416: 05,2732           00006                          EXTEND                                         
008601,000417: 05,2733           62744                          BZMF     GOPROG4                               
008602,000418: 05,2734           34764                          CAF      TRACKBIT                              
008603,000419: 05,2735           70075                          MASK     FLAGWRD1                              
008604,000420: 05,2736           10000                          CCS      A                                     
008605,000421: 05,2737           12744                          TCF      GOPROG4                               
008606,000422: 05,2740           04611                          TC       E6SETTER                              
008607,000423: 05,2741           04463                          TC       STOPRATE                              
008608,000424: 05,2742           35024                          CAF      EBANK3                                
008609,000425: 05,2743           54003                          TS       EBANK                                 
008610,000426: 05,2744           34773        GOPROG4           CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
008611,000427: 05,2745           54161        PCLOOP            TS       MPAC       +5                         
008612,000428: 05,2746           60000                          DOUBLE                                         
008613,000429: 05,2747           00006                          EXTEND                                         
008614,000430: 05,2750           50000                          INDEX    A                                     
008615,000431: 05,2751           31156                          DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
008616,000432: 05,2752           00006                          EXTEND                                         
008617,000433: 05,2753           06001                          RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
008618,000434: 05,2754           10000                          CCS      A                                     
008619,000435: 05,2755           13012                          TCF      PTBAD                                 #  RESTART FAILURE.
008620,000436: 05,2756           13012                          TCF      PTBAD                                 
008621,000437: 05,2757           13012                          TCF      PTBAD                                 
008622,000438: 
008623,000439: 05,2760           10161                          CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
008624,000440: 05,2761           12745                          TCF      PCLOOP                                

Page 201

008626,000442: 05,2762           54162                          TS       MPAC       +6                         #  SET TO +0.
008627,000443: 05,2763           05350                          TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
008628,000444: 
008629,000445: 05,2764           00004                          INHINT                                         #  RELINT DONE IN MMDSPLAY
008630,000446: 
008631,000447: 05,2765           34773                          CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
008632,000448: 05,2766           54161        NXTRST            TS       MPAC       +5                         
008633,000449: 05,2767           60000                          DOUBLE                                         
008634,000450: 05,2770           50000                          INDEX    A                                     
008635,000451: 05,2771           11156                          CCS      PHASE1                                
008636,000452: 05,2772           12774                          TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
008637,000453: 05,2773           13001                          TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
008638,000454: 
008639,000455: 05,2774           54154        PACTIVE           TS       MPAC                                  
008640,000456: 05,2775           24154                          INCR     MPAC                                  #  ABS OF PHASE.
008641,000457: 05,2776           24162                          INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
008642,000458: 05,2777           04636                          TC       BANKCALL                              
008643,000459: 05,3000           03467                          CADR     RESTARTS                              
008644,000460: 
008645,000461: 05,3001           10161        PINACT            CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
008646,000462: 05,3002           12766                          TCF      NXTRST                                
008647,000463: 
008648,000464: 05,3003           10162                          CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
008649,000465: 05,3004           12534                          TCF      ENDRSTRT                              #  PHASE ACTIVE
008650,000466: 05,3005           34752                          CAF      BIT15                                 #  IS MODE -0
008651,000467: 05,3006           71214                          MASK     MODREG                                
008652,000468: 05,3007           00006                          EXTEND                                         
008653,000469: 05,3010           14103                          BZF      GOTOPOOH                              #  NO
008654,000470: 05,3011           12534                          TCF      ENDRSTRT                              #  YES
008655,000471: 05,3012           05671        PTBAD             TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
008656,000472: 05,3013           01107                          OCT      1107                                  
008657,000473: 
008658,000474: 05,3014           12414                          TCF      DOFSTART                              #  IN R21.
008659,000475: 
008660,000476:                                                                                                 #  ******** ****** ******
008661,000477: 
008662,000478:                                                                                                 #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE.
008663,000479: 
008664,000480: 05,3015           00004        GOPROG2           INHINT                                         
008665,000481: 05,3016           03054                          TC       STARTSB2                              
008666,000482: 05,3017           44753                          CS       INTFLBIT                              
008667,000483: 05,3020           70106                          MASK     FLGWRD10                              
008668,000484: 05,3021           54106                          TS       FLGWRD10                              
008669,000485: 05,3022           12744                          TCF      GOPROG4                               
008670,000486: 05,3023     4754               OCT10000          =        BIT13                                 
008671,000487: 05,3023     4346               OCT30000          =        PRIO30                                
008672,000488: 05,3023           34762        LIGHTSET          CAF      BIT7                                  #  DOFSTART IF MARK REJECT AND EITHER
008673,000489: 05,3024           00006                          EXTEND                                         #  ERROR LIGHT RESET BUTTONS ARE DEPRESSED
008674,000490: 05,3025           02016                          RAND     NAVKEYIN                              
008675,000491: 05,3026           00006                          EXTEND                                         

Page 202

008677,000493: 05,3027           13043                          BZF      NONAVKEY                              #  NO MARK REJECT
008678,000494: 05,3030           34342                          CAF      OCT37                                 
008679,000495: 05,3031           00006                          EXTEND                                         
008680,000496: 05,3032           02016                          RAND     NAVKEYIN                              #  NAV DSKY KEYCODES,MARK,MARK REJECT
008681,000497: 05,3033           63246                          AD       -ELR                                  
008682,000498: 05,3034           00006                          EXTEND                                         
008683,000499: 05,3035           13044                          BZF      NONAVKEY   +1                         
008684,000500: 05,3036           00006                          EXTEND                                         
008685,000501: 05,3037           00015                          READ     MNKEYIN                               #  MAIN DSKY KEYCODES
008686,000502: 05,3040           63246                          AD       -ELR                                  
008687,000503: 05,3041           00006                          EXTEND                                         
008688,000504: 05,3042           13044                          BZF      +2                                    
008689,000505: 
008690,000506: 05,3043           00002        NONAVKEY          TC       Q                                     
008691,000507: 
008692,000508: 05,3044           03046                 +1       TC       STARTSUB                              
008693,000509: 05,3045           12414                          TCF      DOFSTART                              
008694,000510: 05,3046           33241        STARTSUB          CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
008695,000511: 05,3047           54334                          TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE
008696,000512:                                                                                                 #  INTERRUPTED AND START SENDING FROM THE
008697,000513:                                                                                                 #  BEGINNING OF THE CURRENT DOWNLIST.
008698,000514: 
008699,000515: 05,3050           37662                          CAF      OCT37774                              #  37774 TO TIME5
008700,000516: 05,3051           54030                          TS       TIME5                                 
008701,000517: 05,3052           64770                          AD       ONE                                   #  37775 TO TIME4
008702,000518: 05,3053           54027                          TS       TIME4                                 
008703,000519: 
008704,000520: 05,3054           33244        STARTSB2          CAF      OCT77603                              #  TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
008705,000521: 05,3055           00006                          EXTEND                                         #  FLASH, OP. ERROR, LEAVE OTHERS UNCHANGED
008706,000522: 05,3056           03011                          WAND     DSALMOUT                              
008707,000523: 
008708,000524: 05,3057           34750                          CAF      POSMAX                                #  37777 to TIME3.
008709,000525: 05,3060           54026                          TS       TIME3                                 
008710,000526: 
008711,000527: 05,3061           33245                          CAF      OCT74777                              #  TURN OFF TEST ALARMS, STANDBY ENABLE.
008712,000528: 05,3062           00006                          EXTEND                                         
008713,000529: 05,3063           03013                          WAND     CHAN13                                
008714,000530: 05,3064           34753                          CAF      R21BIT                                #  CLEAR BITS
008715,000531: 05,3065           64755                          AD       P21BIT                                
008716,000532: 05,3066           64757                          AD       SKIPVBIT                              #  NOW SET SKIPVHF FLAG.
008717,000533: 05,3067           40000                          COM                                            
008718,000534: 05,3070           70076                          MASK     FLAGWRD2                              
008719,000535: 05,3071           64757                          AD       SKIPVBIT                              #  NOW SET SKIPVHF FLAG.
008720,000536: 05,3072           54076                          TS       FLAGWRD2                              
008721,000537: 05,3073           44765                          CS       MARKBIT                               
008722,000538: 05,3074           70075                          MASK     FLAGWRD1                              
008723,000539: 05,3075           54075                          TS       FLAGWRD1                              
008724,000540: 
008725,000541: 05,3076           44765                          CS       CYC61BIT                              
008726,000542: 05,3077           70074                          MASK     FLAGWRD0                              

Page 203

008728,000544: 05,3100           54074                          TS       FLAGWRD0                              
008729,000545: 05,3101  E3,1400                                 EBANK=   LST1                                  
008730,000546: 05,3101           35024                          CAF      EBANK3                                
008731,000547: 05,3102           54003                          TS       EBANK                                 #  SET FOR E3
008732,000548: 
008733,000549: 05,3103           34751                          CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
008734,000550: 05,3104           55407                          TS       LST1       +7                         
008735,000551: 05,3105           55406                          TS       LST1       +6                         
008736,000552: 05,3106           55405                          TS       LST1       +5                         
008737,000553: 05,3107           55404                          TS       LST1       +4                         
008738,000554: 05,3110           55403                          TS       LST1       +3                         
008739,000555: 05,3111           55402                          TS       LST1       +2                         
008740,000556: 05,3112           55401                          TS       LST1       +1                         
008741,000557: 05,3113           55400                          TS       LST1                                  
008742,000558: 
008743,000559: 05,3114           45274                          CS       ENDTASK                               
008744,000560: 05,3115           55410                          TS       LST2                                  
008745,000561: 05,3116           55412                          TS       LST2       +2                         
008746,000562: 05,3117           55414                          TS       LST2       +4                         
008747,000563: 05,3120           55416                          TS       LST2       +6                         
008748,000564: 05,3121           55420                          TS       LST2       +8D                        
008749,000565: 05,3122           55422                          TS       LST2       +10D                       
008750,000566: 05,3123           55424                          TS       LST2       +12D                       
008751,000567: 05,3124           55426                          TS       LST2       +14D                       
008752,000568: 05,3125           55430                          TS       LST2       +16D                       
008753,000569: 05,3126           45275                          CS       ENDTASK    +1                         
008754,000570: 05,3127           55411                          TS       LST2       +1                         
008755,000571: 05,3130           55413                          TS       LST2       +3                         
008756,000572: 05,3131           55415                          TS       LST2       +5                         
008757,000573: 05,3132           55417                          TS       LST2       +7                         
008758,000574: 05,3133           55421                          TS       LST2       +9D                        
008759,000575: 05,3134           55423                          TS       LST2       +11D                       
008760,000576: 05,3135           55425                          TS       LST2       +13D                       
008761,000577: 05,3136           55427                          TS       LST2       +15D                       
008762,000578: 05,3137           55431                          TS       LST2       +17D                       
008763,000579: 
008764,000580: 05,3140           44772                          CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
008765,000581: 05,3141           54167                          TS       PRIORITY                              #  AVAILABLE.
008766,000582: 05,3142           54203                          TS       PRIORITY   +12D                       
008767,000583: 05,3143           54217                          TS       PRIORITY   +24D                       
008768,000584: 05,3144           54233                          TS       PRIORITY   +36D                       
008769,000585: 05,3145           54247                          TS       PRIORITY   +48D                       
008770,000586: 05,3146           54263                          TS       PRIORITY   +60D                       
008771,000587: 05,3147           54277                          TS       PRIORITY   +72D                       
008772,000588: 
008773,000589: 05,3150           55322                          TS       DSRUPTSW                              
008774,000590: 05,3151           54067                          TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
008775,000591: 
008776,000592: 05,3152           33243                          CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
008777,000593: 05,3153           54400                          TS       VAC1USE                               

Page 204

008779,000595: 05,3154           65005                          AD       LTHVACA                               
008780,000596: 05,3155           54454                          TS       VAC2USE                               
008781,000597: 05,3156           65005                          AD       LTHVACA                               
008782,000598: 05,3157           54530                          TS       VAC3USE                               
008783,000599: 05,3160           65005                          AD       LTHVACA                               
008784,000600: 05,3161           54604                          TS       VAC4USE                               
008785,000601: 05,3162           65005                          AD       LTHVACA                               
008786,000602: 05,3163           54660                          TS       VAC5USE                               
008787,000603: 
008788,000604: 05,3164           34355                          CAF      TEN                                   #  BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN,
008789,000605:                                                                                                 #  R1,R2,R3)
008790,000606: 05,3165           54154        DSPOFF            TS       MPAC                                  
008791,000607: 05,3166           44755                          CS       BIT12                                 
008792,000608: 05,3167           50154                          INDEX    MPAC                                  
008793,000609: 05,3170           55226                          TS       DSPTAB                                
008794,000610: 05,3171           10154                          CCS      MPAC                                  
008795,000611: 05,3172           13165                          TCF      DSPOFF                                
008796,000612: 
008797,000613: 05,3173           55000                          TS       DELAYLOC                              
008798,000614: 05,3174           55001                          TS       DELAYLOC   +1                         
008799,000615: 05,3175           55002                          TS       DELAYLOC   +2                         
008800,000616: 05,3176           55003                          TS       DELAYLOC   +3                         
008801,000617: 05,3177           54045                          TS       INLINK                                
008802,000618: 05,3200           55201                          TS       DSPCNT                                
008803,000619: 05,3201           55245                          TS       CADRSTOR                              
008804,000620: 05,3202           55216                          TS       REQRET                                
008805,000621: 05,3203           55220                          TS       CLPASS                                
008806,000622: 05,3204           55215                          TS       DSPLOCK                               
008807,000623: 05,3205           55223                          TS       MONSAVE                               #  KILL MONITOR
008808,000624: 05,3206           55224                          TS       MONSAVE1                              
008809,000625: 05,3207           55204                          TS       VERBREG                               
008810,000626: 05,3210           55205                          TS       NOUNREG                               
008811,000627: 05,3211           55246                          TS       DSPLIST                               
008812,000628: 05,3212           55335                          TS       IMUCADR                               
008813,000629: 05,3213           55324                          TS       LGYRO                                 
008814,000630: 05,3214           54100                          TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
008815,000631: 05,3215           54301                          TS       MARKINDX                              
008816,000632: 05,3216           55247                          TS       EXTVBACT                              
008817,000633: 05,3217           34775                          CAF      NOUTCON                               
008818,000634: 05,3220           55221                          TS       NOUT                                  
008819,000635: 
008820,000636: 05,3221           33242                          CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
008821,000637: 05,3222           55361                          TS       SELFRET                               
008822,000638: 
008823,000639: 05,3223           44351                          CS       VD1                                   
008824,000640: 05,3224           55202                          TS       DSPCOUNT                              
008825,000641: 
008826,000642: 05,3225           00002                          TC       Q                                     
008827,000643: 05,3226           30001        T5IDLOC           CA       L                                     #  T5RUPT COMES HERE EVERY 163.84 SECS
008828,000644: 05,3227           15326                          TCF      NOQRSM     +1                         #  WHEN NOBODY IS USING IT.
008829,000645: 

Page 205

008831,000647: 05,3230  E6,1645                                 EBANK=   OGANOW                                
008832,000648: 05,3230           03226 12066  T5IDLER           2CADR    T5IDLOC                               
008833,000649: 
008834,000650: 05,3232  E6,1645                                 EBANK=   OGANOW                                
008835,000651: 05,3232           02123 42066                    2CADR    REDORCS                               
008836,000652: 
008837,000653: 05,3234  E6,1645                                 EBANK=   OGANOW                                
008838,000654: 05,3234           03222 34066                    2CADR    REDOTVC                               
008839,000655: 
008840,000656: 05,3236  E6,1645                                 EBANK=   OGANOW                                
008841,000657: 05,3236           02000 54066                    2CADR    REDOSAT                               
008842,000658: 
008843,000659: 05,3240           00435        IFAILINH          OCT      435                                   
008844,000660: 05,3241           03446        LDNPHAS1          GENADR   DNPHASE1                              
008845,000661: 05,3242           03270        LESCHK            GENADR   SELFCHK                               
008846,000662: 05,3243           00400        VAC1ADRC          ADRES    VAC1USE                               
008847,000663: 05,3244           77603        OCT77603          OCT      77603                                 
008848,000664: 05,3245           74777        OCT74777          OCT      74777                                 
008849,000665: 05,3246     4773               NUMGRPS           EQUALS   FIVE                                  
008850,000666: 05,3246           77755        -ELR              OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
008851,000667: 05,3247           37411        IM30INIF          OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
008852,000668: 05,3250     7660               IM30INIR          =        PRIO37                                
008853,000669: 05,3250     5055               IM33INIT          =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
008854,000670: 05,3250           00450        9,6,4             OCT      450                                   
008855,000671: 05,3251           00130        OPTINITF          OCT      130                                   
008856,000672: 05,3252     5001               OPTINITR          =        BITS4&5                               
008857,000673: 05,3252           00000        SWINIT            OCT      0                                     
008858,000674: 05,3253           00000                          OCT      0                                     
008859,000675: 05,3254           00000                          OCT      0                                     
008860,000676: 05,3255           00000                          OCT      0                                     
008861,000677: 
008862,000678: 05,3256           00000                          OCT      0                                     
008863,000679: 05,3257           00200                          OCT      00200                                 
008864,000680: 05,3260           00004                          OCT      00004                                 #  .05GSW
008865,000681: 05,3261           00000                          OCT      0                                     
008866,000682: 05,3262           00000                          OCT      0                                     
008867,000683: 05,3263           00000                          OCT      0                                     
008868,000684: 05,3264           00000                          OCT      0                                     
008869,000685: 05,3265           00000                          OCT      0                                     

Page 206

008871,000687:                                                                                                 #  ROUTINE NAME           GOTOPOOH -- ENTRANCE TO ROUTINE R00 (SELECTION OF NEW PROGRAM VIA V37)
008872,000688:                                                                                                 #  FUNCTIONAL DESCRIPTION
008873,000689: 
008874,000690:                                                                                                 #         1. FLASH V37    TO REQUEST SELECTION OF NEW PROGRAM
008875,000691: 
008876,000692:    4000                                          SETLOC   FFTAG10                               
008877,000693:    4000                                          BANK                                           
008878,000694: 
008879,000695:    4103                                          COUNT*   $$/POO                                
008880,000696:    4103           05561        GOTOPOOH          TC       DOWNFLAG                              
008881,000697:    4104           00236                          ADRES    AUTOSEQ                               
008882,000698:    4105           05402        MNKGOPOO          TC       PHASCHNG                              
008883,000699:    4106           05024                          OCT      05024                                 
008884,000700:    4107           13000                          OCT      13000                                 
008885,000701:    4110           04655                          TC       POSTJUMP                              
008886,000702:    4111           10000                          CADR     GOPOOFIX                              
008887,000703:    4112           34762        AUTOCHK           CAF      AUTSQBIT                              #  IS THIS AN AUTO SEQUENCE
008888,000704:    4113           70106                          MASK     FLGWRD10                              
008889,000705:    4114           00006                          EXTEND                                         
008890,000706:    4115           16711                          BZF      TCQ                                   #  NO, RETURN TO CALLER
008891,000707:    4116           05402        AUTOCHK1          TC       PHASCHNG                              
008892,000708:    4117           05024                          OCT      05024                                 
008893,000709:    4120           13000                          OCT      13000                                 
008894,000710: 
008895,000711:                                                                                                 #  GROUP 4 USE IS OK SINCE V37 TO FOLLOW
008896,000712:    4121           34754                          CAF      BIT13                                 
008897,000713:    4122           56004                          XCH      FBANK                                 #  INCORRECT IF P80'S NOT IN BANK 4 (BIT13)
008898,000714:    4123           01012                          TC       AUTPOINT                              
008899,000715: 04,2000                                          SETLOC   VERB37                                
008900,000716: 04,2000                                          BANK                                           
008901,000717: 
008902,000718: 04,2000                                          COUNT*   $$/POO                                
008903,000719: 04,2000           02767        GOPOOFIX          TC       INITSUB                               
008904,000720: 04,2001           05531                          TC       CLEARMRK   +2                         
008905,000721: 04,2002           04112                          TC       AUTOCHK                               
008906,000722: 04,2003           32006                          CAF      V37N99                                
008907,000723: 04,2004           05535                          TC       VNFLASH                               
008908,000724: 04,2005           02003                          TC       -2                                    
008909,000725: 
008910,000726: 04,2006           11343        V37N99            VN       3799                                  
008911,000727: 

Page 207

008913,000729:                                                                                                 #  PROGRAM NAME           V37                             ASSEMBLY        SUNDISK
008914,000730:                                                                                                 #  LOG SECTION            FRESH START AND RESTART
008915,000731: 
008916,000732:                                                                                                 #  FUNCTIONAL DESCRIPTION
008917,000733: 
008918,000734:                                                                                                 #         1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
008919,000735:                                                                                                 #         2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
008920,000736:                                                                                                 #            SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
008921,000737:                                                                                                 #         3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
008922,000738:                                                                                                 #         4. INTSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
008923,000739:                                                                                                 #         5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
008924,000740:                                                                                                 #         6. TRACK, UPDATE, AND TARG1 FLAGS ARE SET TO ZERO.
008925,000741:                                                                                                 #         7. DISPLAY SYSTEM IS RELEASED.
008926,000742:                                                                                                 #         8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
008927,000743:                                                                                                 #                 A. PROGRAM SELECTED IS P00.
008928,000744:                                                                                                 #                         1. RENDEZVOUS FLAG IS RESET (KILL P20).
008929,000745:                                                                                                 #                         2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
008930,000746:                                                                                                 #                         3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
008931,000747:                                                                                                 #                         4. SUPERBANK 3 IS SELECTED.
008932,000748:                                                                                                 #                         5. NODOFLAG IS RESET.
008933,000749:                                                                                                 #                         6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2)
008934,000750:                                                                                                 #                            WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
008935,000751:                                                                                                 #                            INITIATED.
008936,000752:                                                                                                 #                 B. PROGRAM SELECTED IS P20
008937,000753:                                                                                                 #                         1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
008938,000754:                                                                                                 #                            VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
008939,000755:                                                                                                 #                         2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
008940,000756:                                                                                                 #                            ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
008941,000757:                                                                                                 #                            AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
008942,000758:                                                                                                 #                            P20 IS RESTARTED TO CONTINUE, AND ITS MAJOR MODE IS SET.
008943,000759:                                                                                                 #                         3. CONTROL IS TRANSFERRED TO GOPROG2.
008944,000760:                                                                                                 #                 C. PROGRAM SELECTED IS NEITHER P00 NOR P20
008945,000761:                                                                                                 #                         1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
008946,000762:                                                                                                 #                         2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
008947,000763:                                                                                                 #                            GROUPS. GROUP 2 IS CLEARED. IF THE RENDEZVOUS FLAG IS ON P20 IS RESTARTED IN GOPROG2 VIA REDOP20,
008948,000764:                                                                                                 #                            TO CONTINUE.
008949,000765: 
008950,000766:                                                                                                 #  INPUT/OUTPUT INFORMATION
008951,000767: 
008952,000768:                                                                                                 #         A. CALLING SEQUENCE
008953,000769: 
008954,000770:                                                                                                 #                 CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
008955,000771:                                                                                                 #                 VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
008956,000772:                                                                                                 #                 MMCHANG EXECUTES A      TC POSTJUMP, CADR V37.
008957,000773: 
008958,000774:                                                                                                 #         B. ERASABLE INITIALIZATION              NONE
008959,000775: 
008960,000776:                                                                                                 #         C. OUTPUT
008961,000777:                                                                                                 #                 MAJOR MODE CHANGE

Page 208

008963,000779: 
008964,000780:                                                                                                 #         D. DEBRIS
008965,000781:                                                                                                 #                 MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
008966,000782:                                                                                                 #                 GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
008967,000783: 
008968,000784:                                                                                                 #  PROGRAM ANALYSIS
008969,000785: 
008970,000786:                                                                                                 #         A. SUBROUTINES CALLED
008971,000787:                                                                                                 #                 ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
008972,000788:                                                                                                 #                 DSPMM
008973,000789: 
008974,000790:                                                                                                 #         B. NORMAL EXIT                          TC ENDOFJOB
008975,000791: 
008976,000792:                                                                                                 #         C. ALARMS                               1520 (MAJOR MODE CHANGE NOT PERMITTED)
008977,000793: 
008978,000794:    4000                                          SETLOC   FFTAG10                               
008979,000795:    4000                                          BANK                                           
008980,000796: 
008981,000797:    4124                                          COUNT*   $$/V37                                
008982,000798:    4124           00024        OCT24             MM       20         B-14                       
008983,000799:    4125           00031        OCT31             MM       25         B-14                       
008984,000800: 04,2000                                          SETLOC   VERB37                                
008985,000801: 04,2000                                          BANK                                           
008986,000802: 
008987,000803: 04,2007                                          COUNT*   $$/V37                                
008988,000804: 04,2007           55200        V37               TS       MMNUMBER                              #  SAVE MAJOR MODE
008989,000805: 04,2010           05561                          TC       DOWNFLAG                              
008990,000806: 04,2011           00236                          ADRES    AUTOSEQ                               
008991,000807: 04,2012           05561                          TC       DOWNFLAG                              
008992,000808: 04,2013           00226                          ADRES    PCMANFLG                              
008993,000809: 04,2014           05561                          TC       DOWNFLAG                              
008994,000810: 04,2015           00215                          ADRES    VHFRFLAG                              
008995,000811: 04,2016           04606                          TC       E7SETTER                              
008996,000812: 04,2017  E7,1722                                 EBANK=   MRKBUF1                               
008997,000813: 04,2017           37702                          CAF      NEGONE                                
008998,000814: 04,2020           55722                          TS       MRKBUF1                               #  TO PREVENT P20 FROM PROCESSING P50's MRK
008999,000815: 04,2021           40077                          CS       FLAGWRD3                              
009000,000816: 04,2022           74754                          MASK     REFSMBIT                              
009001,000817: 04,2023           10000                          CCS      A                                     
009002,000818: 04,2024           12044                          TCF      AUTO37                                
009003,000819: 04,2025           31200                          CA       MMNUMBER                              
009004,000820: 04,2026           62031                          AD       NEG79                                 
009005,000821: 04,2027           10000                          CCS      A                                     
009006,000822: 04,2030           12375                          TCF      V37NONO                               
009007,000823: 04,2031           77660        NEG79             DEC      -79        B-14                       
009008,000824: 04,2032           12035                          TCF      MMOK                                  
009009,000825: 04,2033           31200        RENDP79           CA       MMNUMBER                              
009010,000826: 04,2034           12410                          TCF      REND30S    +1                         
009011,000827: 04,2035           31200        MMOK              CA       MMNUMBER                              
009012,000828: 04,2036           62406                          AD       NEG30                                 
009013,000829: 04,2037           00006                          EXTEND                                         

Page 209

009015,000831: 04,2040           62044                          BZMF     AUTO37                                #  P01 - P30
009016,000832: 04,2041           63770                          AD       NEG6                                  
009017,000833: 04,2042           00006                          EXTEND                                         
009018,000834: 04,2043           62407                          BZMF     REND30S                               #  P31 - P36 RENDEZVOUS
009019,000835: 04,2044           34346        AUTO37            CAF      PRIO30                                
009020,000836: 04,2045           54365                          TS       RESTREG                               
009021,000837: 
009022,000838: 04,2046           34772                          CAF      ZERO                                  #  ZERO OUT AUTO OPTICS RATE REGS
009023,000839: 04,2047           54740                          TS       TOLD                                  
009024,000840: 04,2050           54741                          TS       SOLD                                  
009025,000841: 04,2051           54735                          TS       TRATE                                 
009026,000842: 04,2052           54736                          TS       SRATE                                 
009027,000843: 04,2053           05561                          TC       DOWNFLAG                              
009028,000844: 04,2054           00210                          ADRES    P24FLAG                               
009029,000845: 04,2055           31333                          CA       IMODES30                              #  IS IMU BEING INITIALIZED
009030,000846: 04,2056           74763                          MASK     IMUNITBT                              
009031,000847: 04,2057           10000                          CCS      A                                     
009032,000848: 04,2060           12125                          TCF      CANTROO                               
009033,000849: 
009034,000850: 04,2061           34762                          CAF      ENGONBIT                              #  IS ENGINE ON
009035,000851: 04,2062           70101                          MASK     FLAGWRD5                              
009036,000852: 04,2063           10000                          CCS      A                                     
009037,000853: 04,2064           12071                          TCF      ROOTOPOO                              #  YES, SET UP FOR POO
009038,000854: 
009039,000855: 04,2065           40102                          CS       FLAGWRD6                              #  NO, IS TVC DAP ON
009040,000856: 04,2066           74076                          MASK     DPCONFIG                              
009041,000857: 04,2067           00006                          EXTEND                                         
009042,000858: 04,2070           62116                          BZMF     ISITPOO                               #  NO, CONTINUE WITH ROO
009043,000859: 
009044,000860: 04,2071           04611        ROOTOPOO          TC       E6SETTER                              
009045,000861: 
009046,000862: 04,2072  E6,1465                                 EBANK=   DAPDATR1                              
009047,000863: 04,2072           04636                          TC       BANKCALL                              #  SPSOFF DOES AN INHINT
009048,000864: 04,2073           51045                          CADR     SPSOFF                                
009049,000865: 04,2074           04714                          TC       IBNKCALL                              
009050,000866: 04,2075           13313                          CADR     MASSPROP                              
009051,000867: 04,2076           33054                          CAF      3.1SEC                                
009052,000868: 04,2077           04714                          TC       IBNKCALL                              
009053,000869: 04,2100           42043                          CADR     RCSDAPON   +1                         
009054,000870: 
009055,000871: 04,2101           04714                          TC       IBNKCALL                              
009056,000872: 04,2102           51161                          CADR     TVCZAP                                #  DISABLE TVC
009057,000873: 04,2103           34772                          CAF      ZERO                                  
009058,000874: 04,2104           55200                          TS       MMNUMBER                              
009059,000875: 04,2105           00003                          RELINT                                         
009060,000876: 04,2106           34773                          CAF      FIVE                                  
009061,000877: 04,2107           04636                          TC       BANKCALL                              
009062,000878: 04,2110           01731                          CADR     DELAYJOB                              
009063,000879: 04,2111           34772                          CAF      ZERO                                  
009064,000880: 04,2112           00006                          EXTEND                                         

Page 210

009066,000882: 04,2113           01005                          WRITE    5                                     
009067,000883: 04,2114           00006                          EXTEND                                         
009068,000884: 04,2115           01006                          WRITE    6                                     
009069,000885: 04,2116           31200        ISITPOO           CA       MMNUMBER                              
009070,000886: 04,2117           00006                          EXTEND                                         
009071,000887: 04,2120           12151                          BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
009072,000888: 
009073,000889: 04,2121           40076                          CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
009074,000890: 04,2122           74770                          MASK     NODOBIT                               
009075,000891: 04,2123           10000                          CCS      A                                     
009076,000892: 04,2124           12132                          TCF      CHECKTAB                              #  NO
009077,000893: 04,2125           05671        CANTROO           TC       ALARM                                 
009078,000894: 04,2126           01520                          OCT      1520                                  
009079,000895: 
009080,000896: 04,2127           04432        V37BAD            TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
009081,000897: 
009082,000898: 04,2130           04655                          TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
009083,000899: 04,2131           21275                          CADR     PINBRNCH                              #  WAS ONE. OY
009084,000900: 
009085,000901: 04,2132           33173        CHECKTAB          CA       NOV37MM                               #  THE NO. OF MM
009086,000902: 04,2133           54155        AGAINMM           TS       MPAC       +1                         
009087,000903: 04,2134           50155                          NDX      MPAC       +1                         
009088,000904: 04,2135           33124                          CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
009089,000905: 04,2136           76043                          MASK     LOW7                                  
009090,000906: 04,2137           40000                          COM                                            
009091,000907: 04,2140           61200                          AD       MMNUMBER                              
009092,000908: 04,2141           10000                          CCS      A                                     
009093,000909: 04,2142           10155                          CCS      MPAC       +1                         #  IF GR, SEE IF ANY MORE IN LIST
009094,000910: 04,2143           12133                          TCF      AGAINMM                               #  YES, GET NEXT ONE
009095,000911: 04,2144           12375                          TCF      V37NONO                               #  LAST TIME OR PASSED MM
009096,000912: 
009097,000913: 04,2145           30155                          CA       MPAC       +1                         
009098,000914: 04,2146           55177                          TS       MINDEX                                #  SAVE INDEX FOR LATER
009099,000915: 
009100,000916: 04,2147           05547                          TC       UPFLAG                                
009101,000917: 04,2150           00055                          ADRES    V50N18FL                              #  66935 55  518 490731Y
009102,000918: 
009103,000919: 04,2151           40103        ISSERVON          CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
009104,000920: 04,2152           74763                          MASK     V37FLBIT                              
009105,000921: 04,2153           10000                          CCS      A                                     
009106,000922: 04,2154           12162                          TCF      CANV37                                #  NO
009107,000923: 
009108,000924: 04,2155           00004                          INHINT                                         
009109,000925: 04,2156           44770                          CS       AVEGBIT                               #  YES TURN OFF AVERAGE G FLAG AND WAIT
009110,000926: 04,2157           70075                          MASK     FLAGWRD1                              #  FOR SERVICER TO RETURN TO CANV37
009111,000927: 04,2160           54075                          TS       FLAGWRD1                              
009112,000928: 
009113,000929: 04,2161           15205                          TCF      ENDOFJOB                              
009114,000930: 
009115,000931: 04,2162           33053        CANV37            CAF      ROOAD                                 

Page 211

009117,000933: 04,2163           54373                          TS       TEMPFLSH                              
009118,000934: 
009119,000935: 04,2164           05402                          TC       PHASCHNG                              
009120,000936: 04,2165           00014                          OCT      14                                    
009121,000937: 
009122,000938: 04,2166           06006        ROO               TC       INTPRET                               
009123,000939: 
009124,000940: 04,2167           77624                          CALL                                           #  WAIT FOR INTEGRATION TO FINISH
009125,000941: 04,2170           27516                                   INTSTALL                              
009126,000942: 04,2171           77776        DUMMYAD           EXIT                                           
009127,000943: 
009128,000944: 04,2172           45024                          CS       OCT1400                               #  CLEAR CAUTION RESET
009129,000945: 04,2173           00006                          EXTEND                                         #    AND TEST CONNECTOR OUTBIT
009130,000946: 04,2174           03011                          WAND     11                                    
009131,000947: 
009132,000948: 04,2175           33046                          CAF      OCT44571                              #  CLEAR ENABLE OPTICS ERROR COUNTER, STAR
009133,000949: 04,2176           00006                          EXTEND                                         #  TRACKERS ON BIT, TVC ENABLE, ZERO OPTICS,
009134,000950: 04,2177           03012                          WAND     12                                    #  DISENGAGE OPTICS DAP, SIVB INJ SEQUENCE
009135,000951:                                                                                                 #  START, AND SIVB CUTOFF BIT.
009136,000952: 
009137,000953: 04,2200           43047                          CS       OCT600                                #  CLEAR UNUSED BITS
009138,000954: 04,2201           00006                          EXTEND                                         
009139,000955: 04,2202           03013                          WAND     13                                    
009140,000956: 
009141,000957: 04,2203           02767                          TC       INITSUB                               
009142,000958: 
009143,000959: 04,2204           05527                          TC       CLEARMRK                              
009144,000960: 
009145,000961: 04,2205           34772                          CAF      ZERO                                  
009146,000962: 04,2206           54304                          TS       STARIND                               
009147,000963: 
009148,000964: 04,2207           05561                          TC       DOWNFLAG                              
009149,000965: 04,2210           00020                          ADRES    STIKFLAG                              
009150,000966: 
009151,000967: 04,2211           04415                          TC       UPACTOFF                              #  TURN OFF UPLINK ACTIV LIGHT
009152,000968: 
009153,000969: 04,2212           05561                          TC       DOWNFLAG                              
009154,000970: 04,2213           00037                          ADRES    R21MARK                               
009155,000971: 
009156,000972: 04,2214           11200                          CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
009157,000973: 04,2215           12352                          TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
009158,000974: 
009159,000975: 04,2216                                          COUNT*   $$/POO                                
009160,000976: 04,2216           04432        POOH              TC       RELDSP                                #  RELEASE DISPLAY SYSTEM
009161,000977: 
009162,000978: 04,2217           35047                          CAF      PRIO5                                 #  SET VARIABLE RESTART REGISTER FOR P00.
009163,000979: 04,2220           55262                          TS       PHSPRDT2                              
009164,000980: 
009165,000981: 04,2221           00004                          INHINT                                         

Page 212

009167,000983: 04,2222           44770                          CS       NODOBIT                               #  TURN OFF NODOFLAG
009168,000984: 04,2223           70076                          MASK     FLAGWRD2                              
009169,000985: 04,2224           54076                          TS       FLAGWRD2                              
009170,000986: 
009171,000987: 04,2225           34773                          CA       FIVE                                  #  SET 2.5 RESTART FOR STATEINT1
009172,000988: 04,2226           54001                          TS       L                                     
009173,000989: 04,2227           40000                          COM                                            
009174,000990: 04,2230  01,2036               2P5SPT1           =        2.5SPOT                               
009175,000991: 04,2230           53160                          DXCH     -PHASE2                               
009176,000992: 
009177,000993: 04,2231           34761                          CA       IMUSEBIT                              #  RESET IMUSE AND
009178,000994: 04,2232           64762                          AD       RNDVZBIT                              #  KILL P20
009179,000995: 04,2233           40000                          COM                                            
009180,000996: 04,2234           70074                          MASK     FLAGWRD0                              
009181,000997: 04,2235           54074                          TS       FLAGWRD0                              #                          RENDFLG
009182,000998: 
009183,000999: 04,2236           44760                          CS       UTBIT                                 
009184,001000: 04,2237           70104                          MASK     FLAGWRD8                              
009185,001001: 04,2240           54104                          TS       FLAGWRD8                              
009186,001002: 
009187,001003: 04,2241           34772                          CAF      DNLADP00                              
009188,001004: 
009189,001005: 04,2242                                          COUNT*   $$/V37                                
009190,001006: 04,2242           54332        SEUDOPOO          TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST.
009191,001007:                                                                                                 #  (OLD ONE WILL BE FINISHED FIRST)
009192,001008: 
009193,001009: 04,2243           34764                          CA       TRACKBIT                              
009194,001010: 04,2244           64757                          AD       TARG1BIT                              
009195,001011: 04,2245           64762                          AD       UPDATBIT                              
009196,001012: 04,2246           40000                          COM                                            
009197,001013: 04,2247           55275                          TS       EBANKTEM                              
009198,001014: 04,2250           70075                          MASK     FLAGWRD1                              
009199,001015: 04,2251           54075                          TS       FLAGWRD1                              
009200,001016: 
009201,001017: 04,2252           44767                          CS       R67BIT                                #  CLEAR R67FLAG. P20 WILL SET IT AGAIN.
009202,001018: 04,2253           70104                          MASK     FLAGWRD8                              
009203,001019: 04,2254           54104                          TS       FLAGWRD8                              
009204,001020: 
009205,001021: 04,2255           04714        GROUPKIL          TC       IBNKCALL                              #  KILL GROUPS 3,5,6
009206,001022: 04,2256           12550                          CADR     V37KLEAN                              
009207,001023: 
009208,001024: 04,2257           11200                          CCS      MMNUMBER                              #  IS IT POOH
009209,001025: 04,2260           12270                          TCF      RENDVOO                               #  NO
009210,001026: 04,2261           04714                          TC       IBNKCALL                              
009211,001027: 04,2262           12542                          CADR     POOKLEAN                              #  REDUNDANT EXCEPT FOR GROUP 4.
009212,001028: 
009213,001029: 04,2263           03002                          TC       INITSUBA                              
009214,001030: 04,2264           31200        GOMOD             CA       MMNUMBER                              
009215,001031: 04,2265           55214                          TS       MODREG                                
009216,001032: 

Page 213

009218,001034: 
009219,001035: 04,2266           04655        GOGOPROG          TC       POSTJUMP                              
009220,001036: 04,2267           13015                          CADR     GOPROG2                               
009221,001037: 
009222,001038: 04,2270           41200        RENDVOO           CS       MMNUMBER                              #  IS NEW PROG = 20
009223,001039: 04,2271           64124                          AD       OCT24                                 #  20
009224,001040: 04,2272           00006                          EXTEND                                         
009225,001041: 04,2273           12275                          BZF      RENDNOO                               #  YES
009226,001042: 04,2274           12311                          TCF      POOFIZZ                               
009227,001043: 
009228,001044: 04,2275           41200        RENDNOO           CS       MMNUMBER                              
009229,001045: 04,2276           61214                          AD       MODREG                                
009230,001046: 04,2277           00006                          EXTEND                                         
009231,001047: 04,2300           12321                          BZF      KILL20                                
009232,001048: 
009233,001049: 04,2301           30104                          CA       FLAGWRD8                              
009234,001050: 04,2302           74760                          MASK     UTBIT                                 
009235,001051: 04,2303           10000                          CCS      A                                     
009236,001052: 04,2304           12333                          TCF      STATQUO1                              
009237,001053: 
009238,001054: 04,2305           30074                          CA       FLAGWRD0                              #  IS RENDEZVOO FLAG SET
009239,001055: 04,2306           74762                          MASK     RNDVZBIT                              
009240,001056: 04,2307           10000                          CCS      A                                     
009241,001057: 04,2310           12340                          TCF      STATQUO                               
009242,001058: 
009243,001059: 04,2311           30104        POOFIZZ           CA       FLAGWRD8                              
009244,001060: 04,2312           74760                          MASK     UTBIT                                 
009245,001061: 04,2313           10000                          CCS      A                                     
009246,001062: 04,2314           12325                          TCF      KILL20     +4                         
009247,001063: 04,2315           34762                          CAF      RNDVZBIT                              
009248,001064: 04,2316           70074                          MASK     FLAGWRD0                              
009249,001065: 04,2317           10000                          CCS      A                                     
009250,001066: 04,2320           12330                          TCF      REV37                                 
009251,001067: 04,2321           00006        KILL20            EXTEND                                         #  NO, KILL GROUPS 1 + 2
009252,001068: 04,2322           34772                          DCA      NEG0                                  
009253,001069: 04,2323           53156                          DXCH     -PHASE1                               
009254,001070: 
009255,001071: 04,2324           03002                          TC       INITSUBA                              
009256,001072: 04,2325           00006                 +4       EXTEND                                         
009257,001073: 04,2326           34772                          DCA      NEG0                                  
009258,001074: 04,2327           53160                          DXCH     -PHASE2                               
009259,001075: 
009260,001076: 04,2330           33052        REV37             CAF      V37QCAD                               #  SET RESTART POINT
009261,001077: 04,2331           54373                          TS       TEMPFLSH                              
009262,001078: 
009263,001079: 04,2332           12266                          TCF      GOGOPROG                              
009264,001080: 
009265,001081: 04,2333           34773        STATQUO1          CAF      FIVE                                  #  SET 2.5 RESTART for STATEINT1
009266,001082: 04,2334           54001                          TS       L                                     
009267,001083: 04,2335  01,2036               2P5SPT2           =        2.5SPOT                               
009268,001084: 04,2335           40000                          COM                                            

Page 214

009270,001086: 04,2336           53160                          DXCH     -PHASE2                               
009271,001087: 04,2337           12343                          TCF      STATQUO    +3                         
009272,001088: 04,2340           40075        STATQUO           CS       FLAGWRD1                              #  SET TRACK FLAG AND UPDATE FLAG
009273,001089: 04,2341           74762                          MASK     UPDATBIT                              
009274,001090: 04,2342           26075                          ADS      FLAGWRD1                              
009275,001091: 04,2343           40075                 +3       CS       FLAGWRD1                              
009276,001092: 04,2344           74764                          MASK     TRACKBIT                              
009277,001093: 04,2345           26075                          ADS      FLAGWRD1                              
009278,001094: 
009279,001095: 04,2346           00006                          EXTEND                                         #  KILL GROUP 4
009280,001096: 04,2347           34772                          DCA      NEG0                                  
009281,001097: 04,2350           53164                          DXCH     -PHASE4                               
009282,001098: 
009283,001099: 04,2351           12264                          TCF      GOMOD                                 
009284,001100: 
009285,001101: 04,2352           34762        NOUVEAU           CAF      RNDVZBIT                              
009286,001102: 04,2353           70074                          MASK     FLAGWRD0                              
009287,001103: 04,2354           10000                          CCS      A                                     
009288,001104: 04,2355           12364                          TCF      +7                                    
009289,001105: 04,2356           34760                          CAF      UTBIT                                 
009290,001106: 04,2357           70104                          MASK     FLAGWRD8                              
009291,001107: 04,2360           10000                          CCS      A                                     
009292,001108: 04,2361           12364                          TCF      +3                                    
009293,001109: 04,2362           05561                          TC       DOWNFLAG                              #  NO, RESET IMUSE FLAG.
009294,001110: 04,2363           00007                          ADRES    IMUSE                                 #  BIT 8 FLAG 0
009295,001111: 04,2364           51177                 +3       INDEX    MINDEX                                
009296,001112: 04,2365           33124                          CAF      PREMM1                                #  EXTRACT DOWNLIST ADDRESS
009297,001113: 04,2366           54022                          TS       CYL                                   #  SHIFT BITS 15 - 13 TO BITS 3 - 1
009298,001114: 04,2367           40022                          CS       CYL                                   
009299,001115: 04,2370           40022                          CS       CYL                                   
009300,001116: 04,2371           56022                          XCH      CYL                                   
009301,001117: 04,2372           74774                          MASK     SEVEN                                 #  KEEP DOWNLIST CODE BITS
009302,001118: 04,2373           00004                          INHINT                                         
009303,001119: 04,2374           12242                          TCF      SEUDOPOO                              
009304,001120: 
009305,001121: 04,2375           04362        V37NONO           TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST
009306,001122: 
009307,001123: 04,2376           12127                          TCF      V37BAD                                
009308,001124: 
009309,001125: 04,2000                                          SETLOC   VERB37                                #  MUST BE IN BANK 4 BECAUSE OF AUTOCHK
009310,001126: 04,2000                                          BANK                                           
009311,001127: 04,2377                                          COUNT*   $$/MNKEY                              
009312,001128: 04,2377           00051        DEC41             DEC      41         B-14                       
009313,001129: 04,2400           00114        DEC76             DEC      76         B-14                       
009314,001130: 04,2401           00064        DEC52             DEC      52         B-14                       
009315,001131: 04,2402     4124               DEC20             =        OCT24                                 
009316,001132: 04,2402     4342               DEC31             =        LOW5                                  
009317,001133: 04,2402     4763               DEC32             =        BIT6                                  
009318,001134: 04,2402     5004               DEC40             =        OCT50                                 
009319,001135: 04,2402     5003               DEC33             =        33DEC                                 

Page 215

009321,001137: 04,2402     4260               DEC34             =        34DEC                                 
009322,001138: 04,2402           00044        DEC36             DEC      36         B-14                       
009323,001139: 04,2403           00043        DEC35             DEC      35         B-14                       
009324,001140: 04,2404           00117        DEC79             DEC      79         B-14                       
009325,001141: 04,2405  04,3770               NEG6              =        DEC-6                                 
009326,001142: 04,2405           00126        DEC86             DEC      86         B-14                       
009327,001143: 04,2406           77741        NEG30             DEC      -30        B-14                       
009328,001144: 04,2407     5011               DEC50             =        OCT62                                 
009329,001145: 04,2407     4777               CKLSTAUT          =        LOW4                                  
009330,001146: 04,2407           62405        REND30S           AD       DEC86                                 #  CHANGE P3X to P8X
009331,001147: 04,2410           55113                 +1       TS       TEMPMM                                #         AND SAVE
009332,001148: 04,2411           34760                          CAF      UTBIT                                 
009333,001149: 04,2412           70104                          MASK     FLAGWRD8                              
009334,001150: 04,2413           00006                          EXTEND                                         
009335,001151: 04,2414           12421                          BZF      UTOFF                                 
009336,001152: 
009337,001153: 04,2415           05561                          TC       DOWNFLAG                              
009338,001154: 04,2416           00031                          ADRES    TRACKFLG                              
009339,001155: 
009340,001156: 04,2417           05561                          TC       DOWNFLAG                              
009341,001157: 04,2420           00176                          ADRES    UTFLAG                                
009342,001158: 
009343,001159: 04,2421           40074        UTOFF             CS       FLAGWRD0                              #  HAS P20 BEEN ON
009344,001160: 04,2422           74762                          MASK     RNDVZBIT                              
009345,001161: 04,2423           00006                          EXTEND                                         
009346,001162: 04,2424           12431                          BZF      NOP20                                 #  YES
009347,001163: 04,2425           05547                          TC       UPFLAG                                
009348,001164: 04,2426           00236                          ADRES    AUTOSEQ                               #  SET TO CAUSE RETURN FROM P20
009349,001165: 
009350,001166: 04,2427           34124                          CAF      DEC20                                 #  NO - TURN ON P20
009351,001167: 04,2430           02507                          TC       AUTOSET                               
009352,001168: 04,2431           31113        NOP20             CA       TEMPMM                                
009353,001169: 04,2432           55200        AUTOSETA          TS       MMNUMBER                              
009354,001170: 04,2433           02044                          TC       AUTO37                                
009355,001171: 04,2434           30002        MINKDISP          CA       Q                                     
009356,001172: 04,2435           55012                          TS       AUTPOINT                              
009357,001173: 04,2436           45011                          CS       DEC50                                 
009358,001174: 04,2437           61200                          AD       MMNUMBER                              
009359,001175: 04,2440           05347                          TC       NEWMODEA                              #  CHANGE MAJOR MODE TO 30'S
009360,001176: 04,2441           04432                          TC       RELDSP                                
009361,001177: 04,2442           34777                          CAF      CKLSTAUT                              
009362,001178: 04,2443           04636                          TC       BANKCALL                              
009363,001179: 04,2444           21067                          CADR     GOPERF1                               
009364,001180: 04,2445           14103                          TCF      GOTOPOOH                              
009365,001181: 04,2446           02452                          TC       STARTAUT                              #  PRO - DO MINKEY
009366,001182: 04,2447           05561                          TC       DOWNFLAG                              #  ENTER - NO MINKEY
009367,001183: 04,2450           00236                          ADRES    AUTOSEQ                               
009368,001184: 04,2451           01012                          TC       AUTPOINT                              
009369,001185: 04,2452           30107        STARTAUT          CA       FLGWRD11                              #  INITIALIZE MINKEY
009370,001186: 04,2453           74761                          MASK     AZIMBIT                               

Page 216

009372,001188: 04,2454           10000                          CCS      A                                     
009373,001189: 04,2455           12470                          TCF      STRTAUT1                              
009374,001190: 04,2456           05547                          TC       UPFLAG                                
009375,001191: 04,2457           00254                          ADRES    AZIMFLAG                              
009376,001192: 04,2460           22007                          ZL                                             
009377,001193: 04,2461           40106                          CS       FLGWRD10                              
009378,001194: 04,2462           74756                          MASK     HDSUPBIT                              
009379,001195: 04,2463           00006                          EXTEND                                         
009380,001196: 04,2464           12467                          BZF      +3                                    
009381,001197: 04,2465           00006                          EXTEND                                         
009382,001198: 04,2466           33760                          DCA      XUNIT                                 
009383,001199: 04,2467           53353                          DXCH     AZIMANGL                              
009384,001200: 04,2470           40101        STRTAUT1          CS       FLAGWRD5                              
009385,001201: 04,2471           74770                          MASK     RENDWBIT                              
009386,001202: 04,2472           00006                          EXTEND                                         
009387,001203: 04,2473           12500                          BZF      +5                                    #  YES
009388,001204: 04,2474           05547                          TC       UPFLAG                                #  NO
009389,001205: 04,2475           00240                          ADRES    MANEUFLG                              
009390,001206: 04,2476           05547                          TC       UPFLAG                                
009391,001207: 04,2477           00241                          ADRES    PTV93FLG                              
009392,001208: 04,2500           05547                          TC       UPFLAG                                
009393,001209: 04,2501           00215                          ADRES    VHFRFLAG                              #  EQUIVALENT TO A V87
009394,001210: 
009395,001211: 04,2502           05561                          TC       DOWNFLAG                              
009396,001212: 04,2503           00244                          ADRES    PCFLAG                                
009397,001213: 04,2504           05547                          TC       UPFLAG                                
009398,001214: 04,2505           00236                          ADRES    AUTOSEQ                               
009399,001215: 
009400,001216: 04,2506           01012                          TC       AUTPOINT                              
009401,001217: 04,2507           00006        AUTOSET           EXTEND                                         
009402,001218: 04,2510           23356                          QXCH     AUTTEMP                               
009403,001219: 04,2511           55200                 +2       TS       MMNUMBER                              
009404,001220: 04,2512           05402                          TC       PHASCHNG                              
009405,001221: 04,2513           04024                          OCT      04024                                 
009406,001222: 
009407,001223: 04,2514           31356                          CA       AUTTEMP                               
009408,001224: 04,2515           55012                          TS       AUTPOINT                              
009409,001225: 
009410,001226: 04,2516           02044                          TC       AUTO37                                
009411,001227: 
009412,001228: 04,2517           00006        BURNHOW           EXTEND                                         
009413,001229: 04,2520           23356                          QXCH     AUTTEMP                               
009414,001230: 04,2521           06006                          TC       INTPRET                               
009415,001231: 04,2522           51575                          VLOAD    ABVAL                                 
009416,001232: 04,2523           03405                                   DELVLVC                               
009417,001233: 04,2524           51025                          DSU      BPL                                   
009418,001234: 04,2525           10536                                   DV40/41                               #  THRESHOLD DELTA V FOR SPS BURN
009419,001235: 04,2526           10532                                   P40BURN                               
009420,001236: 04,2527           77776                          EXIT                                           
009421,001237: 04,2530           32377                          CAF      DEC41                                 #  CALL P41
009422,001238: 

Page 217

009424,001240: 
009425,001241: 04,2531           02511                          TC       AUTOSET    +2                         
009426,001242: 04,2532           77776        P40BURN           EXIT                                           
009427,001243: 04,2533           35004                          CAF      DEC40                                 #  CALL P40
009428,001244: 04,2534           02511                          TC       AUTOSET    +2                         
009429,001245: 04,2535           00002 27311  DV40/41           2DEC     .021336    B-7                        #  7 PPS IN M/CS B-7
009430,001246: 
009431,001247: 04,2537           02434        P81               TC       MINKDISP                              
009432,001248: 04,2540           34342        P81CONT1          CAF      DEC31                                 
009433,001249: 04,2541           02507                          TC       AUTOSET                               
009434,001250: 04,2542           02517                          TC       BURNHOW                               
009435,001251: 04,2543           02724                          TC       AFTERBRN                              
009436,001252: 04,2544           12546                          TCF      P82CONT1                              
009437,001253: 04,2545           02434        P82               TC       MINKDISP                              
009438,001254: 04,2546           05561        P82CONT1          TC       DOWNFLAG                              
009439,001255: 04,2547           00256                          ADRES    CSISFLAG                              
009440,001256: 04,2550           34763        P82CONT2          CAF      DEC32                                 
009441,001257: 04,2551           02507                          TC       AUTOSET                               
009442,001258: 04,2552           02517                          TC       BURNHOW                               
009443,001259: 04,2553           02724                          TC       AFTERBRN                              
009444,001260: 04,2554  E7,1765                                 EBANK=   NN                                    
009445,001261: 04,2554           35046                          CAF      EBANK7                                
009446,001262: 04,2555           54003                          TS       EBANK                                 
009447,001263: 04,2556           31765                          CA       NN                                    
009448,001264: 04,2557           67701                          AD       NEG2                                  
009449,001265: 04,2560           55414                          TS       RTARG                                 
009450,001266: 
009451,001267: 04,2561           05402                          TC       PHASCHNG                              
009452,001268: 04,2562           04024                          OCT      04024                                 
009453,001269: 
009454,001270: 04,2563           31414                          CA       RTARG                                 
009455,001271: 04,2564           55765                          TS       NN                                    
009456,001272: 04,2565           67701                          AD       NEG2                                  
009457,001273: 04,2566           40000                          COM                                            
009458,001274: 04,2567           00006                          EXTEND                                         
009459,001275: 04,2570           62572                          BZMF     +2                                    #  N = 2 OR GREATER
009460,001276: 04,2571           12607                          TCF      P86CONT1                              #  N = 1
009461,001277: 04,2572           05547                          TC       UPFLAG                                
009462,001278: 04,2573           00256                          ADRES    CSISFLAG                              
009463,001279: 04,2574           06006                          TC       INTPRET                               
009464,001280: 04,2575           77745                          DLOAD                                          
009465,001281: 04,2576           02351                                   TCSI2                                 
009466,001282: 04,2577           02463                          STORE    TCSI                                  
009467,001283: 04,2600           77776                          EXIT                                           
009468,001284: 04,2601           31765                          CA       NN                                    
009469,001285: 04,2602           67701                          AD       NEG2                                  
009470,001286: 04,2603           00006                          EXTEND                                         
009471,001287: 04,2604           62540                          BZMF     P81CONT1                              #  N = 2 HAM
009472,001288: 04,2605           02546                          TC       P82CONT1                              #  MULTIPLE CSIS
009473,001289: 04,2606           02434        P86               TC       MINKDISP                              
009474,001290: 04,2607           32402        P86CONT1          CAF      DEC36                                 

Page 218

009476,001292: 04,2610           02507                          TC       AUTOSET                               
009477,001293: 04,2611           06006                          TC       INTPRET                               
009478,001294: 04,2612           51575                          VLOAD    ABVAL                                 
009479,001295: 04,2613           03405                                   DELVLVC                               
009480,001296: 04,2614           77454                          BZE      EXIT                                  
009481,001297: 04,2615           10642                                   NOPC                                  
009482,001298: 04,2616           32401                          CAF      DEC52                                 
009483,001299: 04,2617           02507                          TC       AUTOSET                               
009484,001300: 04,2620           40106                          CS       FLGWRD10                              
009485,001301: 04,2621           74770                          MASK     PCBIT                                 
009486,001302: 04,2622           00006                          EXTEND                                         
009487,001303: 04,2623           12637                          BZF      DOP41                                 #  PULSE TORQUING NOT DONE - CALL P41
009488,001304: 04,2624           02517                          TC       BURNHOW                               #  P40 OR P41
009489,001305: 04,2625           02724                          TC       AFTERBRN                              
009490,001306: 04,2626           05547        P86CONT2          TC       UPFLAG                                
009491,001307: 04,2627           00226                          ADRES    PCMANFLG                              
009492,001308: 04,2630           34124                          CAF      DEC20                                 #  MANEUVER TO TRACK ATTITUDE
009493,001309: 04,2631           02507                          TC       AUTOSET                               
009494,001310: 04,2632           05561                          TC       DOWNFLAG                              
009495,001311: 04,2633           00226                          ADRES    PCMANFLG                              
009496,001312: 04,2634           32401                          CAF      DEC52                                 
009497,001313: 04,2635           02507                          TC       AUTOSET                               
009498,001314: 04,2636           02647                          TC       P83CONT1                              
009499,001315: 04,2637           32377        DOP41             CAF      DEC41                                 
009500,001316: 04,2640           02507                          TC       AUTOSET                               
009501,001317: 04,2641           02644                          TC       PCP76                                 
009502,001318: 04,2642           77414        NOPC              SET      EXIT                                  
009503,001319: 04,2643           05065                                   BURNFLAG                              
009504,001320: 04,2644           02724        PCP76             TC       AFTERBRN                              
009505,001321: 04,2645           02647                          TC       P83CONT1                              
009506,001322: 04,2646           02434        P83               TC       MINKDISP                              
009507,001323: 04,2647           35003        P83CONT1          CAF      DEC33                                 
009508,001324: 04,2650           02507                          TC       AUTOSET                               
009509,001325: 04,2651           02517                          TC       BURNHOW                               
009510,001326: 04,2652           05547                          TC       UPFLAG                                #  SET TO INDICATE PASSIVE CDH
009511,001327: 04,2653           00050                          ADRES    AVFLAG                                
009512,001328: 04,2654           02724                          TC       AFTERBRN                              
009513,001329: 04,2655           12657                          TCF      P84CONT1                              
009514,001330: 04,2656           02434        P84               TC       MINKDISP                              
009515,001331: 04,2657           34260        P84CONT1          CAF      DEC34                                 
009516,001332: 04,2660           02507                          TC       AUTOSET                               
009517,001333: 04,2661           02517                          TC       BURNHOW                               
009518,001334: 04,2662           02724                          TC       AFTERBRN                              
009519,001335: 04,2663           12665                          TCF      P85CONT1                              
009520,001336: 04,2664           02434        P85               TC       MINKDISP                              
009521,001337: 04,2665           32403        P85CONT1          CAF      DEC35                                 
009522,001338: 04,2666           02507                          TC       AUTOSET                               
009523,001339: 04,2667           02517                          TC       BURNHOW                               
009524,001340: 04,2670           02724                          TC       AFTERBRN                              
009525,001341: 04,2671           32403        P89CONT1          CAF      DEC35                                 

Page 219

009527,001343: 04,2672           02507                          TC       AUTOSET                               
009528,001344: 04,2673           02517                          TC       BURNHOW                               
009529,001345: 04,2674           02724                          TC       AFTERBRN                              
009530,001346: 04,2675           32404                          CAF      DEC79                                 
009531,001347: 04,2676           02432                          TC       AUTOSETA                              
009532,001348: 04,2677                                          COUNT*   $$/P79                                
009533,001349: 04,2677           05547        P79               TC       UPFLAG                                
009534,001350: 04,2700           00226                          ADRES    PCMANFLG                              #  FORCE P20 TO EXIT AFTER MANEUVER
009535,001351: 
009536,001352: 04,2701           05547                          TC       UPFLAG                                
009537,001353: 04,2702           00031                          ADRES    TRACKFLG                              
009538,001354: 
009539,001355: 04,2703           34772                          CAF      ZERO                                  
009540,001356: 04,2704           54001                          TS       L                                     
009541,001357: 04,2705           53740                          DXCH     UTPIT                                 
009542,001358: 
009543,001359: 04,2706           32715                          CAF      P79LOCRT                              
009544,001360: 04,2707           55012                          TS       AUTPOINT                              
009545,001361: 04,2710           12452                          TCF      STARTAUT                              
009546,001362: 04,2711           32714        P791              CAF      P79LOC                                
009547,001363: 04,2712           55012                          TS       AUTPOINT                              
009548,001364: 
009549,001365: 04,2713           05205                          TC       ENDOFJOB                              
009550,001366: 04,2714           02716        P79LOC            ADRES    P79A                                  
009551,001367: 
009552,001368: 04,2715           02711        P79LOCRT          ADRES    P791                                  
009553,001369: 
009554,001370: 04,2716           35047        P79A              CAF      PRIO5                                 
009555,001371: 04,2717           05135                          TC       FINDVAC                               
009556,001372: 04,2720  E4,1760                                 EBANK=   SUBEXIT                               
009557,001373: 04,2720           02564 66104                    2CADR    V83PERF                               
009558,001374: 
009559,001375: 04,2722           04655                          TC       POSTJUMP                              #  RETURN TO P20 FOR TRACKING
009560,001376: 04,2723           74207                          CADR     P20TRACK                              
009561,001377: 04,2724                                          COUNT*   $$/MNKEY                              
009562,001378: 04,2724           00006        AFTERBRN          EXTEND                                         
009563,001379: 04,2725           23356                          QXCH     AUTTEMP                               
009564,001380: 04,2726           35051                          CAF      PRIO7                                 
009565,001381: 04,2727           05135                          TC       FINDVAC                               
009566,001382: 04,2730  E7,1777                                 EBANK=   WHOCARES                              
009567,001383: 04,2730           02000 56067                    2CADR    HARTBURN                              
009568,001384: 
009569,001385: 04,2732           05205                          TC       ENDOFJOB                              
009570,001386: 04,2733           77776        TIG76             EXIT                                           
009571,001387: 04,2734           32400                          CAF      DEC76                                 #  CALL P76
009572,001388: 04,2735           02511                          TC       AUTOSET    +2                         
009573,001389: 27,2000                                          SETLOC   JANESUB                               
009574,001390: 27,2000                                          BANK                                           
009575,001391: 27,2000                                          COUNT*   $$/MNKEY                              
009576,001392: 27,2000           06006        HARTBURN          TC       INTPRET                               

Page 220

009578,001394: 27,2001           77201                          SETPD    VLOAD                                 
009579,001395: 27,2002           00001                                   0                                     
009580,001396: 27,2003           15336                                   ZEROVECS                              
009581,001397: 27,2004           77614                          BON                                            
009582,001398: 27,2005           05305                                   BURNFLAG                              
009583,001399: 27,2006           56042                                   GOP76                                 
009584,001400: 27,2007           77214                          BOFF     VLOAD                                 
009585,001401: 27,2010           05354                                   TPIMNFLG                              
009586,001402: 27,2011           56044                                   NOTTPI                                
009587,001403: 27,2012           03554                                   RPASS3                                
009588,001404: 27,2013           26561                          STOVL    BURNTMP2                              
009589,001405: 27,2014           03540                                   RACT3                                 
009590,001406: 27,2015           26553                          STOVL    BURNTMP1                              
009591,001407: 27,2016           03546                                   VACT3                                 
009592,001408: 27,2017           26567                          STOVL    BURNTMP3                              
009593,001409: 27,2020           03562                                   VPASS3                                
009594,001410: 27,2021           02575                          STORE    BURNTMP4                              
009595,001411: 27,2022           77776                          EXIT                                           
009596,001412: 27,2023           05402                          TC       PHASCHNG                              
009597,001413: 27,2024           04024                          OCT      04024                                 
009598,001414: 
009599,001415: 27,2025           06006                          TC       INTPRET                               
009600,001416: 27,2026           77775                          VLOAD                                          
009601,001417: 27,2027           02567                                   BURNTMP3                              
009602,001418: 27,2030           27562                          STOVL    VPASS3                                
009603,001419: 27,2031           02561                                   BURNTMP2                              
009604,001420: 27,2032           27540                          STOVL    RACT3                                 
009605,001421: 27,2033           02553                                   BURNTMP1                              
009606,001422: 27,2034           27554                          STOVL    RPASS3                                
009607,001423: 27,2035           02575                                   BURNTMP4                              
009608,001424: 27,2036           37546                          STCALL   VACT3                                 
009609,001425: 27,2037           74000                                   S34/35.1                              
009610,001426: 27,2040           77624                          CALL                                           
009611,001427: 27,2041           72561                                   S34/35.2                              #  COMPUTE DV(LV)
009612,001428: 27,2042           37540        GOP76             STCALL   DELVOV                                
009613,001429: 27,2043           10733                                   TIG76                                 
009614,001430: 27,2044           71214        NOTTPI            BOFF     DLOAD                                 
009615,001431: 27,2045           01352                                   AVFLAG                                
009616,001432: 27,2046           56066                                   NOTCDH                                
009617,001433: 27,2047           03450                                   NOMTIG                                
009618,001434: 27,2050           77624                          CALL                                           
009619,001435: 27,2051           76560                                   ADVANCE                               
009620,001436: 27,2052           77624                          CALL                                           
009621,001437: 27,2053           56674                                   CDHMVR                                
009622,001438: 27,2054           77624                          CALL                                           
009623,001439: 27,2055           32050                                   S32/33.X                              
009624,001440: 27,2056           64375                          VLOAD    MXV                                   
009625,001441: 27,2057           03667                                   DELVEET2                              
009626,001442: 27,2060           00001                                   0D                                    
009627,001443: 27,2061           77772                          VSL1                                           

Page 221

009629,001445: 27,2062           17540                          STODL    DELVOV                                
009630,001446: 27,2063           02603                                   CMYDOT                                
009631,001447: 27,2064           77650                          GOTO                                           
009632,001448: 27,2065           56072                                   STORDV                                
009633,001449: 27,2066           57575        NOTCDH            VLOAD    VCOMP                                 
009634,001450: 27,2067           03405                                   DELVLVC                               
009635,001451: 27,2070           17540                          STODL    DELVOV                                
009636,001452: 27,2071           02605                                   LMYDOT                                
009637,001453: 27,2072           37542        STORDV            STCALL   DELVOV     +2                         
009638,001454: 27,2073           10733                                   TIG76                                 
009639,001455: 27,2074  30,2000                                 SBANK=   LOWSUPER                              
009640,001456: 04,2000                                          SETLOC   VERB37                                
009641,001457: 04,2000                                          BANK                                           
009642,001458: 
009643,001459: 04,2736                                          COUNT*   $$/V37                                
009644,001460: 04,2736     4765               OCT00010          EQUALS   BIT4                                  
009645,001461: 04,2736           00004        V37XEQ            INHINT                                         
009646,001462: 04,2737           35052                          CAF      PRIO13                                
009647,001463: 04,2740           55266                          TS       PHSPRDT4                              #  PRESTART GROUP4 RESTART PRIORITY
009648,001464: 04,2741           54063        V37XEQ+3          TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
009649,001465: 04,2742           51177                          INDEX    MINDEX                                
009650,001466: 04,2743           33124                          CAF      PREMM1                                
009651,001467: 04,2744           55264                          TS       MMTEMP                                #  OBTAIN PRIORITY BITS 15 - 11
009652,001468: 04,2745           00006                          EXTEND                                         
009653,001469: 04,2746           74761                          MP       BIT8                                  
009654,001470: 04,2747           74774                          MASK     LOW3                                  
009655,001471: 04,2750           54001                          TS       L                                     
009656,001472: 04,2751           51177                          INDEX    MINDEX                                
009657,001473: 04,2752           33055                          CAF      FCADRMM1                              
009658,001474: 04,2753           55265                          TS       BASETEMP                              
009659,001475: 04,2754           74344                          MASK     HI5                                   
009660,001476: 04,2755           26001                          ADS      L                                     
009661,001477: 
009662,001478: 04,2756           31265                          CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
009663,001479: 04,2757           75041                          MASK     LOW10                                 
009664,001480: 04,2760           64756                          AD       BIT11                                 
009665,001481: 
009666,001482: 04,2761           05146                          TC       SPVAC                                 
009667,001483: 
009668,001484: 04,2762           31264        V37XEQC           CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
009669,001485: 04,2763           76043                          MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
009670,001486: 04,2764           05347                          TC       NEWMODEA                              #  PHSBRDT1)
009671,001487: 
009672,001488: 04,2765           04432                          TC       RELDSP                                #  RELEASE DISPLAY
009673,001489: 04,2766           05205                          TC       ENDOFJOB                              #  AND EXIT
009674,001490: 
009675,001491: 04,2767           00004        INITSUB           INHINT                                         
009676,001492: 04,2770           34775                          CAF      ELEVEN                                #  CLEAR INDICATED FLAG BITS
009677,001493: 04,2771           54154        RAKE              TS       MPAC                                  #  LOOP STARTS HERE

Page 222

009679,001495: 04,2772           50154                          INDEX    MPAC                                  
009680,001496: 04,2773           43032                          CS       FLAGTABL                              
009681,001497: 04,2774           50154                          INDEX    MPAC                                  
009682,001498: 04,2775           70074                          MASK     FLAGWRD0                              
009683,001499: 04,2776           50154                          INDEX    MPAC                                  #  RESTORE REVISED FLAGWORD
009684,001500: 04,2777           54074                          TS       FLAGWRD0                              
009685,001501: 
009686,001502: 04,3000           10154                          CCS      MPAC                                  
009687,001503: 04,3001           12771                          TCF      RAKE                                  
009688,001504: 
009689,001505: 04,3002           00006        INITSUBA          EXTEND                                         
009690,001506: 04,3003           22155                          QXCH     MPAC       +1                         
009691,001507: 
009692,001508: 04,3004           00004                          INHINT                                         
009693,001509: 04,3005           34764                          CAF      TRACKBIT                              #  BYPASS IF TRACKFLG ON
009694,001510: 04,3006           70075                          MASK     FLAGWRD1                              
009695,001511: 04,3007           10000                          CCS      A                                     
009696,001512: 04,3010           13024                          TCF      INITRET                               
009697,001513: 04,3011           04611                          TC       E6SETTER                              #  FOR DB CODE.. STARTSB2 WILL RESET.
009698,001514: 04,3012           04463                          TC       STOPRATE                              
009699,001515: 
009700,001516: 04,3013           30105                          CA       FLAGWRD9                              #  RESTORE DEADBAND
009701,001517: 04,3014           74755                          MASK     MAXDBBIT                              
009702,001518: 04,3015           10000                          CCS      A                                     
009703,001519: 04,3016           13022                          TCF      SETMAXER                              #  MAX DB SELECTED
009704,001520: 04,3017           04636                          TC       BANKCALL                              #  MIN DB SELECTED
009705,001521: 04,3020           51203                          CADR     SETMINDB                              
009706,001522: 04,3021           13024                          TCF      INITRET                               
009707,001523: 
009708,001524: 04,3022           04636        SETMAXER          TC       BANKCALL                              
009709,001525: 04,3023           51217                          CADR     SETMAXDB                              
009710,001526: 
009711,001527: 04,3024           00003        INITRET           RELINT                                         
009712,001528: 04,3025           37702                          CA       NEGONE                                
009713,001529: 04,3026           55323                          TS       OPTIND                                
009714,001530: 04,3027           00155                          TC       MPAC       +1                         #  RETURN FROM INITSUB
009715,001531: 
009716,001532: 04,3030           03002        INITSUBB          TC       INITSUBA                              #  ENTRANCE USED BY RTB CALL FROM V56
009717,001533: 04,3031           06030                          TC       DANZIG                                
009718,001534: 
009719,001535: 04,3032           00001        FLAGTABL          OCT      1                                     #  P29FLAG
009720,001536: 04,3033           00040                          OCT      40                                    #  IDLEFAIL
009721,001537: 04,3034           06400                          OCT      06400                                 #  P21FLAG,STEERSW,IMPULSW
009722,001538: 04,3035           20400                          OCT      20400                                 #  GLOKFAIL, POOFLAG
009723,001539: 04,3036           00000                          OCT      0                                     
009724,001540: 04,3037           05100                          OCT      05100                                 #  V59FLAG,NEWTFLAG,ENGONFLG
009725,001541: 04,3040           10000                          OCT      10000                                 #  STRULLSW
009726,001542: 04,3041           16000                          OCT      16000                                 #  IGNFLAG,ASTNFLAG,TIMRFLAG
009727,001543: 04,3042           00000                          OCT      0                                     
009728,001544: 04,3043           42000                          OCT      42000                                 #  SWTOVER,V94FLAG

Page 223

009730,001546: 04,3044           00000                          OCT      0                                     
009731,001547: 04,3045           00000                          OCT      0                                     
009732,001548: 
009733,001549: 20,2000                                          SETLOC   VAC5LOC                               
009734,001550: 20,2000                                          BANK                                           
009735,001551: 20,2000                                          COUNT*   $$/START                              
009736,001552: 20,2000           34772        VAC5STOR          CA       ZERO                                  #  INITIALIZE INDEX REGISTERS
009737,001553: 20,2001           54061                          TS       ITEMP1                                
009738,001554: 20,2002           54062                          TS       ITEMP2                                
009739,001555: 
009740,001556: 20,2003           00006        V5LOOP1           EXTEND                                         #  LOOP TO STORE LOCS, BANKSETS, AND PRIOS.
009741,001557: 20,2004           50061                          INDEX    ITEMP1                                
009742,001558: 20,2005           30165                          DCA      LOC                                   
009743,001559: 20,2006           50062                          INDEX    ITEMP2                                
009744,001560: 20,2007           52662                          DXCH     VAC5                                  
009745,001561: 
009746,001562: 20,2010           50061                          INDEX    ITEMP1                                
009747,001563: 20,2011           30167                          CA       PRIORITY                              
009748,001564: 20,2012           50062                          INDEX    ITEMP2                                
009749,001565: 20,2013           54663                          TS       VAC5       +2                         
009750,001566: 
009751,001567: 20,2014           40062                          CS       ITEMP2                                #  HAVE WE STORED THEM ALL?
009752,001568: 20,2015           65000                          AD       EIGHTEEN                              
009753,001569: 20,2016           00006                          EXTEND                                         
009754,001570: 20,2017           12025                          BZF      V5OUT1                                #  YES, GET PHASE INFORMATION.
009755,001571: 
009756,001572: 20,2020           35775                          CA       TWELVE                                #  NO, INCREMENT INDEXES AND LOOP.
009757,001573: 20,2021           26061                          ADS      ITEMP1                                
009758,001574: 20,2022           36214                          CA       THREE                                 
009759,001575: 20,2023           26062                          ADS      ITEMP2                                
009760,001576: 20,2024           12003                          TCF      V5LOOP1                               
009761,001577: 
009762,001578: 20,2025  E3,1436                                 EBANK=   PHSNAME1                              
009763,001579: 20,2025           35024        V5OUT1            CA       EBANK3                                #  PHSNAME REGISTERS ARE IN EBANK3.
009764,001580: 20,2026           54003                          TS       EBANK                                 
009765,001581: 
009766,001582: 20,2027           34775                          CA       ELEVEN                                #  GET PHASE 2CADRS.
009767,001583: 20,2030           05607                          TC       GENTRAN                               
009768,001584: 20,2031           01436                          ADRES    PHSNAME1                              
009769,001585: 20,2032           00706                          ADRES    VAC5       +21D                       
009770,001586: 
009771,001587: 20,2033           34772                          CA       ZERO                                  #  NOW INITIALIZE INDEXES AGAIN.
009772,001588: 20,2034           54061                          TS       ITEMP1                                
009773,001589: 20,2035           54062                          TS       ITEMP2                                
009774,001590: 
009775,001591: 20,2036           50061        V5LOOP2           INDEX    ITEMP1                                #  LOOP TO GET PHASE TABLES.
009776,001592: 20,2037           31156                          CA       PHASE1                                
009777,001593: 20,2040           50062                          INDEX    ITEMP2                                
009778,001594: 20,2041           54722                          TS       VAC5       +33D                       

Page 224

009780,001596: 20,2042           40062                          CS       ITEMP2                                #  DO WE HAVE THEM ALL?
009781,001597: 20,2043           64773                          AD       FIVE                                  
009782,001598: 20,2044           00006                          EXTEND                                         
009783,001599: 20,2045           12052                          BZF      V5OUT2                                #  YES, GO FINISH UP.
009784,001600: 
009785,001601: 20,2046           34767                          CA       TWO                                   #  NO, INCREMENT INDEXES AND LOOP.
009786,001602: 20,2047           26061                          ADS      ITEMP1                                
009787,001603: 20,2050           24062                          INCR     ITEMP2                                
009788,001604: 20,2051           12036                          TCF      V5LOOP2                               
009789,001605: 
009790,001606: 20,2052           30157        V5OUT2            CA       MPAC       +3                         
009791,001607: 20,2053           54730                          TS       VAC5       +39D                       
009792,001608: 
009793,001609: 20,2054           00006                          EXTEND                                         
009794,001610: 20,2055           30066                          DCA      NEWLOC                                
009795,001611: 20,2056           52732                          DXCH     VAC5       +40D                       
009796,001612: 
009797,001613: 20,2057           30067                          CA       NEWJOB                                
009798,001614: 20,2060           54707                          TS       VAC5       +22D                       
009799,001615: 
009800,001616: 20,2061           30063                          CA       NEWPRIO                               
009801,001617: 20,2062           54713                          TS       VAC5       +26D                       
009802,001618: 
009803,001619: 20,2063           04651                          TC       SWRETURN                              
009804,001620: 
009805,001621: 20,2064     5000               EIGHTEEN          EQUALS   OCT22                                 
009806,001622: 04,2000                                          SETLOC   VERB37                                
009807,001623: 04,2000                                          BANK                                           
009808,001624: 
009809,001625: 04,3046                                          COUNT*   $$/V37                                
009810,001626: 04,3046     5736               NEG7              EQUALS   OCT77770                              
009811,001627: 
009812,001628: 04,3046           44571        OCT44571          OCT      44571                                 #  CONSTANTS TO CLEAR CHANNEL BITS IN V37
009813,001629: 04,3047           00600        OCT600            OCT      600                                   
009814,001630: 04,3050           00300        BIT7-8            OCT      300                                   
009815,001631: 04,3051           01120        OCT01120          OCT      01120                                 
009816,001632: 
009817,001633: 04,3052           10741        V37QCAD           CADR     V37XEQ+3                              
009818,001634: 04,3053           10171        ROOAD             CADR     DUMMYAD                               
009819,001635: 04,3054           37312        3.1SEC            OCT      37312                                 #  2.5 + 0.6 SEC
009820,001636: 
009821,001637:                                                                                                 #  FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
009822,001638:                                                                                                 #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
009823,001639:                                                                                                 #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
009824,001640:                                                                                                 #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
009825,001641: 
009826,001642:                                                                                                 #  THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
009827,001643:                                                                                                 #  THE MAJOR MODE.  FOR EXAMPLE,
009828,001644: 
009829,001645:                                                                                                 #         FCADRMM1        FCADR   P79             # START OF P 79

Page 225

009831,001647:                                                                                                 #                         FCADR   PROG18          # START OF P 18
009832,001648:                                                                                                 #                         FCADR   P01             # START OF P 01
009833,001649: 
009834,001650: 04,3055                        FCADRMM1          EQUALS                                         
009835,001651: 04,3055           10606                          FCADR    P86                                   
009836,001652: 04,3056           10664                          FCADR    P85                                   
009837,001653: 04,3057           10656                          FCADR    P84                                   
009838,001654: 04,3060           10646                          FCADR    P83                                   
009839,001655: 04,3061           10545                          FCADR    P82                                   
009840,001656: 04,3062           10537                          FCADR    P81                                   
009841,001657: 04,3063           10677                          FCADR    P79                                   
009842,001658: 04,3064           26071                          FCADR    P76ER77                               
009843,001659: 04,3065           26071                          FCADR    P76ER77                               
009844,001660: 04,3066           72212                          FCADR    P75                                   
009845,001661: 04,3067           72002                          FCADR    P74                                   
009846,001662: 04,3070           11575                          FCADR    P73                                   
009847,001663: 04,3071           11405                          FCADR    P72                                   
009848,001664: 04,3072           54321                          FCADR    P62                                   
009849,001665: 04,3073           54234                          FCADR    P61                                   
009850,001666: 04,3074           30002                          FCADR    P54                                   
009851,001667: 04,3075           31414                          FCADR    P53                                   
009852,001668: 04,3076           30002                          FCADR    PROG52                                
009853,001669: 04,3077           31414                          FCADR    P51                                   
009854,001670: 04,3100           51662                          FCADR    P47CSM                                
009855,001671: 04,3101           51563                          FCADR    P41CSM                                
009856,001672: 04,3102           50214                          FCADR    P40CSM                                
009857,001673: 04,3103           74476                          FCADR    P37                                   
009858,001674: 04,3104           45334                          FCADR    P36                                   
009859,001675: 04,3105           72206                          FCADR    P35                                   
009860,001676: 04,3106           72000                          FCADR    P34                                   
009861,001677: 04,3107           11573                          FCADR    P33                                   
009862,001678: 04,3110           11403                          FCADR    P32                                   
009863,001679: 04,3111           11303                          FCADR    P31                                   
009864,001680: 04,3112           73433                          FCADR    P30                                   
009865,001681: 04,3113           60000                          FCADR    P29                                   
009866,001682: 04,3114           26254                          FCADR    PROG24                                
009867,001683: 04,3115           62444                          FCADR    P23                                   
009868,001684: 04,3116           60153                          FCADR    PROG22                                
009869,001685: 04,3117           76000                          FCADR    PROG21                                
009870,001686: 04,3120           74016                          FCADR    PROG20                                
009871,001687: 04,3121           67455                          FCADR    P15JOB                                
009872,001688: 04,3122           55654                          FCADR    P06                                   
009873,001689: 04,3123           66001                          FCADR    GTSCPSS1                              #  GYROCOMPASS STANDARD LEAD IN.
009874,001690: 
009875,001691:                                                                                                 #  THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND DOWNLINK INFO.
009876,001692:                                                                                                 #  IT IS IN THE FOLLOWING FORMAT
009877,001693:                                                                                                 #         DDD 00E EEM MMM MMM
009878,001694:                                                                                                 #  WHERE THE      7 M BITS CONTAIN THE MAJOR MODE NUMBER
009879,001695:                                                                                                 #                 3 E BITS CONTAIN THE E-BANK NUMBER

Page 226

009881,001697:                                                                                                 #                 3 D BITS CONTAIN THE DOWNLIST ID
009882,001698: 
009883,001699:                                                                                                 #         COAST AND ALIGN LIST    =  0
009884,001700:                                                                                                 #         ENTRY LIST              =  1
009885,001701:                                                                                                 #         RENDEZVOUS LIST         =  2
009886,001702:                                                                                                 #         POWERED FLIGHT LIST     =  3
009887,001703:                                                                                                 #         P22 LIST                =  4
009888,001704: 
009889,001705:                                                                                                 #  FOR EXAMPLE,
009890,001706: 
009891,001707:                                                                                                 #                 OCT     21137           # DOWNLIST      = 2 (RENDEZVOUS)
009892,001708:                                                                                                 #                                         # E-BANK        = 4
009893,001709:                                                                                                 #                                         # MAJOR MODE    = 95
009894,001710: 
009895,001711:                                                                                                 #                 OCT     11476           # DOWNLIST      = 1 (ENTRY)
009896,001712:                                                                                                 #                                         # E-BANK        = 6
009897,001713:                                                                                                 #                                         # MAJOR MODE    = 62
009898,001714: 
009899,001715: 04,3124                        PREMM1            EQUALS                                         
009900,001716: 04,3124           21526                          OCT      21526                                 #  MM 86          EBANK 6         DOWNLIST        2
009901,001717: 04,3125           21525                          OCT      21525                                 #  MM 85          EBANK 6         DOWNLIST        2
009902,001718: 04,3126           21524                          OCT      21524                                 #  MM 84          EBANK 6         DOWNLIST        2
009903,001719: 04,3127           21523                          OCT      21523                                 #  MM 83          EBANK 6         DOWNLIST        2
009904,001720: 04,3130           21522                          OCT      21522                                 #  MM 82          EBANK 6         DOWNLIST        2
009905,001721: 04,3131           21521                          OCT      21521                                 #  MM 81          EBANK 6         DOWNLIST        2
009906,001722: 04,3132           21717                          OCT      21717                                 #  MM 79          EBANK 7         DOWNLIST        2
009907,001723: 04,3133           21715                          OCT      21715                                 
009908,001724: 04,3134           21714                          OCT      21714                                 #  MM 76          EBANK 7         DOWNLIST        2
009909,001725: 04,3135           21113                          OCT      21113                                 #  MM 75          EBANK 4         DOWNLIST        2
009910,001726: 04,3136           21112                          OCT      21112                                 #  MM 74          EBANK 4         DOWNLIST        2
009911,001727: 04,3137           21111                          OCT      21111                                 #  MM 73          EBANK 4         DOWNLIST        2
009912,001728: 04,3140           21110                          OCT      21110                                 #  MM 72          EBANK 4         DOWNLIST        2
009913,001729: 04,3141           11476                          OCT      11476                                 #  MM 62          EBANK 6         DOWNLIST        1
009914,001730: 04,3142           31475                          OCT      31475                                 #  MM 61          EBANK 6         DOWNLIST        3
009915,001731: 04,3143           01266                          OCT      01266                                 #  MM 54          EBANK 5         DOWNLIST        0
009916,001732: 04,3144           01265                          OCT      01265                                 #  MM 53          EBANK 5         DOWNLIST        0
009917,001733: 04,3145           01264                          OCT      01264                                 #  MM 52          EBANK 5         DOWNLIST        0
009918,001734: 04,3146           01263                          OCT      01263                                 #  MM 51          EBANK 5         DOWNLIST        0
009919,001735: 04,3147           31657                          OCT      31657                                 #  MM 47          EBANK 7         DOWNLIST        3
009920,001736: 04,3150           31451                          OCT      31451                                 #  MM 41          EBANK 6         DOWNLIST        3
009921,001737: 04,3151           31450                          OCT      31450                                 #  MM 40          EBANK 6         DOWNLIST        3
009922,001738: 04,3152           21645                          OCT      21645                                 #  MM 37          EBANK 7         DOWNLIST        2
009923,001739: 04,3153           21044                          OCT      21044                                 #  MM 36          EBANK 4         DOWNLIST        2
009924,001740: 04,3154           21043                          OCT      21043                                 #  MM 35          EBANK 4         DOWNLIST        2
009925,001741: 04,3155           21042                          OCT      21042                                 #  MM 34          EBANK 4         DOWNLIST        2
009926,001742: 04,3156           21041                          OCT      21041                                 #  MM 33          EBANK 4         DOWNLIST        2
009927,001743: 04,3157           21040                          OCT      21040                                 #  MM 32          EBANK 4         DOWNLIST        2
009928,001744: 04,3160           21037                          OCT      21037                                 #  MM 31          EBANK 4         DOWNLIST        2
009929,001745: 04,3161           21636                          OCT      21636                                 #  MM 30          EBANK 7         DOWNLIST        2
009930,001746: 04,3162           21635                          OCT      21635                                 #  MM 29          EBANK 7         DOWNLIST        2

Page 227

009932,001748: 04,3163           41230                          OCT      41230                                 #  MM 24          EBANK 5         DOWNLIST        4
009933,001749: 04,3164           21627                          OCT      21627                                 #  MM 23          EBANK 7         DOWNLIST        2
009934,001750: 04,3165           41626                          OCT      41626                                 #  MM 22          EBANK 7         DOWNLIST        4
009935,001751: 04,3166           21025                          OCT      21025                                 #  MM 21          EBANK 4         DOWNLIST        2
009936,001752: 04,3167           21424                          OCT      21424                                 #  MM 20          EBANK 6         DOWNLIST        2
009937,001753: 04,3170           31617                          OCT      31617                                 #  MM 15          EBANK 7         DOWNLIST        3
009938,001754: 04,3171           01006                          OCT      01006                                 #  MM 06          EBANK 4         DOWNLIST        0
009939,001755: 04,3172           01201                          OCT      01201                                 #  MM 01          EBANK 5         DOWNLIST        0
009940,001756: 
009941,001757:                                                                                                 #  NOTE:          THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
009942,001758:                                                                                                 #  -----          THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00)
009943,001759:                                                                                                 #                 THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
009944,001760: 
009945,001761: 04,3173                        EPREMM1           EQUALS                                         #  END OF PREMM1 TABLE
009946,001762: 04,3124                                          SETLOC   PREMM1                                #  THIS CODING WILL AUTOMATICALLY CHANGE
009947,001763: 04,3124                        NO.MMS            =MINUS   EPREMM1                               #  THE 'NOV37MM' CONSTANT AS ENTRIES ARE
009948,001764: 04,2000                                          SETLOC   VERB37                                #  INSERTED(IN) OR DELETED(FROM) THE
009949,001765: 04,2000                                          BANK                                           #  'PREMM1' TABLE.
009950,001766: 
009951,001767: 04,3173           00046        NOV37MM           ADRES    NO.MMS     -1                         #  ITEMS IN 'PREMM1' TABLE - 1. *DON'T MOVE*
009952,001768: 
009953,001769: 04,3174     4772               DNLADP00          =        ZERO                                  
009954,001770: 
009955,001771:                                                                                                 #  ORBITAL INTEGRATION CONSTANTS
009956,001772: 
009957,001773:                                                                                                 #  THESE CONSTANTS ARE USED IN COMPUTING THE SETTING OF MIDFLAG.
009958,001774: 
009959,001775: 04,3174           00465 32324  RMM               2DEC     2538.09    E3         B-27            #  800 KM ABOVE LUNAR SURFACE
009960,001776: 
009961,001777: 04,3176           00333 01733  RME               2DEC     7178165    B-29                       #  800 KM ABOVE EQ. RADIUS
009962,001778: 
009963,001779: 13,2000                                          SETLOC   INTINIT                               
009964,001780: 13,2000                                          BANK                                           
009965,001781: 
009966,001782: 13,2000                                          COUNT*   $$/INTIN                              
009967,001783: 
009968,001784: 13,2000  E3,1554                                 EBANK=   RRECTCSM                              
009969,001785: 
009970,001786: 13,2000           43014        STATEUP           SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
009971,001787: 13,2001           01474                                   VINTFLAG                              
009972,001788: 13,2002           01751                                   ORBWFLAG                              #  ALSO 6X6 W-MATRIX IF VALID
009973,001789: 13,2003           26006                                   +3                                    #       FOR ORBITAL NAVIGATION
009974,001790: 13,2004           77614                          SET                                            
009975,001791: 13,2005           01476                                   DIM0FLAG                              
009976,001792: 13,2006           45014                          CLEAR    CALL                                  
009977,001793: 13,2007           01667                                   PRECIFLG                              
009978,001794: 13,2010           27236                                   INTEGRV                               
009979,001795: 13,2011           71214                          BON      DLOAD                                 
009980,001796: 13,2012           04307                                   SURFFLAG                              

Page 228

009982,001798: 13,2013           26031                                   STATEND                               
009983,001799: 13,2014           01571                                   TETCSM                                
009984,001800: 13,2015           34041                          STCALL   TDEC1                                 
009985,001801: 13,2016           27516                                   INTSTALL                              
009986,001802: 13,2017           45014                          CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
009987,001803: 13,2020           01674                                   VINTFLAG                              
009988,001804: 13,2021           26744                                   SETIFLGS                              #         AND 6X6 W-MATRIX IF VALID
009989,001805: 13,2022           43014                          BOF      SET                                   
009990,001806: 13,2023           02756                                   RENDWFLG                              #         FOR RENDEZVOUS NAVIGATION
009991,001807: 13,2024           26026                                   +2                                    
009992,001808: 13,2025           01476                                   DIM0FLAG                              
009993,001809: 13,2026           45014                          SET      CALL                                  
009994,001810: 13,2027           01467                                   PRECIFLG                              
009995,001811: 13,2030           27236                                   INTEGRV                               
009996,001812: 13,2031           77614        STATEND           CLRGO                                          
009997,001813: 13,2032           01236                                   NODOFLAG                              
009998,001814: 13,2033           26732                                   ENDINT                                
009999,001815: 
010000,001816:                                                                                                 #  THISVINT IS CALLED BY MIDTOAV1 AND 2
010001,001817: 
010002,001818: 13,2034           43414        THISVINT          SET      RVQ                                   
010003,001819: 13,2035           01474                                   VINTFLAG                              

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