Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

008216,000002:                                                                                                  ## Copyright:   Public domain.
008217,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
008218,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
008219,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
008220,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
008221,000007:                                                                                                  ##              Apollo 15-17.
008222,000008:                                                                                                  ## Assembler:   yaYUL
008223,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
008224,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
008225,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
008226,000012:                                                                                                  ## Mod history: 2009-07-28 JL   Adapted from corresponding Comanche 055 file.
008227,000013:                                                                                                  ##              2009-09-03 JL   Fixed symbol names.
008228,000014:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
008229,000015:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
008230,000016:                                                                                                  ##              2010-02-05 JL   Fixed build errors.
008231,000017:                                                                                                  ##              2010-02-11 JL   Fixed errors on p201, p226.
008232,000018:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
008233,000019:                                                                                                  ##              2010-12-29 JL   Fixed indentation.
008234,000020:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
008235,000021:                                                                                                  ##              2017-02-05 RSB  Proofed comment text by diff'ing vs Comanche 55
008236,000022:                                                                                                  ##                              and corrected errors found.
008237,000023: 

Page 192

008239,000025: 
008240,000026:                                                                                                  #  PROGRAM DESCRIPTION                                           8 APRIL, 1967
008241,000027:                                                                                                  #                                                                SUNDISK REV 120
008242,000028:                                                                                                  #  FUNCTIONAL DESCRIPTION
008243,000029: 
008244,000030:                                                                                                  #  SLAP1         MAN INITIATED FRESH START
008245,000031:                                                                                                  #        1.      EXECUTE STARTSUB
008246,000032:                                                                                                  #        2.      TURN OFF DSKY DISCRETE-LAMPS
008247,000033:                                                                                                  #        3.      CLEAR FAIL REGISTERS,SELF CHECK ERROR COUNTER AND RESTART
008248,000034:                                                                                                  #                COUNTER
008249,000035:                                                                                                  #        4.      INITIALIZE OUTBIT CHANNEL 77
008250,000036:                                                                                                  #        5.      EXECUTE DOFSTART
008251,000037: 
008252,000038:                                                                                                  #  DOFSTART      MACHINE INITIATED FRESH START
008253,000039: 
008254,000040:                                                                                                  #        1.      CLEAR SELF-CHECK REGISTERS, MODE REGISTER AND CDUZ REGISTER
008255,000041:                                                                                                  #        2.      CLEAR PHASE TABLE
008256,000042:                                                                                                  #        3.      INITIALIZE IMU FLAGS
008257,000043:                                                                                                  #        4.      INITIALIZE FLAGWORDS
008258,000044:                                                                                                  #        5.      TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
008259,000045: 
008260,000046:                                                                                                  #  GOPROG        HARDWARE RESTART
008261,000047: 
008262,000048:                                                                                                  #        0.      EXECUTE STARTSUB
008263,000049:                                                                                                  #        1.      TRANSFER CONTROL TO DOFSTART IF ANY OF THE FOLLOWING CONDITIONS
008264,000050:                                                                                                  #                EXIST.
008265,000051:                                                                                                  #                A.      RESTART OCCURED DURING EXECUTION OF ERASCHK
008266,000052:                                                                                                  #                B.      BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON
008267,000053:                                                                                                  #                C.      MARK REJECT AND EITHER NAV OR MAIN DSKY ERROR LIGHT RESET
008268,000054:                                                                                                  #                        ARE ON.
008269,000055:                                                                                                  #        2.      SCHEDULE A T5RUPT PROGRAM FOR THE DAP
008270,000056:                                                                                                  #        3.      SET FLAGWRD5 BITS FOR INTWAKE ROUTINE
008271,000057:                                                                                                  #        4.      EXTINGUISH ALL DSKY LAMPS, EXCEPT PROGRAM ALARM, GIMBAL LOCK AND
008272,000058:                                                                                                  #                NO ATT
008273,000059:                                                                                                  #        5.      INITIALIZE IMU FLAGS
008274,000060:                                                                                                  #        6.      IF ENGINE COMMAND IS ON (FLAGWRD5, BIT 7), SET ENGINE ON (CHAN-
008275,000061:                                                                                                  #                NEL 11, BIT 13)
008276,000062:                                                                                                  #        7.      TRANSFER CONTROL TO GOPROG3
008277,000063: 
008278,000064:                                                                                                  #  ENEMA         SOFTWARE RESTART    INITIATED BY MAJOR MODE CHANGE
008279,000065: 
008280,000066:                                                                                                  #        1.      EXECUTE STARTSB2
008281,000067:                                                                                                  #        2.      KILL PROGRAMS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION
008282,000068:                                                                                                  #                ROUTINE
008283,000069:                                                                                                  #        3.      TRANSFER CONTROL TO GOPROG3
008284,000070: 
008285,000071:                                                                                                  #  GOPROG3       SUBROUTINE COMMON TO GOPROG AND ENEMA
008286,000072: 
008287,000073:                                                                                                  #        1.      TEST PHASE TABLES - IF INCORRECT, DISPLAY ALARM 1107 AND
008288,000074:                                                                                                  #                TRANSFER CONTROL TO DOFSTART
008289,000075:                                                                                                  #        2.      DISPLAY MAJOR MODE
008290,000076: 

Page 193

008292,000078: 
008293,000079:                                                                                                  #        3.      IF ANY GROUPS WERE ACTIVE UPON RESTART, TRANSFER CONTROL TO THE
008294,000080:                                                                                                  #                RESTARTS SUBROUTINE TO RESCHEDULE PENDING TASKS, LONGCALLS, AND
008295,000081:                                                                                                  #                JOBS (P20 IS RESTARTED VIA FINDVAC)
008296,000082:                                                                                                  #        4.      IF NO GROUPS WERE ACTIVE UPON RESTART, DISPLAY ALARM CODE
008297,000083:                                                                                                  #                1110 (RESTART WITH NO ACTIVE GROUPS).
008298,000084:                                                                                                  #        5.      TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
008299,000085: 
008300,000086:                                                                                                  #  STARTSUB      SUBROUTINE COMMON TO SLAP1 AND GOPROG
008301,000087: 
008302,000088:                                                                                                  #        1.      CLEAR OUTBIT CHANNELS 5 AND 6
008303,000089:                                                                                                  #        2.      INITIALIZE TIME5, TIME4, TIME3
008304,000090:                                                                                                  #        3.      TRANSFER CONTROL TO STARTSB2
008305,000091: 
008306,000092:                                                                                                  #  STARTSB2      SUBROUTINE COMMON TO STARTSUB AND ENEMA
008307,000093: 
008308,000094:                                                                                                  #        1.      INITIALIZE OUTBIT CHANNELS 11,12,13 AND 14
008309,000095:                                                                                                  #        2.      REPLACE ALL TASKS ON WAITLIST WITH ENDTASK
008310,000096:                                                                                                  #        3.      MAKE ALL EXECUTIVE REGISTERS AVAILABLE
008311,000097:                                                                                                  #        4.      MAKE ALL VAC AREAS AVAILABLE
008312,000098:                                                                                                  #        5.      CLEAR DSKY REGISTERS
008313,000099:                                                                                                  #        6.      ZERO NUMEROUS SWITCHES
008314,000100:                                                                                                  #        7.      INITIALIZE OPTICS FLAGS
008315,000101:                                                                                                  #        8.      INITIALIZE PIPA AND TELEMETRY FAIL FLAGS
008316,000102:                                                                                                  #        9.      INITIALIZE DOWN TELEMETRY
008317,000103: 
008318,000104:                                                                                                  #  INPUT/OUTPUT INITIALIZATION
008319,000105: 
008320,000106:                                                                                                  #        A.      CALLING SEQUENCE
008321,000107: 
008322,000108:                                                                                                  #                SLAP1 - TC POSTJUMP     OR      VERB 36,ENTER
008323,000109:                                                                                                  #                        CADR SLAP1
008324,000110: 
008325,000111:                                                                                                  #                ENEMA - TC POSTJUMP     ***  DO NOT CALL ENEMA WITHOUT  ***
008326,000112:                                                                                                  #                        CADR ENEMA      ***  CONSULTING POOH PEOPLE     ***
008327,000113: 
008328,000114:                                                                                                  #        B.      OUTPUT
008329,000115: 
008330,000116:                                                                                                  #                ERASABLE MEMORY INITIALIZATION
008331,000117: 
008332,000118:                                                                                                  #  PROGRAM ANALYSIS
008333,000119: 
008334,000120:                                                                                                  #        A.      SUBROUTINES CALLED
008335,000121: 
008336,000122:                                                                                                  #                MR.KLEAN,WAITLIST,DSPMM,ALARM,RESTARTS,FINDVAC
008337,000123: 
008338,000124:                                                                                                  #        B.      ALARMS
008339,000125: 
008340,000126:                                                                                                  #                1107    PHASE TABLE ERROR
008341,000127:                                                                                                  #                1110    RESTART WITH NO ACTIVE GROUPS
008342,000128: 

Page 194

008344,000130: 05,2000                                           SETLOC   FRANDRES                              
008345,000131: 05,2000                                           BANK                                           
008346,000132: 
008347,000133: 05,2367  E3,1400                                  EBANK=   LST1                                  
008348,000134: 
008349,000135: 05,2367                                           COUNT*   $$/START                              
008350,000136: 05,2367           00004        SLAP1              INHINT                                         #  FRESH START. COMES HERE FROM PINBALL.
008351,000137: 05,2370           03046                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
008352,000138: 
008353,000139: 05,2371           12376        STARTSW            TCF      SKIPSIM                               
008354,000140: 
008355,000141: 05,2372           34753        STARTSIM           CAF      BIT14                                 
008356,000142: 
008357,000143: 05,2373           05135                           TC       FINDVAC                               
008358,000144: 
008359,000145: 05,2374           77777        SIM2CADR           OCT      77777                                 
008360,000146: 
008361,000147: 05,2375           77777                           OCT      77777                                 
008362,000148: 05,2376           31241        SKIPSIM            CA       DSPTAB     +11D                       
008363,000149: 05,2377           75004                           MASK     BITS4&6                               
008364,000150: 05,2400           64752                           AD       BIT15                                 
008365,000151: 05,2401           55241                           TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
008366,000152: 
008367,000153: 05,2402           34772                           CAF      ZERO                                  #  SAME STORY ON ZEROING FAILREG.
008368,000154: 05,2403           55365                           TS       ERCOUNT                               
008369,000155: 05,2404           54375                           TS       FAILREG                               
008370,000156: 05,2405           54376                           TS       FAILREG    +1                         
008371,000157: 05,2406           54377                           TS       FAILREG    +2                         
008372,000158: 05,2407           55306                           TS       REDOCTR                               
008373,000159: 
008374,000160: 05,2410           00006                           EXTEND                                         
008375,000161: 05,2411           01077                           WRITE    CHAN77                                #  ZERO CHANNEL 77
008376,000162: 05,2412           44664                           CS       PRIO12                                
008377,000163: 05,2413           55322                           TS       DSRUPTSW                              
008378,000164: 
008379,000165: 05,2414           34772        DOFSTART           CAF      ZERO                                  #  DO A FRESH START.
008380,000166: 05,2415           55360                           TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
008381,000167: 05,2416           55362                           TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
008382,000168: 05,2417           55501                           TS       UPSVFLAG                              #  UPDATE STATE VECTOR REQUEST FLAGWORD
008383,000169: 05,2420           00006                           EXTEND                                         
008384,000170: 05,2421           01005                           WRITE    CHAN5                                 #  TURN OFF RCS JETS
008385,000171: 05,2422           00006                           EXTEND                                         
008386,000172: 05,2423           01006                           WRITE    CHAN6                                 #  TURN OFF RCS JETS
008387,000173: 05,2424           00006                           EXTEND                                         
008388,000174: 05,2425           01011                           WRITE    DSALMOUT                              #  ZERO CHANNEL 11
008389,000175: 05,2426           00006                           EXTEND                                         
008390,000176: 05,2427           01012                           WRITE    CHAN12                                #  ZERO CHANNEL 12
008391,000177: 05,2430           00006                           EXTEND                                         
008392,000178: 05,2431           01013                           WRITE    CHAN13                                #  ZERO CHANNEL 13
008393,000179: 05,2432           00006                           EXTEND                                         

Page 195

008395,000181: 05,2433           01014                           WRITE    CHAN14                                #  ZERO CHANNEL 14
008396,000182: 05,2434           55331                           TS       WTOPTION                              
008397,000183: 05,2435           54332                           TS       DNLSTCOD                              
008398,000184: 
008399,000185: 05,2436           54370                           TS       NVSAVE                                
008400,000186: 05,2437           55275                           TS       EBANKTEM                              
008401,000187: 05,2440           54772                           TS       TRKMKCNT                              
008402,000188: 05,2441           54771                           TS       VHFCNT                                
008403,000189: 05,2442           55247                           TS       EXTVBACT                              
008404,000190: 
008405,000191: 05,2443           54735                           TS       TRATE                                 
008406,000192: 05,2444           54736                           TS       SRATE                                 
008407,000193: 05,2445           54740                           TS       TOLD                                  
008408,000194: 05,2446           54741                           TS       SOLD                                  
008409,000195: 05,2447           41241                           CS       DSPTAB     +11D                       
008410,000196: 05,2450           75004                           MASK     BITS4&6                               
008411,000197: 05,2451           10000                           CCS      A                                     
008412,000198: 05,2452           02456                           TC       +4                                    
008413,000199: 05,2453           35004                           CA       BITS4&6                               
008414,000200: 05,2454           00006                           EXTEND                                         #  THE IMU WAS IN COARSE ALIGN IN GIMBAL
008415,000201: 05,2455           05012                           WOR      CHAN12                                #  LOCK, SO PUT IT BACK INTO COARSE ALIGN.
008416,000202: 05,2456           02536                           TC       MR.KLEAN                              
008417,000203: 
008418,000204: 05,2457           44772                           CS       ZERO                                  
008419,000205: 05,2460           55214                           TS       MODREG                                
008420,000206: 
008421,000207: 05,2461           34346                           CAF      PRIO30                                
008422,000208: 05,2462           54365                           TS       RESTREG                               
008423,000209: 
008424,000210: 05,2463           33247                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
008425,000211: 05,2464           55333                           TS       IMODES30                              
008426,000212: 
008427,000213: 05,2465           37702                           CAF      NEGONE                                
008428,000214: 05,2466           55323                           TS       OPTIND                                #  KILL COARSE OPTICS
008429,000215: 
008430,000216: 05,2467           33251                           CAF      OPTINITF                              
008431,000217: 05,2470           55337                           TS       OPTMODES                              
008432,000218: 
008433,000219: 05,2471           35055                           CAF      IM33INIT                              
008434,000220: 05,2472           55334                           TS       IMODES33                              
008435,000221: 
008436,000222: 05,2473           00006                           EXTEND                                         #  LET T5 IDLE.
008437,000223: 05,2474           33231                           DCA      T5IDLER                               
008438,000224: 05,2475           52113                           DXCH     T5LOC                                 
008439,000225: 
008440,000226: 05,2476           33252                           CA       SWINIT                                
008441,000227: 05,2477           54074                           TS       STATE                                 
008442,000228: 
008443,000229: 05,2500           30075                           CA       FLAGWRD1                              
008444,000230: 05,2501           74755                           MASK     NOP01BIT                              #  LEAVE NODOP01 FLAG UNTOUCHED

Page 196

008446,000232: 05,2502           63253                           AD       SWINIT     +1                         
008447,000233: 05,2503           54075                           TS       FLAGWRD1                              
008448,000234: 
008449,000235: 05,2504           33254                           CA       SWINIT     +2                         
008450,000236: 05,2505           54076                           TS       STATE      +2                         
008451,000237: 
008452,000238: 05,2506           30077                           CA       FLAGWRD3                              
008453,000239: 05,2507           74754                           MASK     REFSMBIT                              
008454,000240: 05,2510           63255                           AD       SWINIT     +3                         
008455,000241: 05,2511           54077                           TS       FLAGWRD3                              
008456,000242: 
008457,000243: 05,2512           00006                           EXTEND                                         
008458,000244: 05,2513           33257                           DCA      SWINIT     +4                         
008459,000245: 05,2514           52101                           DXCH     STATE      +4                         
008460,000246: 05,2515           00006                           EXTEND                                         
008461,000247: 05,2516           33261                           DCA      SWINIT     +6                         
008462,000248: 05,2517           52103                           DXCH     STATE      +6                         
008463,000249: 05,2520           30104                           CA       FLAGWRD8                              
008464,000250: 05,2521           72562                           MASK     OCT6200                               #  CMOONFLG, LMOONFLG, AND SUFFLAG
008465,000251: 05,2522           63262                           AD       SWINIT     +8D                        
008466,000252: 05,2523           54104                           TS       FLAGWRD8                              
008467,000253: 
008468,000254: 05,2524           33263                           CA       SWINIT     +9D                        
008469,000255: 05,2525           54105                           TS       STATE      +9D                        
008470,000256: 
008471,000257: 05,2526           34756                           CAF      HDSUPBIT                              
008472,000258: 05,2527           70106                           MASK     FLGWRD10                              
008473,000259: 05,2530           63264                           AD       SWINIT     +10D                       
008474,000260: 05,2531           54106                           TS       FLGWRD10                              
008475,000261: 
008476,000262: 05,2532           33265                           CAF      SWINIT     +11D                       
008477,000263: 05,2533           54107                           TS       FLGWRD11                              
008478,000264: 
008479,000265: 05,2534           04655        ENDRSTRT           TC       POSTJUMP                              
008480,000266: 05,2535           03173                           CADR     DUMMYJOB   +2                         #  DOES A RELINT.  (IN A SWITCHED BANK.)
008481,000267: 
008482,000268: 05,2536           00004        MR.KLEAN           INHINT                                         
008483,000269: 05,2537           00006                           EXTEND                                         
008484,000270: 05,2540           34772                           DCA      NEG0                                  
008485,000271: 05,2541           53160                           DXCH     -PHASE2                               
008486,000272: 05,2542           00006        POOKLEAN           EXTEND                                         
008487,000273: 05,2543           34772                           DCA      NEG0                                  
008488,000274: 05,2544           53164                           DXCH     -PHASE4                               
008489,000275: 05,2545           00006                           EXTEND                                         
008490,000276: 05,2546           34772                           DCA      NEG0                                  
008491,000277: 05,2547           53156                           DXCH     -PHASE1                               
008492,000278: 05,2550           00006        V37KLEAN           EXTEND                                         
008493,000279: 05,2551           34772                           DCA      NEG0                                  
008494,000280: 05,2552           53162                           DXCH     -PHASE3                               
008495,000281: 05,2553           00006                           EXTEND                                         

Page 197

008497,000283: 05,2554           34772                           DCA      NEG0                                  
008498,000284: 05,2555           53166                           DXCH     -PHASE5                               
008499,000285: 05,2556           00006        UPKLEAN            EXTEND                                         
008500,000286: 05,2557           34772                           DCA      NEG0                                  
008501,000287: 05,2560           53170                           DXCH     -PHASE6                               
008502,000288: 05,2561           00002                           TC       Q                                     
008503,000289: 
008504,000290: 05,2562           06200        OCT6200            OCT      6200                                  
008505,000291: 

Page 198

008507,000293:                                                                                                  #  COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
008508,000294: 
008509,000295: 05,2563           25306        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
008510,000296: 
008511,000297: 05,2564           22002                           LXCH     Q                                     
008512,000298: 05,2565           00006                           EXTEND                                         
008513,000299: 05,2566           04007                           ROR      SUPERBNK                              
008514,000300: 05,2567           53433                           DXCH     RSBBQ                                 
008515,000301: 05,2570           04636                           TC       BANKCALL                              #  STORE ERASABLES FOR DEBUGGING PURPOSES.
008516,000302: 05,2571           40000                           CADR     VAC5STOR                              
008517,000303: 05,2572           34752                           CA       BIT15                                 #  TEST OSC FAIL BIT TO SEE IF WE HAVE
008518,000304: 05,2573           00006                           EXTEND                                         #  HAD A POWER TRANSIENT. IF SO, ATTEMPT
008519,000305: 05,2574           03033                           WAND     CHAN33                                #  A RESTART. IF NOT, CHECK THE PRESENT
008520,000306: 05,2575           00006                           EXTEND                                         #  STATE OF AGC WARNING BIT.
008521,000307: 05,2576           12604                           BZF      BUTTONS                               
008522,000308: 
008523,000309: 05,2577           34753                           CA       BIT14                                 #  IF AGC WARNING ON (BIT = 0), DO A
008524,000310: 05,2600           00006                           EXTEND                                         #  FRESH START ON ASSUMPTION THAT
008525,000311: 05,2601           02033                           RAND     CHAN33                                #  WE ARE IN A RESTART LOOP.
008526,000312: 05,2602           00006                           EXTEND                                         
008527,000313: 05,2603           13044                           BZF      NONAVKEY   +1                         
008528,000314: 
008529,000315: 05,2604           03023        BUTTONS            TC       LIGHTSET                              #  MAKE FRESH START CHECKS BEFORE ERESTORE.
008530,000316: 
008531,000317:                                                                                                  #  ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
008532,000318:                                                                                                  #  AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
008533,000319:                                                                                                  #  ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
008534,000320:                                                                                                  #  EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT.  OTHERWISE
008535,000321:                                                                                                  #  C(ERESTORE) SHOULD EQUAL +0.
008536,000322: 
008537,000323: 05,2605           34344                           CAF      HI5                                   
008538,000324: 05,2606           71360                           MASK     ERESTORE                              
008539,000325: 05,2607           00006                           EXTEND                                         
008540,000326: 05,2610           12612                           BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
008541,000327: 05,2611           13044                           TCF      NONAVKEY   +1                         #  DOUBT E MEMORY AND DO FRESH START.
008542,000328: 05,2612           41360                           CS       ERESTORE                              
008543,000329: 05,2613           00006                           EXTEND                                         
008544,000330: 05,2614           12631                           BZF      ELRSKIP    -1                         
008545,000331: 05,2615           61377                           AD       SKEEP7                                
008546,000332: 05,2616           00006                           EXTEND                                         
008547,000333: 05,2617           12621                           BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
008548,000334: 05,2620           13044                           TCF      NONAVKEY   +1                         #  NOT = SKEEP7, DOUBT EMEM, DO FRESH START
008549,000335: 05,2621           31374                           CA       SKEEP4                                
008550,000336: 05,2622           54003                           TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
008551,000337: 05,2623           00006                           EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
008552,000338: 05,2624           31376                           DCA      SKEEP5                                
008553,000339: 05,2625           51377                           INDEX    SKEEP7                                
008554,000340: 05,2626           52001                           DXCH     0000                                  #  E MEMORY RESTORED.
008555,000341: 05,2627           34772                           CA       ZERO                                  
008556,000342: 05,2630           55360                           TS       ERESTORE                              

Page 199

008558,000344: 05,2631           03046                 -1        TC       STARTSUB                              #  DO INITIALIZATION AFTER ERASE RESTORE.
008559,000345: 05,2632           30102        ELRSKIP            CA       FLAGWRD6                              #  RESTART AUTOPILOTS
008560,000346: 05,2633           74076                           MASK     DPCONFIG                              
008561,000347: 05,2634           00006                           EXTEND                                         
008562,000348: 05,2635           74766                           MP       BIT3                                  #  BITS 15,14    00      T5IDLOC
008563,000349: 05,2636           76211                           MASK     SIX                                   #                01      REDORCS
008564,000350: 05,2637           00006                           EXTEND                                         #                10      REDOTVC
008565,000351: 05,2640           50000                           INDEX    A                                     #                11      REDOSAT
008566,000352: 05,2641           33231                           DCA      T5IDLER                               
008567,000353: 05,2642           52113                           DXCH     T5LOC                                 
008568,000354: 
008569,000355: 05,2643           44753                           CS       INTFLBIT                              
008570,000356: 05,2644           70106                           MASK     FLGWRD10                              
008571,000357: 05,2645           54106                           TS       FLGWRD10                              
008572,000358: 
008573,000359: 05,2646           31337                           CA       OPTMODES                              
008574,000360: 05,2647           75001                           MASK     OPTINITR                              
008575,000361: 05,2650           64762                           AD       OCDUFBIT                              
008576,000362: 05,2651           55337                           TS       OPTMODES                              
008577,000363: 
008578,000364: 05,2652           34763                           CAF      NOIMUDAP                              
008579,000365: 05,2653           71334                           MASK     IMODES33                              
008580,000366: 05,2654           65055                           AD       IM33INIT                              
008581,000367: 05,2655           55334                           TS       IMODES33                              
008582,000368: 
008583,000369: 05,2656           34772                           CAF      ZERO                                  
008584,000370: 05,2657           54740                           TS       TOLD                                  
008585,000371: 05,2660           54741                           TS       SOLD                                  
008586,000372: 05,2661           33250                           CA       9,6,4                                 #  LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
008587,000373: 05,2662           71241                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
008588,000374: 05,2663           64752                           AD       BIT15                                 
008589,000375: 05,2664           57241                           XCH      DSPTAB     +11D                       
008590,000376: 05,2665           74765                           MASK     BIT4                                  #  IF NO ATT LAMP WAS ON, LEAVE ISS IN
008591,000377: 05,2666           00006                           EXTEND                                         #  COURSE ALIGN
008592,000378: 05,2667           12676                           BZF      NOCOARSE                              
008593,000379: 05,2670           04714                           TC       IBNKCALL                              #  IF NO ATT LAMP ON, RETURN ISS TO
008594,000380: 05,2671           17070                           CADR     SETCOARS                              #        COARSE ALIGN
008595,000381: 
008596,000382: 05,2672           36211                           CAF      SIX                                   
008597,000383: 05,2673           05233                           TC       WAITLIST                              
008598,000384: 05,2674  E3,1474                                  EBANK=   CDUIND                                
008599,000385: 05,2674           03064 16063                     2CADR    CA+ECE                                
008600,000386: 
008601,000387: 05,2676           33240        NOCOARSE           CAF      IFAILINH                              #  LEAVE FAILURE INHIBITS INTACT ON
008602,000388: 05,2677           71333                           MASK     IMODES30                              #        HARDWARE RESTART. RESET ALL
008603,000389: 05,2700           67660                           AD       IM30INIR                              #        FAILURE CODES.
008604,000390: 05,2701           55333                           TS       IMODES30                              
008605,000391: 
008606,000392: 05,2702           40101                           CS       FLAGWRD5                              
008607,000393: 05,2703           74762                           MASK     ENGONBIT                              

Page 200

008609,000395: 05,2704           10000                           CCS      A                                     
008610,000396: 05,2705           12730                           TCF      GOPROG3                               
008611,000397: 05,2706           34754                           CAF      BIT13                                 
008612,000398: 05,2707           00006                           EXTEND                                         
008613,000399: 05,2710           05011                           WOR      DSALMOUT                              #  TURN ENGINE ON
008614,000400: 05,2711           12730                           TCF      GOPROG3                               
008615,000401: 05,2712           00004        ENEMA              INHINT                                         
008616,000402: 05,2713           03023                           TC       LIGHTSET                              #  EXIT TO DOFSTART IF ERROR RESET AND
008617,000403: 05,2714           03054                           TC       STARTSB2                              #  MARK REJECT DEPRESSED SIMULTANEOUSLY
008618,000404: 05,2715           44753                           CS       INTFLBIT                              
008619,000405: 05,2716           70106                           MASK     FLGWRD10                              
008620,000406: 05,2717           54106                           TS       FLGWRD10                              
008621,000407: 
008622,000408: 05,2720           40102                           CS       FLAGWRD6                              #  IS TVC ON
008623,000409: 05,2721           74076                           MASK     DPCONFIG                              
008624,000410: 05,2722           00006                           EXTEND                                         
008625,000411: 05,2723           62730                           BZMF     GOPROG3                               #  NO
008626,000412: 
008627,000413: 05,2724           35011                           CAF      .5SEC                                 #  YES, CALL TVCEXEC TASK WHICH WAS KILLED
008628,000414: 05,2725           05233                           TC       WAITLIST                              #        IN STARTSB2.
008629,000415: 05,2726  E6,1446                                  EBANK=   CNTR                                  
008630,000416: 05,2726           03037 34066                     2CADR    TVCEXEC                               
008631,000417: 
008632,000418: 05,2730           30102        GOPROG3            CA       FLAGWRD6                              
008633,000419: 05,2731           74076                           MASK     DPCONFIG                              
008634,000420: 05,2732           00006                           EXTEND                                         
008635,000421: 05,2733           62744                           BZMF     GOPROG4                               
008636,000422: 05,2734           34764                           CAF      TRACKBIT                              
008637,000423: 05,2735           70075                           MASK     FLAGWRD1                              
008638,000424: 05,2736           10000                           CCS      A                                     
008639,000425: 05,2737           12744                           TCF      GOPROG4                               
008640,000426: 05,2740           04611                           TC       E6SETTER                              
008641,000427: 05,2741           04463                           TC       STOPRATE                              
008642,000428: 05,2742           35024                           CAF      EBANK3                                
008643,000429: 05,2743           54003                           TS       EBANK                                 
008644,000430: 05,2744           34773        GOPROG4            CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
008645,000431: 05,2745           54161        PCLOOP             TS       MPAC       +5                         
008646,000432: 05,2746           60000                           DOUBLE                                         
008647,000433: 05,2747           00006                           EXTEND                                         
008648,000434: 05,2750           50000                           INDEX    A                                     
008649,000435: 05,2751           31156                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
008650,000436: 05,2752           00006                           EXTEND                                         
008651,000437: 05,2753           06001                           RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
008652,000438: 05,2754           10000                           CCS      A                                     
008653,000439: 05,2755           13012                           TCF      PTBAD                                 #  RESTART FAILURE.
008654,000440: 05,2756           13012                           TCF      PTBAD                                 
008655,000441: 05,2757           13012                           TCF      PTBAD                                 
008656,000442: 
008657,000443: 05,2760           10161                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
008658,000444: 05,2761           12745                           TCF      PCLOOP                                

Page 201

008660,000446: 05,2762           54162                           TS       MPAC       +6                         #  SET TO +0.
008661,000447: 05,2763           05350                           TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
008662,000448: 
008663,000449: 05,2764           00004                           INHINT                                         #  RELINT DONE IN MMDSPLAY
008664,000450: 
008665,000451: 05,2765           34773                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
008666,000452: 05,2766           54161        NXTRST             TS       MPAC       +5                         
008667,000453: 05,2767           60000                           DOUBLE                                         
008668,000454: 05,2770           50000                           INDEX    A                                     
008669,000455: 05,2771           11156                           CCS      PHASE1                                
008670,000456: 05,2772           12774                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
008671,000457: 05,2773           13001                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
008672,000458: 
008673,000459: 05,2774           54154        PACTIVE            TS       MPAC                                  
008674,000460: 05,2775           24154                           INCR     MPAC                                  #  ABS OF PHASE.
008675,000461: 05,2776           24162                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
008676,000462: 05,2777           04636                           TC       BANKCALL                              
008677,000463: 05,3000           03467                           CADR     RESTARTS                              
008678,000464: 
008679,000465: 05,3001           10161        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
008680,000466: 05,3002           12766                           TCF      NXTRST                                
008681,000467: 
008682,000468: 05,3003           10162                           CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
008683,000469: 05,3004           12534                           TCF      ENDRSTRT                              #  PHASE ACTIVE
008684,000470: 05,3005           34752                           CAF      BIT15                                 #  IS MODE -0
008685,000471: 05,3006           71214                           MASK     MODREG                                
008686,000472: 05,3007           00006                           EXTEND                                         
008687,000473: 05,3010           14103                           BZF      GOTOPOOH                              #  NO
008688,000474: 05,3011           12534                           TCF      ENDRSTRT                              #  YES
008689,000475: 05,3012           05671        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
008690,000476: 05,3013           01107                           OCT      1107                                  
008691,000477: 
008692,000478: 05,3014           12414                           TCF      DOFSTART                              #  IN R2).
008693,000479: 
008694,000480:                                                                                                  #  ******** ****** ******
008695,000481: 
008696,000482:                                                                                                  #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
008697,000483: 
008698,000484: 05,3015           00004        GOPROG2            INHINT                                         
008699,000485: 05,3016           03054                           TC       STARTSB2                              
008700,000486: 05,3017           44753                           CS       INTFLBIT                              
008701,000487: 05,3020           70106                           MASK     FLGWRD10                              
008702,000488: 05,3021           54106                           TS       FLGWRD10                              
008703,000489: 05,3022           12744                           TCF      GOPROG4                               
008704,000490: 05,3023     4754               OCT10000           =        BIT13                                 
008705,000491: 05,3023     4346               OCT30000           =        PRIO30                                
008706,000492: 05,3023           34762        LIGHTSET           CAF      BIT7                                  #  DOFSTART IF MARK REJECT AND EITHER
008707,000493: 05,3024           00006                           EXTEND                                         #  ERROR LIGHT RESET BUTTONS ARE DEPRESSED
008708,000494: 05,3025           02016                           RAND     NAVKEYIN                              
008709,000495: 05,3026           00006                           EXTEND                                         

Page 202

008711,000497: 05,3027           13043                           BZF      NONAVKEY                              #  NO MARK REJECT
008712,000498: 05,3030           34342                           CAF      OCT37                                 
008713,000499: 05,3031           00006                           EXTEND                                         
008714,000500: 05,3032           02016                           RAND     NAVKEYIN                              #  NAV DSKY KEYCODES,MARK,MARK REJECT
008715,000501: 05,3033           63246                           AD       -ELR                                  
008716,000502: 05,3034           00006                           EXTEND                                         
008717,000503: 05,3035           13044                           BZF      NONAVKEY   +1                         
008718,000504: 05,3036           00006                           EXTEND                                         
008719,000505: 05,3037           00015                           READ     MNKEYIN                               #  MAIN DSKY KEYCODES
008720,000506: 05,3040           63246                           AD       -ELR                                  
008721,000507: 05,3041           00006                           EXTEND                                         
008722,000508: 05,3042           13044                           BZF      +2                                    
008723,000509: 
008724,000510: 05,3043           00002        NONAVKEY           TC       Q                                     
008725,000511: 
008726,000512: 05,3044           03046                 +1        TC       STARTSUB                              
008727,000513: 05,3045           12414                           TCF      DOFSTART                              
008728,000514: 05,3046           33241        STARTSUB           CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
008729,000515: 05,3047           54334                           TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE
008730,000516:                                                                                                  #  INTERRUPTED AND START SENDING FROM THE
008731,000517:                                                                                                  #  BEGINNING OF THE CURRENT DOWNLIST.
008732,000518: 
008733,000519: 05,3050           37662                           CAF      OCT37774                              #  37774 TO TIME5
008734,000520: 05,3051           54030                           TS       TIME5                                 
008735,000521: 05,3052           64770                           AD       ONE                                   #  37775 TO TIME4
008736,000522: 05,3053           54027                           TS       TIME4                                 
008737,000523: 
008738,000524: 05,3054           33244        STARTSB2           CAF      OCT77603                              #  TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
008739,000525: 05,3055           00006                           EXTEND                                         #  FLASH, OP. ERROR, LEAVE OTHERS UNCHANGED
008740,000526: 05,3056           03011                           WAND     DSALMOUT                              
008741,000527: 
008742,000528: 05,3057           34750                           CAF      POSMAX                                #  37777 to TIME3.
008743,000529: 05,3060           54026                           TS       TIME3                                 
008744,000530: 
008745,000531: 05,3061           33245                           CAF      OCT74777                              #  TURN OFF TEST ALARMS, STANDBY ENABLE.
008746,000532: 05,3062           00006                           EXTEND                                         
008747,000533: 05,3063           03013                           WAND     CHAN13                                
008748,000534: 05,3064           34753                           CAF      R21BIT                                #  CLEAR BITS
008749,000535: 05,3065           64755                           AD       P21BIT                                
008750,000536: 05,3066           64757                           AD       SKIPVBIT                              
008751,000537: 05,3067           40000                           COM                                            
008752,000538: 05,3070           70076                           MASK     FLAGWRD2                              
008753,000539: 05,3071           64757                           AD       SKIPVBIT                              #  NOW SET SKIPVHF FLAG.
008754,000540: 05,3072           54076                           TS       FLAGWRD2                              
008755,000541: 05,3073           44765                           CS       MARKBIT                               
008756,000542: 05,3074           70075                           MASK     FLAGWRD1                              
008757,000543: 05,3075           54075                           TS       FLAGWRD1                              
008758,000544: 
008759,000545: 05,3076           44765                           CS       CYC61BIT                              
008760,000546: 05,3077           70074                           MASK     FLAGWRD0                              

Page 203

008762,000548: 05,3100           54074                           TS       FLAGWRD0                              
008763,000549: 05,3101  E3,1400                                  EBANK=   LST1                                  
008764,000550: 05,3101           35024                           CAF      EBANK3                                
008765,000551: 05,3102           54003                           TS       EBANK                                 #  SET FOR E3
008766,000552: 
008767,000553: 05,3103           34751                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
008768,000554: 05,3104           55407                           TS       LST1       +7                         
008769,000555: 05,3105           55406                           TS       LST1       +6                         
008770,000556: 05,3106           55405                           TS       LST1       +5                         
008771,000557: 05,3107           55404                           TS       LST1       +4                         
008772,000558: 05,3110           55403                           TS       LST1       +3                         
008773,000559: 05,3111           55402                           TS       LST1       +2                         
008774,000560: 05,3112           55401                           TS       LST1       +1                         
008775,000561: 05,3113           55400                           TS       LST1                                  
008776,000562: 
008777,000563: 05,3114           45274                           CS       ENDTASK                               
008778,000564: 05,3115           55410                           TS       LST2                                  
008779,000565: 05,3116           55412                           TS       LST2       +2                         
008780,000566: 05,3117           55414                           TS       LST2       +4                         
008781,000567: 05,3120           55416                           TS       LST2       +6                         
008782,000568: 05,3121           55420                           TS       LST2       +8D                        
008783,000569: 05,3122           55422                           TS       LST2       +10D                       
008784,000570: 05,3123           55424                           TS       LST2       +12D                       
008785,000571: 05,3124           55426                           TS       LST2       +14D                       
008786,000572: 05,3125           55430                           TS       LST2       +16D                       
008787,000573: 05,3126           45275                           CS       ENDTASK    +1                         
008788,000574: 05,3127           55411                           TS       LST2       +1                         
008789,000575: 05,3130           55413                           TS       LST2       +3                         
008790,000576: 05,3131           55415                           TS       LST2       +5                         
008791,000577: 05,3132           55417                           TS       LST2       +7                         
008792,000578: 05,3133           55421                           TS       LST2       +9D                        
008793,000579: 05,3134           55423                           TS       LST2       +11D                       
008794,000580: 05,3135           55425                           TS       LST2       +13D                       
008795,000581: 05,3136           55427                           TS       LST2       +15D                       
008796,000582: 05,3137           55431                           TS       LST2       +17D                       
008797,000583: 
008798,000584: 05,3140           44772                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
008799,000585: 05,3141           54167                           TS       PRIORITY                              #  AVAILABLE.
008800,000586: 05,3142           54203                           TS       PRIORITY   +12D                       
008801,000587: 05,3143           54217                           TS       PRIORITY   +24D                       
008802,000588: 05,3144           54233                           TS       PRIORITY   +36D                       
008803,000589: 05,3145           54247                           TS       PRIORITY   +48D                       
008804,000590: 05,3146           54263                           TS       PRIORITY   +60D                       
008805,000591: 05,3147           54277                           TS       PRIORITY   +72D                       
008806,000592: 
008807,000593: 05,3150           55322                           TS       DSRUPTSW                              
008808,000594: 05,3151           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
008809,000595: 
008810,000596: 05,3152           33243                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
008811,000597: 05,3153           54400                           TS       VAC1USE                               

Page 204

008813,000599: 05,3154           65005                           AD       LTHVACA                               
008814,000600: 05,3155           54454                           TS       VAC2USE                               
008815,000601: 05,3156           65005                           AD       LTHVACA                               
008816,000602: 05,3157           54530                           TS       VAC3USE                               
008817,000603: 05,3160           65005                           AD       LTHVACA                               
008818,000604: 05,3161           54604                           TS       VAC4USE                               
008819,000605: 05,3162           65005                           AD       LTHVACA                               
008820,000606: 05,3163           54660                           TS       VAC5USE                               
008821,000607: 
008822,000608: 05,3164           34355                           CAF      TEN                                   #  BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN,
008823,000609:                                                                                                  #  R1,R2,R3)
008824,000610: 05,3165           54154        DSPOFF             TS       MPAC                                  
008825,000611: 05,3166           44755                           CS       BIT12                                 
008826,000612: 05,3167           50154                           INDEX    MPAC                                  
008827,000613: 05,3170           55226                           TS       DSPTAB                                
008828,000614: 05,3171           10154                           CCS      MPAC                                  
008829,000615: 05,3172           13165                           TCF      DSPOFF                                
008830,000616: 
008831,000617: 05,3173           55000                           TS       DELAYLOC                              
008832,000618: 05,3174           55001                           TS       DELAYLOC   +1                         
008833,000619: 05,3175           55002                           TS       DELAYLOC   +2                         
008834,000620: 05,3176           55003                           TS       DELAYLOC   +3                         
008835,000621: 05,3177           54045                           TS       INLINK                                
008836,000622: 05,3200           55201                           TS       DSPCNT                                
008837,000623: 05,3201           55245                           TS       CADRSTOR                              
008838,000624: 05,3202           55216                           TS       REQRET                                
008839,000625: 05,3203           55220                           TS       CLPASS                                
008840,000626: 05,3204           55215                           TS       DSPLOCK                               
008841,000627: 05,3205           55223                           TS       MONSAVE                               #  KILL MONITOR
008842,000628: 05,3206           55224                           TS       MONSAVE1                              
008843,000629: 05,3207           55204                           TS       VERBREG                               
008844,000630: 05,3210           55205                           TS       NOUNREG                               
008845,000631: 05,3211           55246                           TS       DSPLIST                               
008846,000632: 05,3212           55335                           TS       IMUCADR                               
008847,000633: 05,3213           55324                           TS       LGYRO                                 
008848,000634: 05,3214           54100                           TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
008849,000635: 05,3215           54301                           TS       MARKINDX                              
008850,000636: 05,3216           55247                           TS       EXTVBACT                              
008851,000637: 05,3217           34775                           CAF      NOUTCON                               
008852,000638: 05,3220           55221                           TS       NOUT                                  
008853,000639: 
008854,000640: 05,3221           33242                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
008855,000641: 05,3222           55361                           TS       SELFRET                               
008856,000642: 
008857,000643: 05,3223           44351                           CS       VD1                                   
008858,000644: 05,3224           55202                           TS       DSPCOUNT                              
008859,000645: 
008860,000646: 05,3225           00002                           TC       Q                                     
008861,000647: 05,3226           30001        T5IDLOC            CA       L                                     #  T5RUPT COMES HERE EVERY 163.84 SECS
008862,000648: 05,3227           15326                           TCF      NOQRSM     +1                         #  WHEN NOBODY IS USING IT.
008863,000649: 

Page 205

008865,000651: 05,3230  E6,1645                                  EBANK=   OGANOW                                
008866,000652: 05,3230           03226 12066  T5IDLER            2CADR    T5IDLOC                               
008867,000653: 
008868,000654: 05,3232  E6,1645                                  EBANK=   OGANOW                                
008869,000655: 05,3232           02123 42066                     2CADR    REDORCS                               
008870,000656: 
008871,000657: 05,3234  E6,1645                                  EBANK=   OGANOW                                
008872,000658: 05,3234           03222 34066                     2CADR    REDOTVC                               
008873,000659: 
008874,000660: 05,3236  E6,1645                                  EBANK=   OGANOW                                
008875,000661: 05,3236           02000 54066                     2CADR    REDOSAT                               
008876,000662: 
008877,000663: 05,3240           00435        IFAILINH           OCT      435                                   
008878,000664: 05,3241           03446        LDNPHAS1           GENADR   DNPHASE1                              
008879,000665: 05,3242           03270        LESCHK             GENADR   SELFCHK                               
008880,000666: 05,3243           00400        VAC1ADRC           ADRES    VAC1USE                               
008881,000667: 05,3244           77603        OCT77603           OCT      77603                                 
008882,000668: 05,3245           74777        OCT74777           OCT      74777                                 
008883,000669: 05,3246     4773               NUMGRPS            EQUALS   FIVE                                  
008884,000670: 05,3246           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
008885,000671: 05,3247           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
008886,000672: 05,3250     7660               IM30INIR           =        PRIO37                                
008887,000673: 05,3250     5055               IM33INIT           =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
008888,000674: 05,3250           00450        9,6,4              OCT      450                                   
008889,000675: 05,3251           00130        OPTINITF           OCT      130                                   
008890,000676: 05,3252     5001               OPTINITR           =        BITS4&5                               
008891,000677: 05,3252           00000        SWINIT             OCT      0                                     
008892,000678: 05,3253           00000                           OCT      0                                     
008893,000679: 05,3254           00000                           OCT      0                                     
008894,000680: 05,3255           00000                           OCT      0                                     
008895,000681: 
008896,000682: 05,3256           00000                           OCT      0                                     
008897,000683: 05,3257           00200                           OCT      00200                                 
008898,000684: 05,3260           00004                           OCT      00004                                 #  .05GSW
008899,000685: 05,3261           00000                           OCT      0                                     
008900,000686: 05,3262           00000                           OCT      0                                     
008901,000687: 05,3263           00000                           OCT      0                                     
008902,000688: 05,3264           00000                           OCT      0                                     
008903,000689: 05,3265           00000                           OCT      0                                     

Page 206

008905,000691:                                                                                                  #  ROUTINE NAME          GOTOPOOH -- ENTRANCE TO ROUTINE R00 (SELECTION OF NEW PROGRAM VIA V37)
008906,000692:                                                                                                  #  FUNCTIONAL DESCRIPTION
008907,000693: 
008908,000694:                                                                                                  #        1. FLASH V37    TO REQUEST SELECTION OF NEW PROGRAM
008909,000695: 
008910,000696:    4000                                           SETLOC   FFTAG10                               
008911,000697:    4000                                           BANK                                           
008912,000698: 
008913,000699:    4103                                           COUNT*   $$/POO                                
008914,000700:    4103           05561        GOTOPOOH           TC       DOWNFLAG                              
008915,000701:    4104           00236                           ADRES    AUTOSEQ                               
008916,000702:    4105           05402        MNKGOPOO           TC       PHASCHNG                              
008917,000703:    4106           05024                           OCT      05024                                 
008918,000704:    4107           13000                           OCT      13000                                 
008919,000705:    4110           04655                           TC       POSTJUMP                              
008920,000706:    4111           10000                           CADR     GOPOOFIX                              
008921,000707:    4112           34762        AUTOCHK            CAF      AUTSQBIT                              #  IS THIS AN AUTO SEQUENCE
008922,000708:    4113           70106                           MASK     FLGWRD10                              
008923,000709:    4114           00006                           EXTEND                                         
008924,000710:    4115           16711                           BZF      TCQ                                   #  NO, RETURN TO CALLER
008925,000711:    4116           05402        AUTOCHK1           TC       PHASCHNG                              
008926,000712:    4117           05024                           OCT      05024                                 
008927,000713:    4120           13000                           OCT      13000                                 
008928,000714: 
008929,000715:                                                                                                  #  GROUP 4 USE IS OK SINCE V37 TO FOLLOW
008930,000716:    4121           34754                           CAF      BIT13                                 
008931,000717:    4122           56004                           XCH      FBANK                                 #  INCORRECT IF P80'S NOT IN BANK 4 (BIT13)
008932,000718:    4123           01012                           TC       AUTPOINT                              
008933,000719: 04,2000                                           SETLOC   VERB37                                
008934,000720: 04,2000                                           BANK                                           
008935,000721: 
008936,000722: 04,2000                                           COUNT*   $$/POO                                
008937,000723: 04,2000           02767        GOPOOFIX           TC       INITSUB                               
008938,000724: 04,2001           05531                           TC       CLEARMRK   +2                         
008939,000725: 04,2002           04112                           TC       AUTOCHK                               
008940,000726: 04,2003           32006                           CAF      V37N99                                
008941,000727: 04,2004           05535                           TC       VNFLASH                               
008942,000728: 04,2005           02003                           TC       -2                                    
008943,000729: 
008944,000730: 04,2006           11343        V37N99             VN       3799                                  
008945,000731: 

Page 207

008947,000733:                                                                                                  #  PROGRAM NAME          V37                             ASSEMBLY        SUNDISK
008948,000734:                                                                                                  #  LOG SECTION           FRESH START AND RESTART
008949,000735: 
008950,000736:                                                                                                  #  FUNCTIONAL DESCRIPTION
008951,000737: 
008952,000738:                                                                                                  #        1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
008953,000739:                                                                                                  #        2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
008954,000740:                                                                                                  #           SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
008955,000741:                                                                                                  #        3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
008956,000742:                                                                                                  #        4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
008957,000743:                                                                                                  #        5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
008958,000744:                                                                                                  #        6. TRACK, UPDATE AND TARG1 FLAGS ARE SET TO ZERO.
008959,000745:                                                                                                  #        7. DISPLAY SYSTEM IS RELEASED.
008960,000746:                                                                                                  #        8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
008961,000747:                                                                                                  #                A. PROGRAM SELECTED IS P00.
008962,000748:                                                                                                  #                        1. RENDEZVOUS FLAG IS RESET (KILL P20).
008963,000749:                                                                                                  #                        2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
008964,000750:                                                                                                  #                        3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
008965,000751:                                                                                                  #                        4. SUPERBANK 3 IS SELECTED.
008966,000752:                                                                                                  #                        5. NODOFLAG IS RESET.
008967,000753:                                                                                                  #                        6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2)
008968,000754:                                                                                                  #                           WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
008969,000755:                                                                                                  #                           INITIATED.
008970,000756:                                                                                                  #                B. PROGRAM SELECTED IS P20
008971,000757:                                                                                                  #                        1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
008972,000758:                                                                                                  #                           VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
008973,000759:                                                                                                  #                        2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
008974,000760:                                                                                                  #                           ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
008975,000761:                                                                                                  #                           AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
008976,000762:                                                                                                  #                           P20 IS RESTARTED TO CONTINUE, AND ITS MAJOR MODE IS SET.
008977,000763:                                                                                                  #                        3. CONTROL IS TRANSFERRED TO GOPROG2.
008978,000764:                                                                                                  #                C. PROGRAM SELECTED IS NEITHER P00 NOR P20
008979,000765:                                                                                                  #                        1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
008980,000766:                                                                                                  #                        2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
008981,000767:                                                                                                  #                           GROUPS. GROUP 2 IS CLEARED. IF THE RENDEZVOUS FLAG IS ON P20 IS RESTARTED IN GOPROG2 VIA REDOP20.
008982,000768:                                                                                                  #                           TO CONTINUE.
008983,000769: 
008984,000770:                                                                                                  #  INPUT/OUTPUT INFORMATION
008985,000771: 
008986,000772:                                                                                                  #        A. CALLING SEQUENCE
008987,000773: 
008988,000774:                                                                                                  #                CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
008989,000775:                                                                                                  #                VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
008990,000776:                                                                                                  #                MMCHANG EXECUTES A      TC POSTJUMP, CADR V37.
008991,000777: 
008992,000778:                                                                                                  #        B. ERASABLE INITIALIZATION              NONE
008993,000779: 
008994,000780:                                                                                                  #        C. OUTPUT
008995,000781:                                                                                                  #                MAJOR MODE CHANGE

Page 208

008997,000783: 
008998,000784:                                                                                                  #        D. DEBRIS
008999,000785:                                                                                                  #                MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
009000,000786:                                                                                                  #                GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
009001,000787: 
009002,000788:                                                                                                  #  PROGRAM ANALYSIS
009003,000789: 
009004,000790:                                                                                                  #        A. SUBROUTINES CALLED
009005,000791:                                                                                                  #                ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
009006,000792:                                                                                                  #                DSPMM
009007,000793: 
009008,000794:                                                                                                  #        B. NORMAL EXIT                          TC ENDOFJOB
009009,000795: 
009010,000796:                                                                                                  #        C. ALARMS                               1520 (MAJOR MODE CHANGE NOT PERMITTED)
009011,000797: 
009012,000798:    4000                                           SETLOC   FFTAG10                               
009013,000799:    4000                                           BANK                                           
009014,000800: 
009015,000801:    4124                                           COUNT*   $$/V37                                
009016,000802:    4124           00024        OCT24              MM       20         B-14                       
009017,000803:    4125           00031        OCT31              MM       25         B-14                       
009018,000804: 04,2000                                           SETLOC   VERB37                                
009019,000805: 04,2000                                           BANK                                           
009020,000806: 
009021,000807: 04,2007                                           COUNT*   $$/V37                                
009022,000808: 04,2007           55200        V37                TS       MMNUMBER                              #  SAVE MAJOR MODE
009023,000809: 04,2010           05561                           TC       DOWNFLAG                              
009024,000810: 04,2011           00236                           ADRES    AUTOSEQ                               
009025,000811: 04,2012           05561                           TC       DOWNFLAG                              
009026,000812: 04,2013           00226                           ADRES    PCMANFLG                              
009027,000813: 04,2014           05561                           TC       DOWNFLAG                              
009028,000814: 04,2015           00215                           ADRES    VHFRFLAG                              
009029,000815: 04,2016           04606                           TC       E7SETTER                              
009030,000816: 04,2017  E7,1722                                  EBANK=   MRKBUF1                               
009031,000817: 04,2017           37702                           CAF      NEGONE                                
009032,000818: 04,2020           55722                           TS       MRKBUF1                               #  TO PREVENT P20 FROM PROCESSING P50'S MRK
009033,000819: 04,2021           40077                           CS       FLAGWRD3                              
009034,000820: 04,2022           74754                           MASK     REFSMBIT                              
009035,000821: 04,2023           10000                           CCS      A                                     
009036,000822: 04,2024           12044                           TCF      AUTO37                                
009037,000823: 04,2025           31200                           CA       MMNUMBER                              
009038,000824: 04,2026           62031                           AD       NEG79                                 
009039,000825: 04,2027           10000                           CCS      A                                     
009040,000826: 04,2030           12375                           TCF      V37NONO                               
009041,000827: 04,2031           77660        NEG79              DEC      -79        B-14                       
009042,000828: 04,2032           12035                           TCF      MMOK                                  
009043,000829: 04,2033           31200        RENDP79            CA       MMNUMBER                              
009044,000830: 04,2034           12410                           TCF      REND30S    +1                         
009045,000831: 04,2035           31200        MMOK               CA       MMNUMBER                              
009046,000832: 04,2036           62406                           AD       NEG30                                 
009047,000833: 04,2037           00006                           EXTEND                                         

Page 209

009049,000835: 04,2040           62044                           BZMF     AUTO37                                #  P01 - P30
009050,000836: 04,2041           63770                           AD       NEG6                                  
009051,000837: 04,2042           00006                           EXTEND                                         
009052,000838: 04,2043           62407                           BZMF     REND30S                               #  P31 - P36 RENDEZVOUS
009053,000839: 04,2044           34346        AUTO37             CAF      PRIO30                                
009054,000840: 04,2045           54365                           TS       RESTREG                               
009055,000841: 
009056,000842: 04,2046           34772                           CAF      ZERO                                  #  ZERO OUT AUTO OPTICS RATE REGS
009057,000843: 04,2047           54740                           TS       TOLD                                  
009058,000844: 04,2050           54741                           TS       SOLD                                  
009059,000845: 04,2051           54735                           TS       TRATE                                 
009060,000846: 04,2052           54736                           TS       SRATE                                 
009061,000847: 04,2053           05561                           TC       DOWNFLAG                              
009062,000848: 04,2054           00210                           ADRES    P24FLAG                               
009063,000849: 04,2055           31333                           CA       IMODES30                              #  IS IMU BEING INITIALIZED
009064,000850: 04,2056           74763                           MASK     IMUNITBT                              
009065,000851: 04,2057           10000                           CCS      A                                     
009066,000852: 04,2060           12125                           TCF      CANTROO                               
009067,000853: 
009068,000854: 04,2061           34762                           CAF      ENGONBIT                              #  IS ENGINE ON
009069,000855: 04,2062           70101                           MASK     FLAGWRD5                              
009070,000856: 04,2063           10000                           CCS      A                                     
009071,000857: 04,2064           12071                           TCF      ROOTOPOO                              #  YES, SET UP FOR POO
009072,000858: 
009073,000859: 04,2065           40102                           CS       FLAGWRD6                              #  NO, IS TVC DAP ON
009074,000860: 04,2066           74076                           MASK     DPCONFIG                              
009075,000861: 04,2067           00006                           EXTEND                                         
009076,000862: 04,2070           62116                           BZMF     ISITPOO                               #  NO, CONTINUE WITH ROO
009077,000863: 
009078,000864: 04,2071           04611        ROOTOPOO           TC       E6SETTER                              
009079,000865: 
009080,000866: 04,2072  E6,1465                                  EBANK=   DAPDATR1                              
009081,000867: 04,2072           04636                           TC       BANKCALL                              #  SPSOFF DOES AN INHINT
009082,000868: 04,2073           51045                           CADR     SPSOFF                                
009083,000869: 04,2074           04714                           TC       IBNKCALL                              
009084,000870: 04,2075           13313                           CADR     MASSPROP                              
009085,000871: 04,2076           33054                           CAF      3.1SEC                                
009086,000872: 04,2077           04714                           TC       IBNKCALL                              
009087,000873: 04,2100           42043                           CADR     RCSDAPON   +1                         
009088,000874: 
009089,000875: 04,2101           04714                           TC       IBNKCALL                              
009090,000876: 04,2102           51161                           CADR     TVCZAP                                #  DISABLE TVC
009091,000877: 04,2103           34772                           CAF      ZERO                                  
009092,000878: 04,2104           55200                           TS       MMNUMBER                              
009093,000879: 04,2105           00003                           RELINT                                         
009094,000880: 04,2106           34773                           CAF      FIVE                                  
009095,000881: 04,2107           04636                           TC       BANKCALL                              
009096,000882: 04,2110           01731                           CADR     DELAYJOB                              
009097,000883: 04,2111           34772                           CAF      ZERO                                  
009098,000884: 04,2112           00006                           EXTEND                                         

Page 210

009100,000886: 04,2113           01005                           WRITE    5                                     
009101,000887: 04,2114           00006                           EXTEND                                         
009102,000888: 04,2115           01006                           WRITE    6                                     
009103,000889: 04,2116           31200        ISITPOO            CA       MMNUMBER                              
009104,000890: 04,2117           00006                           EXTEND                                         
009105,000891: 04,2120           12151                           BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
009106,000892: 
009107,000893: 04,2121           40076                           CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
009108,000894: 04,2122           74770                           MASK     NODOBIT                               
009109,000895: 04,2123           10000                           CCS      A                                     
009110,000896: 04,2124           12132                           TCF      CHECKTAB                              #  NO
009111,000897: 04,2125           05671        CANTROO            TC       ALARM                                 
009112,000898: 04,2126           01520                           OCT      1520                                  
009113,000899: 
009114,000900: 04,2127           04432        V37BAD             TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
009115,000901: 
009116,000902: 04,2130           04655                           TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
009117,000903: 04,2131           21275                           CADR     PINBRNCH                              #  WAS ONE. OY
009118,000904: 
009119,000905: 04,2132           33173        CHECKTAB           CA       NOV37MM                               #  THE NO. OF MM
009120,000906: 04,2133           54155        AGAINMM            TS       MPAC       +1                         
009121,000907: 04,2134           50155                           NDX      MPAC       +1                         
009122,000908: 04,2135           33124                           CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
009123,000909: 04,2136           76043                           MASK     LOW7                                  
009124,000910: 04,2137           40000                           COM                                            
009125,000911: 04,2140           61200                           AD       MMNUMBER                              
009126,000912: 04,2141           10000                           CCS      A                                     
009127,000913: 04,2142           10155                           CCS      MPAC       +1                         #  IF GR, SEE IF ANY MORE IN LIST
009128,000914: 04,2143           12133                           TCF      AGAINMM                               #  YES, GET NEXT ONE
009129,000915: 04,2144           12375                           TCF      V37NONO                               #  LAST TIME OR PASSED MM
009130,000916: 
009131,000917: 04,2145           30155                           CA       MPAC       +1                         
009132,000918: 04,2146           55177                           TS       MINDEX                                #  SAVE INDEX FOR LATER
009133,000919: 
009134,000920: 04,2147           05547                           TC       UPFLAG                                
009135,000921: 04,2150           00055                           ADRES    V50N18FL                              #  66935 55  518 490731Y
009136,000922: 
009137,000923: 04,2151           40103        ISSERVON           CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
009138,000924: 04,2152           74763                           MASK     V37FLBIT                              
009139,000925: 04,2153           10000                           CCS      A                                     
009140,000926: 04,2154           12162                           TCF      CANV37                                #  NO
009141,000927: 
009142,000928: 04,2155           00004                           INHINT                                         
009143,000929: 04,2156           44770                           CS       AVEGBIT                               #  YES TURN OFF AVERAGE G FLAG AND WAIT
009144,000930: 04,2157           70075                           MASK     FLAGWRD1                              #  FOR SERVICER TO RETURN TO CANV37
009145,000931: 04,2160           54075                           TS       FLAGWRD1                              
009146,000932: 
009147,000933: 04,2161           15205                           TCF      ENDOFJOB                              
009148,000934: 
009149,000935: 04,2162           33053        CANV37             CAF      ROOAD                                 

Page 211

009151,000937: 04,2163           54373                           TS       TEMPFLSH                              
009152,000938: 
009153,000939: 04,2164           05402                           TC       PHASCHNG                              
009154,000940: 04,2165           00014                           OCT      14                                    
009155,000941: 
009156,000942: 04,2166           06006        ROO                TC       INTPRET                               
009157,000943: 
009158,000944: 04,2167           77624                           CALL                                           #  WAIT FOR INTEGRATION TO FINISH
009159,000945: 04,2170           27516                                    INTSTALL                              
009160,000946: 04,2171           77776        DUMMYAD            EXIT                                           
009161,000947: 
009162,000948: 04,2172           45024                           CS       OCT1400                               #  CLEAR CAUTION RESET
009163,000949: 04,2173           00006                           EXTEND                                         #    AND TEST CONNECTOR OUTBIT
009164,000950: 04,2174           03011                           WAND     11                                    
009165,000951: 
009166,000952: 04,2175           33046                           CAF      OCT44571                              #  CLEAR ENABLE OPTICS ERROR COUNTER, STAR
009167,000953: 04,2176           00006                           EXTEND                                         #  TRAKERS ON BIT, TVC ENABLE, ZERO OPTICS,
009168,000954: 04,2177           03012                           WAND     12                                    #  DISENGAGE OPTICS DAP, SIVB INJ SEQUENCE
009169,000955:                                                                                                  #  START, AND SIVB CUTOFF BIT.
009170,000956: 
009171,000957: 04,2200           43047                           CS       OCT600                                #  CLEAR UNUSED BITS
009172,000958: 04,2201           00006                           EXTEND                                         
009173,000959: 04,2202           03013                           WAND     13                                    
009174,000960: 
009175,000961: 04,2203           02767                           TC       INITSUB                               
009176,000962: 
009177,000963: 04,2204           05527                           TC       CLEARMRK                              
009178,000964: 
009179,000965: 04,2205           34772                           CAF      ZERO                                  
009180,000966: 04,2206           54304                           TS       STARIND                               
009181,000967: 
009182,000968: 04,2207           05561                           TC       DOWNFLAG                              
009183,000969: 04,2210           00020                           ADRES    STIKFLAG                              
009184,000970: 
009185,000971: 04,2211           04415                           TC       UPACTOFF                              #  TURN OFF UPLINK ACTIV LIGHT
009186,000972: 
009187,000973: 04,2212           05561                           TC       DOWNFLAG                              
009188,000974: 04,2213           00037                           ADRES    R21MARK                               
009189,000975: 
009190,000976: 04,2214           11200                           CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
009191,000977: 04,2215           12352                           TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
009192,000978: 
009193,000979: 04,2216                                           COUNT*   $$/POO                                
009194,000980: 04,2216           04432        POOH               TC       RELDSP                                #  RELEASE DISPLAY SYSTEM
009195,000981: 
009196,000982: 04,2217           35047                           CAF      PRIO5                                 #  SET VARIABLE RESTART REGISTER FOR P00.
009197,000983: 04,2220           55262                           TS       PHSPRDT2                              
009198,000984: 
009199,000985: 04,2221           00004                           INHINT                                         

Page 212

009201,000987: 04,2222           44770                           CS       NODOBIT                               #  TURN OFF NODOFLAG
009202,000988: 04,2223           70076                           MASK     FLAGWRD2                              
009203,000989: 04,2224           54076                           TS       FLAGWRD2                              
009204,000990: 
009205,000991: 04,2225           34773                           CA       FIVE                                  #  SET 2.5 RESTART FOR STATEINT1
009206,000992: 04,2226           54001                           TS       L                                     
009207,000993: 04,2227           40000                           COM                                            
009208,000994: 04,2230  01,2036               2P5SPT1            =        2.5SPOT                               
009209,000995: 04,2230           53160                           DXCH     -PHASE2                               
009210,000996: 
009211,000997: 04,2231           34761                           CA       IMUSEBIT                              #  RESET IMUSE AND
009212,000998: 04,2232           64762                           AD       RNDVZBIT                              #  KILL P20
009213,000999: 04,2233           40000                           COM                                            
009214,001000: 04,2234           70074                           MASK     FLAGWRD0                              
009215,001001: 04,2235           54074                           TS       FLAGWRD0                              #                         RENDFLG
009216,001002: 
009217,001003: 04,2236           44760                           CS       UTBIT                                 
009218,001004: 04,2237           70104                           MASK     FLAGWRD8                              
009219,001005: 04,2240           54104                           TS       FLAGWRD8                              
009220,001006: 
009221,001007: 04,2241           34772                           CAF      DNLADP00                              
009222,001008: 
009223,001009: 04,2242                                           COUNT*   $$/V37                                
009224,001010: 04,2242           54332        SEUDOPOO           TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST.
009225,001011:                                                                                                  #  (OLD ONE WILL BE FINISHED FIRST)
009226,001012: 
009227,001013: 04,2243           34764                           CA       TRACKBIT                              
009228,001014: 04,2244           64757                           AD       TARG1BIT                              
009229,001015: 04,2245           64762                           AD       UPDATBIT                              
009230,001016: 04,2246           40000                           COM                                            
009231,001017: 04,2247           55275                           TS       EBANKTEM                              
009232,001018: 04,2250           70075                           MASK     FLAGWRD1                              
009233,001019: 04,2251           54075                           TS       FLAGWRD1                              
009234,001020: 
009235,001021: 04,2252           44767                           CS       R67BIT                                #  CLEAR R67FLAG. P20 WILL SET IT AGAIN
009236,001022: 04,2253           70104                           MASK     FLAGWRD8                              #  IF APPROPRIATE
009237,001023: 04,2254           54104                           TS       FLAGWRD8                              
009238,001024: 
009239,001025: 04,2255           04714        GROUPKIL           TC       IBNKCALL                              #  KILL GROUPS 3(5,6
009240,001026: 04,2256           12550                           CADR     V37KLEAN                              
009241,001027: 
009242,001028: 04,2257           11200                           CCS      MMNUMBER                              #  IS IT POOH
009243,001029: 04,2260           12270                           TCF      RENDVOO                               #  NO
009244,001030: 04,2261           04714                           TC       IBNKCALL                              
009245,001031: 04,2262           12542                           CADR     POOKLEAN                              #  REDUNDANT EXCEPT FOR GROUP 4.
009246,001032: 
009247,001033: 04,2263           03002                           TC       INITSUBA                              
009248,001034: 04,2264           31200        GOMOD              CA       MMNUMBER                              
009249,001035: 04,2265           55214                           TS       MODREG                                
009250,001036: 

Page 213

009252,001038: 
009253,001039: 04,2266           04655        GOGOPROG           TC       POSTJUMP                              
009254,001040: 04,2267           13015                           CADR     GOPROG2                               
009255,001041: 
009256,001042: 04,2270           41200        RENDVOO            CS       MMNUMBER                              #  IS NEW PROG = 20
009257,001043: 04,2271           64124                           AD       OCT24                                 #  20
009258,001044: 04,2272           00006                           EXTEND                                         
009259,001045: 04,2273           12275                           BZF      RENDNOO                               #  YES
009260,001046: 04,2274           12311                           TCF      POOFIZZ                               
009261,001047: 
009262,001048: 04,2275           41200        RENDNOO            CS       MMNUMBER                              
009263,001049: 04,2276           61214                           AD       MODREG                                
009264,001050: 04,2277           00006                           EXTEND                                         
009265,001051: 04,2300           12321                           BZF      KILL20                                
009266,001052: 
009267,001053: 04,2301           30104                           CA       FLAGWRD8                              
009268,001054: 04,2302           74760                           MASK     UTBIT                                 
009269,001055: 04,2303           10000                           CCS      A                                     
009270,001056: 04,2304           12333                           TCF      STATQUO1                              
009271,001057: 
009272,001058: 04,2305           30074                           CA       FLAGWRD0                              #  IS RENDEZVOO FLAG SET
009273,001059: 04,2306           74762                           MASK     RNDVZBIT                              
009274,001060: 04,2307           10000                           CCS      A                                     
009275,001061: 04,2310           12340                           TCF      STATQUO                               
009276,001062: 
009277,001063: 04,2311           30104        POOFIZZ            CA       FLAGWRD8                              
009278,001064: 04,2312           74760                           MASK     UTBIT                                 
009279,001065: 04,2313           10000                           CCS      A                                     
009280,001066: 04,2314           12325                           TCF      KILL20     +4                         
009281,001067: 04,2315           34762                           CAF      RNDVZBIT                              
009282,001068: 04,2316           70074                           MASK     FLAGWRD0                              
009283,001069: 04,2317           10000                           CCS      A                                     
009284,001070: 04,2320           12330                           TCF      REV37                                 
009285,001071: 04,2321           00006        KILL20             EXTEND                                         #  NO, KILL GROUPS 1 + 2
009286,001072: 04,2322           34772                           DCA      NEG0                                  
009287,001073: 04,2323           53156                           DXCH     -PHASE1                               
009288,001074: 
009289,001075: 04,2324           03002                           TC       INITSUBA                              
009290,001076: 04,2325           00006                 +4        EXTEND                                         
009291,001077: 04,2326           34772                           DCA      NEG0                                  
009292,001078: 04,2327           53160                           DXCH     -PHASE2                               
009293,001079: 
009294,001080: 04,2330           33052        REV37              CAF      V37QCAD                               #  SET RESTART POINT
009295,001081: 04,2331           54373                           TS       TEMPFLSH                              
009296,001082: 
009297,001083: 04,2332           12266                           TCF      GOGOPROG                              
009298,001084: 
009299,001085: 04,2333           34773        STATQUO1           CAF      FIVE                                  #  SET 2.5 RESTART for STATEINT1
009300,001086: 04,2334           54001                           TS       L                                     
009301,001087: 04,2335  01,2036               2P5SPT2            =        2.5SPOT                               
009302,001088: 04,2335           40000                           COM                                            

Page 214

009304,001090: 04,2336           53160                           DXCH     -PHASE2                               
009305,001091: 04,2337           12343                           TCF      STATQUO    +3                         
009306,001092: 04,2340           40075        STATQUO            CS       FLAGWRD1                              #  SET TRACK FLAG AND UPDATE FLAG
009307,001093: 04,2341           74762                           MASK     UPDATBIT                              
009308,001094: 04,2342           26075                           ADS      FLAGWRD1                              
009309,001095: 04,2343           40075                 +3        CS       FLAGWRD1                              
009310,001096: 04,2344           74764                           MASK     TRACKBIT                              
009311,001097: 04,2345           26075                           ADS      FLAGWRD1                              
009312,001098: 
009313,001099: 04,2346           00006                           EXTEND                                         #  KILL GROUP 4
009314,001100: 04,2347           34772                           DCA      NEG0                                  
009315,001101: 04,2350           53164                           DXCH     -PHASE4                               
009316,001102: 
009317,001103: 04,2351           12264                           TCF      GOMOD                                 
009318,001104: 
009319,001105: 04,2352           34762        NOUVEAU            CAF      RNDVZBIT                              
009320,001106: 04,2353           70074                           MASK     FLAGWRD0                              
009321,001107: 04,2354           10000                           CCS      A                                     
009322,001108: 04,2355           12364                           TCF      +7                                    
009323,001109: 04,2356           34760                           CAF      UTBIT                                 
009324,001110: 04,2357           70104                           MASK     FLAGWRD8                              
009325,001111: 04,2360           10000                           CCS      A                                     
009326,001112: 04,2361           12364                           TCF      +3                                    
009327,001113: 04,2362           05561                           TC       DOWNFLAG                              #  NO, RESET IMUSE FLAG.
009328,001114: 04,2363           00007                           ADRES    IMUSE                                 #  BIT 8 FLAG 0
009329,001115: 04,2364           51177                 +3        INDEX    MINDEX                                
009330,001116: 04,2365           33124                           CAF      PREMM1                                #  EXTRACT DOWNLIST ADDRESS
009331,001117: 04,2366           54022                           TS       CYL                                   #  SHIFT BITS 15 - 13 TO BITS 3 - 1
009332,001118: 04,2367           40022                           CS       CYL                                   
009333,001119: 04,2370           40022                           CS       CYL                                   
009334,001120: 04,2371           56022                           XCH      CYL                                   
009335,001121: 04,2372           74774                           MASK     SEVEN                                 #  KEEP DOWNLIST CODE BITS
009336,001122: 04,2373           00004                           INHINT                                         
009337,001123: 04,2374           12242                           TCF      SEUDOPOO                              
009338,001124: 
009339,001125: 04,2375           04362        V37NONO            TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST
009340,001126: 
009341,001127: 04,2376           12127                           TCF      V37BAD                                
009342,001128: 
009343,001129: 04,2000                                           SETLOC   VERB37                                #  MUST BE IN BANK 4 BECAUSE OF AUTOCHK
009344,001130: 04,2000                                           BANK                                           
009345,001131: 04,2377                                           COUNT*   $$/MNKEY                              
009346,001132: 04,2377           00051        DEC41              DEC      41         B-14                       
009347,001133: 04,2400           00114        DEC76              DEC      76         B-14                       
009348,001134: 04,2401           00064        DEC52              DEC      52         B-14                       
009349,001135: 04,2402     4124               DEC20              =        OCT24                                 
009350,001136: 04,2402     4342               DEC31              =        LOW5                                  
009351,001137: 04,2402     4763               DEC32              =        BIT6                                  
009352,001138: 04,2402     5004               DEC40              =        OCT50                                 
009353,001139: 04,2402     5003               DEC33              =        33DEC                                 

Page 215

009355,001141: 04,2402     4260               DEC34              =        34DEC                                 
009356,001142: 04,2402           00044        DEC36              DEC      36         B-14                       
009357,001143: 04,2403           00043        DEC35              DEC      35         B-14                       
009358,001144: 04,2404           00117        DEC79              DEC      79         B-14                       
009359,001145: 04,2405  04,3770               NEG6               =        DEC-6                                 
009360,001146: 04,2405           00126        DEC86              DEC      86         B-14                       
009361,001147: 04,2406           77741        NEG30              DEC      -30        B-14                       
009362,001148: 04,2407     5011               DEC50              =        OCT62                                 
009363,001149: 04,2407     4777               CKLSTAUT           =        LOW4                                  
009364,001150: 04,2407           62405        REND30S            AD       DEC86                                 #  CHANGE P3X to P8X
009365,001151: 04,2410           55113                 +1        TS       TEMPMM                                #       AND SAVE
009366,001152: 04,2411           34760                           CAF      UTBIT                                 
009367,001153: 04,2412           70104                           MASK     FLAGWRD8                              
009368,001154: 04,2413           00006                           EXTEND                                         
009369,001155: 04,2414           12421                           BZF      UTOFF                                 
009370,001156: 
009371,001157: 04,2415           05561                           TC       DOWNFLAG                              
009372,001158: 04,2416           00031                           ADRES    TRACKFLG                              
009373,001159: 
009374,001160: 04,2417           05561                           TC       DOWNFLAG                              
009375,001161: 04,2420           00176                           ADRES    UTFLAG                                
009376,001162: 
009377,001163: 04,2421           40074        UTOFF              CS       FLAGWRD0                              #  HAS P20 BEEN ON
009378,001164: 04,2422           74762                           MASK     RNDVZBIT                              
009379,001165: 04,2423           00006                           EXTEND                                         
009380,001166: 04,2424           12431                           BZF      NOP20                                 #  YES
009381,001167: 04,2425           05547                           TC       UPFLAG                                
009382,001168: 04,2426           00236                           ADRES    AUTOSEQ                               #  SET TO CAUSE RETURN FROM P20
009383,001169: 
009384,001170: 04,2427           34124                           CAF      DEC20                                 #  NO - TURN ON P20
009385,001171: 04,2430           02507                           TC       AUTOSET                               
009386,001172: 04,2431           31113        NOP20              CA       TEMPMM                                
009387,001173: 04,2432           55200        AUTOSETA           TS       MMNUMBER                              
009388,001174: 04,2433           02044                           TC       AUTO37                                
009389,001175: 04,2434           30002        MINKDISP           CA       Q                                     
009390,001176: 04,2435           55012                           TS       AUTPOINT                              
009391,001177: 04,2436           45011                           CS       DEC50                                 
009392,001178: 04,2437           61200                           AD       MMNUMBER                              
009393,001179: 04,2440           05347                           TC       NEWMODEA                              #  CHANGE MAJOR MODE TO 30'S
009394,001180: 04,2441           04432                           TC       RELDSP                                
009395,001181: 04,2442           34777                           CAF      CKLSTAUT                              
009396,001182: 04,2443           04636                           TC       BANKCALL                              
009397,001183: 04,2444           21067                           CADR     GOPERF1                               
009398,001184: 04,2445           14103                           TCF      GOTOPOOH                              
009399,001185: 04,2446           02452                           TC       STARTAUT                              #  PRO - DO MINKEY
009400,001186: 04,2447           05561                           TC       DOWNFLAG                              #  ENTER - NO MINKEY
009401,001187: 04,2450           00236                           ADRES    AUTOSEQ                               
009402,001188: 04,2451           01012                           TC       AUTPOINT                              
009403,001189: 04,2452           30107        STARTAUT           CA       FLGWRD11                              #  INITIALIZE MINKEY
009404,001190: 04,2453           74761                           MASK     AZIMBIT                               

Page 216

009406,001192: 04,2454           10000                           CCS      A                                     
009407,001193: 04,2455           12470                           TCF      STRTAUT1                              
009408,001194: 04,2456           05547                           TC       UPFLAG                                
009409,001195: 04,2457           00254                           ADRES    AZIMFLAG                              
009410,001196: 04,2460           22007                           ZL                                             
009411,001197: 04,2461           40106                           CS       FLGWRD10                              
009412,001198: 04,2462           74756                           MASK     HDSUPBIT                              
009413,001199: 04,2463           00006                           EXTEND                                         
009414,001200: 04,2464           12467                           BZF      +3                                    
009415,001201: 04,2465           00006                           EXTEND                                         
009416,001202: 04,2466           33760                           DCA      XUNIT                                 
009417,001203: 04,2467           53353                           DXCH     AZIMANGL                              
009418,001204: 04,2470           40101        STRTAUT1           CS       FLAGWRD5                              
009419,001205: 04,2471           74770                           MASK     RENDWBIT                              
009420,001206: 04,2472           00006                           EXTEND                                         
009421,001207: 04,2473           12500                           BZF      +5                                    #  YES
009422,001208: 04,2474           05547                           TC       UPFLAG                                #  NO
009423,001209: 04,2475           00240                           ADRES    MANEUFLG                              
009424,001210: 04,2476           05547                           TC       UPFLAG                                
009425,001211: 04,2477           00241                           ADRES    PTV93FLG                              
009426,001212: 04,2500           05547                           TC       UPFLAG                                
009427,001213: 04,2501           00215                           ADRES    VHFRFLAG                              #  EQUIVALENT TO A V87
009428,001214: 
009429,001215: 04,2502           05561                           TC       DOWNFLAG                              
009430,001216: 04,2503           00244                           ADRES    PCFLAG                                
009431,001217: 04,2504           05547                           TC       UPFLAG                                
009432,001218: 04,2505           00236                           ADRES    AUTOSEQ                               
009433,001219: 
009434,001220: 04,2506           01012                           TC       AUTPOINT                              
009435,001221: 04,2507           00006        AUTOSET            EXTEND                                         
009436,001222: 04,2510           23356                           QXCH     AUTTEMP                               
009437,001223: 04,2511           55200                 +2        TS       MMNUMBER                              
009438,001224: 04,2512           05402                           TC       PHASCHNG                              
009439,001225: 04,2513           04024                           OCT      04024                                 
009440,001226: 
009441,001227: 04,2514           31356                           CA       AUTTEMP                               
009442,001228: 04,2515           55012                           TS       AUTPOINT                              
009443,001229: 
009444,001230: 04,2516           02044                           TC       AUTO37                                
009445,001231: 
009446,001232: 04,2517           00006        BURNHOW            EXTEND                                         
009447,001233: 04,2520           23356                           QXCH     AUTTEMP                               
009448,001234: 04,2521           06006                           TC       INTPRET                               
009449,001235: 04,2522           51575                           VLOAD    ABVAL                                 
009450,001236: 04,2523           03405                                    DELVLVC                               
009451,001237: 04,2524           51025                           DSU      BPL                                   
009452,001238: 04,2525           10536                                    DV40/41                               #  THRESHHOLD DELTA V FOR SPS BURN
009453,001239: 04,2526           10532                                    P40BURN                               
009454,001240: 04,2527           77776                           EXIT                                           
009455,001241: 04,2530           32377                           CAF      DEC41                                 #  CALL P41
009456,001242: 

Page 217

009458,001244: 
009459,001245: 04,2531           02511                           TC       AUTOSET    +2                         
009460,001246: 04,2532           77776        P40BURN            EXIT                                           
009461,001247: 04,2533           35004                           CAF      DEC40                                 #  CALL P40
009462,001248: 04,2534           02511                           TC       AUTOSET    +2                         
009463,001249: 04,2535           00002 27311  DV40/41            2DEC     .021336    B-7                        #  7 FPS IN M/CS B-7
009464,001250: 
009465,001251: 04,2537           02434        P81                TC       MINKDISP                              
009466,001252: 04,2540           34342        P81CONT1           CAF      DEC31                                 
009467,001253: 04,2541           02507                           TC       AUTOSET                               
009468,001254: 04,2542           02517                           TC       BURNHOW                               
009469,001255: 04,2543           02724                           TC       AFTERBRN                              
009470,001256: 04,2544           12546                           TCF      P82CONT1                              
009471,001257: 04,2545           02434        P82                TC       MINKDISP                              
009472,001258: 04,2546           05561        P82CONT1           TC       DOWNFLAG                              
009473,001259: 04,2547           00256                           ADRES    CSISFLAG                              
009474,001260: 04,2550           34763        P82CONT2           CAF      DEC32                                 
009475,001261: 04,2551           02507                           TC       AUTOSET                               
009476,001262: 04,2552           02517                           TC       BURNHOW                               
009477,001263: 04,2553           02724                           TC       AFTERBRN                              
009478,001264: 04,2554  E7,1765                                  EBANK=   NN                                    
009479,001265: 04,2554           35046                           CAF      EBANK7                                
009480,001266: 04,2555           54003                           TS       EBANK                                 
009481,001267: 04,2556           31765                           CA       NN                                    
009482,001268: 04,2557           67701                           AD       NEG2                                  
009483,001269: 04,2560           55414                           TS       RTARG                                 
009484,001270: 
009485,001271: 04,2561           05402                           TC       PHASCHNG                              
009486,001272: 04,2562           04024                           OCT      04024                                 
009487,001273: 
009488,001274: 04,2563           31414                           CA       RTARG                                 
009489,001275: 04,2564           55765                           TS       NN                                    
009490,001276: 04,2565           67701                           AD       NEG2                                  
009491,001277: 04,2566           40000                           COM                                            
009492,001278: 04,2567           00006                           EXTEND                                         
009493,001279: 04,2570           62572                           BZMF     +2                                    #  N = 2 OR GREATER
009494,001280: 04,2571           12607                           TCF      P86CONT1                              #  N = 1
009495,001281: 04,2572           05547                           TC       UPFLAG                                
009496,001282: 04,2573           00256                           ADRES    CSISFLAG                              
009497,001283: 04,2574           06006                           TC       INTPRET                               
009498,001284: 04,2575           77745                           DLOAD                                          
009499,001285: 04,2576           02351                                    TCSI2                                 
009500,001286: 04,2577           02463                           STORE    TCSI                                  
009501,001287: 04,2600           77776                           EXIT                                           
009502,001288: 04,2601           31765                           CA       NN                                    
009503,001289: 04,2602           67701                           AD       NEG2                                  
009504,001290: 04,2603           00006                           EXTEND                                         
009505,001291: 04,2604           62540                           BZMF     P81CONT1                              #  N = 2 HAM
009506,001292: 04,2605           02546                           TC       P82CONT1                              #  MULTIPLE CSIS
009507,001293: 04,2606           02434        P86                TC       MINKDISP                              
009508,001294: 04,2607           32402        P86CONT1           CAF      DEC36                                 

Page 218

009510,001296: 04,2610           02507                           TC       AUTOSET                               
009511,001297: 04,2611           06006                           TC       INTPRET                               
009512,001298: 04,2612           51575                           VLOAD    ABVAL                                 
009513,001299: 04,2613           03405                                    DELVLVC                               
009514,001300: 04,2614           77454                           BZE      EXIT                                  
009515,001301: 04,2615           10642                                    NOPC                                  
009516,001302: 04,2616           32401                           CAF      DEC52                                 
009517,001303: 04,2617           02507                           TC       AUTOSET                               
009518,001304: 04,2620           40106                           CS       FLGWRD10                              
009519,001305: 04,2621           74770                           MASK     PCBIT                                 
009520,001306: 04,2622           00006                           EXTEND                                         
009521,001307: 04,2623           12637                           BZF      DOP41                                 #  PULSE TORQUING NOT DONE - CALL P41
009522,001308: 04,2624           02517                           TC       BURNHOW                               #  P40 OR P41
009523,001309: 04,2625           02724                           TC       AFTERBRN                              
009524,001310: 04,2626           05547        P86CONT2           TC       UPFLAG                                
009525,001311: 04,2627           00226                           ADRES    PCMANFLG                              
009526,001312: 04,2630           34124                           CAF      DEC20                                 #  MANEUVER TO TRACK ATTITUDE
009527,001313: 04,2631           02507                           TC       AUTOSET                               
009528,001314: 04,2632           05561                           TC       DOWNFLAG                              
009529,001315: 04,2633           00226                           ADRES    PCMANFLG                              
009530,001316: 04,2634           32401                           CAF      DEC52                                 
009531,001317: 04,2635           02507                           TC       AUTOSET                               
009532,001318: 04,2636           02647                           TC       P83CONT1                              
009533,001319: 04,2637           32377        DOP41              CAF      DEC41                                 
009534,001320: 04,2640           02507                           TC       AUTOSET                               
009535,001321: 04,2641           02644                           TC       PCP76                                 
009536,001322: 04,2642           77414        NOPC               SET      EXIT                                  
009537,001323: 04,2643           05065                                    BURNFLAG                              
009538,001324: 04,2644           02724        PCP76              TC       AFTERBRN                              
009539,001325: 04,2645           02647                           TC       P83CONT1                              
009540,001326: 04,2646           02434        P83                TC       MINKDISP                              
009541,001327: 04,2647           35003        P83CONT1           CAF      DEC33                                 
009542,001328: 04,2650           02507                           TC       AUTOSET                               
009543,001329: 04,2651           02517                           TC       BURNHOW                               
009544,001330: 04,2652           05547                           TC       UPFLAG                                #  SET TO INDICATE PASSIVE CDH
009545,001331: 04,2653           00050                           ADRES    AVFLAG                                
009546,001332: 04,2654           02724                           TC       AFTERBRN                              
009547,001333: 04,2655           12657                           TCF      P84CONT1                              
009548,001334: 04,2656           02434        P84                TC       MINKDISP                              
009549,001335: 04,2657           34260        P84CONT1           CAF      DEC34                                 
009550,001336: 04,2660           02507                           TC       AUTOSET                               
009551,001337: 04,2661           02517                           TC       BURNHOW                               
009552,001338: 04,2662           02724                           TC       AFTERBRN                              
009553,001339: 04,2663           12665                           TCF      P85CONT1                              
009554,001340: 04,2664           02434        P85                TC       MINKDISP                              
009555,001341: 04,2665           32403        P85CONT1           CAF      DEC35                                 
009556,001342: 04,2666           02507                           TC       AUTOSET                               
009557,001343: 04,2667           02517                           TC       BURNHOW                               
009558,001344: 04,2670           02724                           TC       AFTERBRN                              
009559,001345: 04,2671           32403        P89CONT1           CAF      DEC35                                 

Page 219

009561,001347: 04,2672           02507                           TC       AUTOSET                               
009562,001348: 04,2673           02517                           TC       BURNHOW                               
009563,001349: 04,2674           02724                           TC       AFTERBRN                              
009564,001350: 04,2675           32404                           CAF      DEC79                                 
009565,001351: 04,2676           02432                           TC       AUTOSETA                              
009566,001352: 04,2677                                           COUNT*   $$/P79                                
009567,001353: 04,2677           05547        P79                TC       UPFLAG                                
009568,001354: 04,2700           00226                           ADRES    PCMANFLG                              #  FORCE P20 TO EXIT AFTER MANEUVER
009569,001355: 
009570,001356: 04,2701           05547                           TC       UPFLAG                                
009571,001357: 04,2702           00031                           ADRES    TRACKFLG                              
009572,001358: 
009573,001359: 04,2703           34772                           CAF      ZERO                                  
009574,001360: 04,2704           54001                           TS       L                                     
009575,001361: 04,2705           53740                           DXCH     UTPIT                                 
009576,001362: 
009577,001363: 04,2706           32715                           CAF      P79LOCRT                              
009578,001364: 04,2707           55012                           TS       AUTPOINT                              
009579,001365: 04,2710           12452                           TCF      STARTAUT                              
009580,001366: 04,2711           32714        P791               CAF      P79LOC                                
009581,001367: 04,2712           55012                           TS       AUTPOINT                              
009582,001368: 
009583,001369: 04,2713           05205                           TC       ENDOFJOB                              
009584,001370: 04,2714           02716        P79LOC             ADRES    P79A                                  
009585,001371: 
009586,001372: 04,2715           02711        P79LOCRT           ADRES    P791                                  
009587,001373: 
009588,001374: 04,2716           35047        P79A               CAF      PRIO5                                 
009589,001375: 04,2717           05135                           TC       FINDVAC                               
009590,001376: 04,2720  E4,1760                                  EBANK=   SUBEXIT                               
009591,001377: 04,2720           02564 66104                     2CADR    V83PERF                               
009592,001378: 
009593,001379: 04,2722           04655                           TC       POSTJUMP                              #  RETURN TO P20 FOR TRACKING
009594,001380: 04,2723           74207                           CADR     P20TRACK                              
009595,001381: 04,2724                                           COUNT*   $$/MNKEY                              
009596,001382: 04,2724           00006        AFTERBRN           EXTEND                                         
009597,001383: 04,2725           23356                           QXCH     AUTTEMP                               
009598,001384: 04,2726           35051                           CAF      PRIO7                                 
009599,001385: 04,2727           05135                           TC       FINDVAC                               
009600,001386: 04,2730  0003777                                  EBANK=   WHOCARES                              
009601,001387: 04,2730           02000 56067                     2CADR    HARTBURN                              
009602,001388: 
009603,001389: 04,2732           05205                           TC       ENDOFJOB                              
009604,001390: 04,2733           77776        TIG76              EXIT                                           
009605,001391: 04,2734           32400                           CAF      DEC76                                 #  CALL P76
009606,001392: 04,2735           02511                           TC       AUTOSET    +2                         
009607,001393: 27,2000                                           SETLOC   JANESUB                               
009608,001394: 27,2000                                           BANK                                           
009609,001395: 27,2000                                           COUNT*   $$/MNKEY                              
009610,001396: 27,2000           06006        HARTBURN           TC       INTPRET                               

Page 220

009612,001398: 27,2001           77201                           SETPD    VLOAD                                 
009613,001399: 27,2002           00001                                    0                                     
009614,001400: 27,2003           15336                                    ZEROVECS                              
009615,001401: 27,2004           77614                           BON                                            
009616,001402: 27,2005           05305                                    BURNFLAG                              
009617,001403: 27,2006           56042                                    GOP76                                 
009618,001404: 27,2007           77214                           BOFF     VLOAD                                 
009619,001405: 27,2010           05354                                    TPIMNFLG                              
009620,001406: 27,2011           56044                                    NOTTPI                                
009621,001407: 27,2012           03554                                    RPASS3                                
009622,001408: 27,2013           26561                           STOVL    BURNTMP2                              
009623,001409: 27,2014           03540                                    RACT3                                 
009624,001410: 27,2015           26553                           STOVL    BURNTMP1                              
009625,001411: 27,2016           03546                                    VACT3                                 
009626,001412: 27,2017           26567                           STOVL    BURNTMP3                              
009627,001413: 27,2020           03562                                    VPASS3                                
009628,001414: 27,2021           02575                           STORE    BURNTMP4                              
009629,001415: 27,2022           77776                           EXIT                                           
009630,001416: 27,2023           05402                           TC       PHASCHNG                              
009631,001417: 27,2024           04024                           OCT      04024                                 
009632,001418: 
009633,001419: 27,2025           06006                           TC       INTPRET                               
009634,001420: 27,2026           77775                           VLOAD                                          
009635,001421: 27,2027           02567                                    BURNTMP3                              
009636,001422: 27,2030           27562                           STOVL    VPASS3                                
009637,001423: 27,2031           02561                                    BURNTMP2                              
009638,001424: 27,2032           27540                           STOVL    RACT3                                 
009639,001425: 27,2033           02553                                    BURNTMP1                              
009640,001426: 27,2034           27554                           STOVL    RPASS3                                
009641,001427: 27,2035           02575                                    BURNTMP4                              
009642,001428: 27,2036           37546                           STCALL   VACT3                                 
009643,001429: 27,2037           74000                                    S34/35.1                              
009644,001430: 27,2040           77624                           CALL                                           
009645,001431: 27,2041           72561                                    S34/35.2                              #  COMPUTE DV(LV)
009646,001432: 27,2042           37540        GOP76              STCALL   DELVOV                                
009647,001433: 27,2043           10733                                    TIG76                                 
009648,001434: 27,2044           71214        NOTTPI             BOFF     DLOAD                                 
009649,001435: 27,2045           01352                                    AVFLAG                                
009650,001436: 27,2046           56066                                    NOTCDH                                
009651,001437: 27,2047           03450                                    NOMTIG                                
009652,001438: 27,2050           77624                           CALL                                           
009653,001439: 27,2051           76560                                    ADVANCE                               
009654,001440: 27,2052           77624                           CALL                                           
009655,001441: 27,2053           56674                                    CDHMVR                                
009656,001442: 27,2054           77624                           CALL                                           
009657,001443: 27,2055           32050                                    S32/33.X                              
009658,001444: 27,2056           64375                           VLOAD    MXV                                   
009659,001445: 27,2057           03667                                    DELVEET2                              
009660,001446: 27,2060           00001                                    0D                                    
009661,001447: 27,2061           77772                           VSL1                                           

Page 221

009663,001449: 27,2062           17540                           STODL    DELVOV                                
009664,001450: 27,2063           02603                                    CMYDOT                                
009665,001451: 27,2064           77650                           GOTO                                           
009666,001452: 27,2065           56072                                    STORDV                                
009667,001453: 27,2066           57575        NOTCDH             VLOAD    VCOMP                                 
009668,001454: 27,2067           03405                                    DELVLVC                               
009669,001455: 27,2070           17540                           STODL    DELVOV                                
009670,001456: 27,2071           02605                                    LMYDOT                                
009671,001457: 27,2072           37542        STORDV             STCALL   DELVOV     +2                         
009672,001458: 27,2073           10733                                    TIG76                                 
009673,001459: 27,2074  30,2000                                  SBANK=   LOWSUPER                              
009674,001460: 04,2000                                           SETLOC   VERB37                                
009675,001461: 04,2000                                           BANK                                           
009676,001462: 
009677,001463: 04,2736                                           COUNT*   $$/V37                                
009678,001464: 04,2736     4765               OCT00010           EQUALS   BIT4                                  
009679,001465: 04,2736           00004        V37XEQ             INHINT                                         
009680,001466: 04,2737           35052                           CAF      PRIO13                                
009681,001467: 04,2740           55266                           TS       PHSPRDT4                              #  PRESET GROUP4 RESTART PRIORITY
009682,001468: 04,2741           54063        V37XEQ+3           TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
009683,001469: 04,2742           51177                           INDEX    MINDEX                                
009684,001470: 04,2743           33124                           CAF      PREMM1                                
009685,001471: 04,2744           55264                           TS       MMTEMP                                #  OBTAIN PRIORITY BITS 15 - 11
009686,001472: 04,2745           00006                           EXTEND                                         
009687,001473: 04,2746           74761                           MP       BIT8                                  
009688,001474: 04,2747           74774                           MASK     LOW3                                  
009689,001475: 04,2750           54001                           TS       L                                     
009690,001476: 04,2751           51177                           INDEX    MINDEX                                
009691,001477: 04,2752           33055                           CAF      FCADRMM1                              
009692,001478: 04,2753           55265                           TS       BASETEMP                              
009693,001479: 04,2754           74344                           MASK     HI5                                   
009694,001480: 04,2755           26001                           ADS      L                                     
009695,001481: 
009696,001482: 04,2756           31265                           CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
009697,001483: 04,2757           75041                           MASK     LOW10                                 
009698,001484: 04,2760           64756                           AD       BIT11                                 
009699,001485: 
009700,001486: 04,2761           05146                           TC       SPVAC                                 
009701,001487: 
009702,001488: 04,2762           31264        V37XEQC            CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
009703,001489: 04,2763           76043                           MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
009704,001490: 04,2764           05347                           TC       NEWMODEA                              #  PHSBRDT1)
009705,001491: 
009706,001492: 04,2765           04432                           TC       RELDSP                                #  RELEASE DISPLAY
009707,001493: 04,2766           05205                           TC       ENDOFJOB                              #  AND EXIT
009708,001494: 
009709,001495: 04,2767           00004        INITSUB            INHINT                                         
009710,001496: 04,2770           34775                           CAF      ELEVEN                                #  CLEAR INDICATED FLAG BITS
009711,001497: 04,2771           54154        RAKE               TS       MPAC                                  #  LOOP STARTS HERE

Page 222

009713,001499: 04,2772           50154                           INDEX    MPAC                                  
009714,001500: 04,2773           43032                           CS       FLAGTABL                              
009715,001501: 04,2774           50154                           INDEX    MPAC                                  
009716,001502: 04,2775           70074                           MASK     FLAGWRD0                              
009717,001503: 04,2776           50154                           INDEX    MPAC                                  #  RESTORE REVISED FLAGWORD
009718,001504: 04,2777           54074                           TS       FLAGWRD0                              
009719,001505: 
009720,001506: 04,3000           10154                           CCS      MPAC                                  
009721,001507: 04,3001           12771                           TCF      RAKE                                  
009722,001508: 
009723,001509: 04,3002           00006        INITSUBA           EXTEND                                         
009724,001510: 04,3003           22155                           QXCH     MPAC       +1                         
009725,001511: 
009726,001512: 04,3004           00004                           INHINT                                         
009727,001513: 04,3005           34764                           CAF      TRACKBIT                              #  BYPASS IF TRACKFLG ON
009728,001514: 04,3006           70075                           MASK     FLAGWRD1                              
009729,001515: 04,3007           10000                           CCS      A                                     
009730,001516: 04,3010           13024                           TCF      INITRET                               
009731,001517: 04,3011           04611                           TC       E6SETTER                              #  FOR DB CODE.. STARTSB2 WILL RESET.
009732,001518: 04,3012           04463                           TC       STOPRATE                              
009733,001519: 
009734,001520: 04,3013           30105                           CA       FLAGWRD9                              #  RESTORE DEADBAND
009735,001521: 04,3014           74755                           MASK     MAXDBBIT                              
009736,001522: 04,3015           10000                           CCS      A                                     
009737,001523: 04,3016           13022                           TCF      SETMAXER                              #  MAX DB SELECTED
009738,001524: 04,3017           04636                           TC       BANKCALL                              #  MIN DB SELECTED
009739,001525: 04,3020           51203                           CADR     SETMINDB                              
009740,001526: 04,3021           13024                           TCF      INITRET                               
009741,001527: 
009742,001528: 04,3022           04636        SETMAXER           TC       BANKCALL                              
009743,001529: 04,3023           51217                           CADR     SETMAXDB                              
009744,001530: 
009745,001531: 04,3024           00003        INITRET            RELINT                                         
009746,001532: 04,3025           37702                           CA       NEGONE                                
009747,001533: 04,3026           55323                           TS       OPTIND                                
009748,001534: 04,3027           00155                           TC       MPAC       +1                         #  RETURN FROM INITSUB
009749,001535: 
009750,001536: 04,3030           03002        INITSUBB           TC       INITSUBA                              #  ENTRANCE USED BY RTB CALL FROM V56
009751,001537: 04,3031           06030                           TC       DANZIG                                
009752,001538: 
009753,001539: 04,3032           00001        FLAGTABL           OCT      1                                     #  P29FLAG
009754,001540: 04,3033           00040                           OCT      40                                    #  IDLEFAIL
009755,001541: 04,3034           06400                           OCT      06400                                 #  P21FLAG,STEERSW,IMPULSW
009756,001542: 04,3035           20400                           OCT      20400                                 #  GLOKFAIL, POOFLAG
009757,001543: 04,3036           00000                           OCT      0                                     
009758,001544: 04,3037           05100                           OCT      05100                                 #  V59FLAG,NEWTFLAG,ENGONFLG
009759,001545: 04,3040           10000                           OCT      10000                                 #  STRULLSW
009760,001546: 04,3041           16000                           OCT      16000                                 #  IGNFLAG,ASTNFLAG,TIMRFLAG
009761,001547: 04,3042           00000                           OCT      0                                     
009762,001548: 04,3043           42000                           OCT      42000                                 #  SWTOVER,V94FLAG

Page 223

009764,001550: 04,3044           00000                           OCT      0                                     
009765,001551: 04,3045           00000                           OCT      0                                     
009766,001552: 
009767,001553: 20,2000                                           SETLOC   VAC5LOC                               
009768,001554: 20,2000                                           BANK                                           
009769,001555: 20,2000                                           COUNT*   $$/START                              
009770,001556: 20,2000           34772        VAC5STOR           CA       ZERO                                  #  INITIALIZE INDEX REGISTERS
009771,001557: 20,2001           54061                           TS       ITEMP1                                
009772,001558: 20,2002           54062                           TS       ITEMP2                                
009773,001559: 
009774,001560: 20,2003           00006        V5LOOP1            EXTEND                                         #  LOOP TO STORE LOCS, BANKSETS, AND PRIOS.
009775,001561: 20,2004           50061                           INDEX    ITEMP1                                
009776,001562: 20,2005           30165                           DCA      LOC                                   
009777,001563: 20,2006           50062                           INDEX    ITEMP2                                
009778,001564: 20,2007           52662                           DXCH     VAC5                                  
009779,001565: 
009780,001566: 20,2010           50061                           INDEX    ITEMP1                                
009781,001567: 20,2011           30167                           CA       PRIORITY                              
009782,001568: 20,2012           50062                           INDEX    ITEMP2                                
009783,001569: 20,2013           54663                           TS       VAC5       +2                         
009784,001570: 
009785,001571: 20,2014           40062                           CS       ITEMP2                                #  HAVE WE STORED THEM ALL?
009786,001572: 20,2015           65000                           AD       EIGHTEEN                              
009787,001573: 20,2016           00006                           EXTEND                                         
009788,001574: 20,2017           12025                           BZF      V5OUT1                                #  YES, GET PHASE INFORMATION.
009789,001575: 
009790,001576: 20,2020           35775                           CA       TWELVE                                #  NO, INCREMENT INDEXES AND LOOP.
009791,001577: 20,2021           26061                           ADS      ITEMP1                                
009792,001578: 20,2022           36214                           CA       THREE                                 
009793,001579: 20,2023           26062                           ADS      ITEMP2                                
009794,001580: 20,2024           12003                           TCF      V5LOOP1                               
009795,001581: 
009796,001582: 20,2025  E3,1436                                  EBANK=   PHSNAME1                              
009797,001583: 20,2025           35024        V5OUT1             CA       EBANK3                                #  PHSNAME REGISTERS ARE IN EBANK3.
009798,001584: 20,2026           54003                           TS       EBANK                                 
009799,001585: 
009800,001586: 20,2027           34775                           CA       ELEVEN                                #  GET PHASE 2CADRS.
009801,001587: 20,2030           05607                           TC       GENTRAN                               
009802,001588: 20,2031           01436                           ADRES    PHSNAME1                              
009803,001589: 20,2032           00706                           ADRES    VAC5       +21D                       
009804,001590: 
009805,001591: 20,2033           34772                           CA       ZERO                                  #  NOW INITIALIZE INDEXES AGAIN.
009806,001592: 20,2034           54061                           TS       ITEMP1                                
009807,001593: 20,2035           54062                           TS       ITEMP2                                
009808,001594: 
009809,001595: 20,2036           50061        V5LOOP2            INDEX    ITEMP1                                #  LOOP TO GET PHASE TABLES.
009810,001596: 20,2037           31156                           CA       PHASE1                                
009811,001597: 20,2040           50062                           INDEX    ITEMP2                                
009812,001598: 20,2041           54722                           TS       VAC5       +33D                       

Page 224

009814,001600: 20,2042           40062                           CS       ITEMP2                                #  DO WE HAVE THEM ALL?
009815,001601: 20,2043           64773                           AD       FIVE                                  
009816,001602: 20,2044           00006                           EXTEND                                         
009817,001603: 20,2045           12052                           BZF      V5OUT2                                #  YES, GO FINISH UP.
009818,001604: 
009819,001605: 20,2046           34767                           CA       TWO                                   #  NO, INCREMENT INDEXES AND LOOP.
009820,001606: 20,2047           26061                           ADS      ITEMP1                                
009821,001607: 20,2050           24062                           INCR     ITEMP2                                
009822,001608: 20,2051           12036                           TCF      V5LOOP2                               
009823,001609: 
009824,001610: 20,2052           30157        V5OUT2             CA       MPAC       +3                         
009825,001611: 20,2053           54730                           TS       VAC5       +39D                       
009826,001612: 
009827,001613: 20,2054           00006                           EXTEND                                         
009828,001614: 20,2055           30066                           DCA      NEWLOC                                
009829,001615: 20,2056           52732                           DXCH     VAC5       +40D                       
009830,001616: 
009831,001617: 20,2057           30067                           CA       NEWJOB                                
009832,001618: 20,2060           54707                           TS       VAC5       +22D                       
009833,001619: 
009834,001620: 20,2061           30063                           CA       NEWPRIO                               
009835,001621: 20,2062           54713                           TS       VAC5       +26D                       
009836,001622: 
009837,001623: 20,2063           04651                           TC       SWRETURN                              
009838,001624: 
009839,001625: 20,2064     5000               EIGHTEEN           EQUALS   OCT22                                 
009840,001626: 04,2000                                           SETLOC   VERB37                                
009841,001627: 04,2000                                           BANK                                           
009842,001628: 
009843,001629: 04,3046                                           COUNT*   $$/V37                                
009844,001630: 04,3046     5736               NEG7               EQUALS   OCT77770                              
009845,001631: 
009846,001632: 04,3046           44571        OCT44571           OCT      44571                                 #  CONSTANTS TO CLEAR CHANNEL BITS IN V37
009847,001633: 04,3047           00600        OCT600             OCT      600                                   
009848,001634: 04,3050           00300        BIT7-8             OCT      300                                   
009849,001635: 04,3051           01120        OCT01120           OCT      01120                                 
009850,001636: 
009851,001637: 04,3052           10741        V37QCAD            CADR     V37XEQ+3                              
009852,001638: 04,3053           10171        ROOAD              CADR     DUMMYAD                               
009853,001639: 04,3054           37312        3.1SEC             OCT      37312                                 #  2.5 + 0.6 SEC
009854,001640: 
009855,001641:                                                                                                  #  FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
009856,001642:                                                                                                  #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
009857,001643:                                                                                                  #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
009858,001644:                                                                                                  #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
009859,001645: 
009860,001646:                                                                                                  #  THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
009861,001647:                                                                                                  #  THE MAJOR MODE.  FOR EXAMPLE,
009862,001648: 
009863,001649:                                                                                                  #        FCADRMM1        FCADR   P79             START OF P 79

Page 225

009865,001651:                                                                                                  #                        FCADR   PROG18          START OF P 18
009866,001652:                                                                                                  #                        FCADR   P01             START OF P 01
009867,001653: 
009868,001654: 04,3055                        FCADRMM1           EQUALS                                         
009869,001655: 04,3055           10606                           FCADR    P86                                   
009870,001656: 04,3056           10664                           FCADR    P85                                   
009871,001657: 04,3057           10656                           FCADR    P84                                   
009872,001658: 04,3060           10646                           FCADR    P83                                   
009873,001659: 04,3061           10545                           FCADR    P82                                   
009874,001660: 04,3062           10537                           FCADR    P81                                   
009875,001661: 04,3063           10677                           FCADR    P79                                   
009876,001662: 04,3064           26071                           FCADR    P76ER77                               
009877,001663: 04,3065           26071                           FCADR    P76ER77                               
009878,001664: 04,3066           72212                           FCADR    P75                                   
009879,001665: 04,3067           72002                           FCADR    P74                                   
009880,001666: 04,3070           11575                           FCADR    P73                                   
009881,001667: 04,3071           11405                           FCADR    P72                                   
009882,001668: 04,3072           54321                           FCADR    P62                                   
009883,001669: 04,3073           54234                           FCADR    P61                                   
009884,001670: 04,3074           30002                           FCADR    P54                                   
009885,001671: 04,3075           31414                           FCADR    P53                                   
009886,001672: 04,3076           30002                           FCADR    PROG52                                
009887,001673: 04,3077           31414                           FCADR    P51                                   
009888,001674: 04,3100           51662                           FCADR    P47CSM                                
009889,001675: 04,3101           51563                           FCADR    P41CSM                                
009890,001676: 04,3102           50214                           FCADR    P40CSM                                
009891,001677: 04,3103           74476                           FCADR    P37                                   
009892,001678: 04,3104           45334                           FCADR    P36                                   
009893,001679: 04,3105           72206                           FCADR    P35                                   
009894,001680: 04,3106           72000                           FCADR    P34                                   
009895,001681: 04,3107           11573                           FCADR    P33                                   
009896,001682: 04,3110           11403                           FCADR    P32                                   
009897,001683: 04,3111           11303                           FCADR    P31                                   
009898,001684: 04,3112           73433                           FCADR    P30                                   
009899,001685: 04,3113           60000                           FCADR    P29                                   
009900,001686: 04,3114           26254                           FCADR    PROG24                                
009901,001687: 04,3115           62444                           FCADR    P23                                   
009902,001688: 04,3116           60153                           FCADR    PROG22                                
009903,001689: 04,3117           76000                           FCADR    PROG21                                
009904,001690: 04,3120           74016                           FCADR    PROG20                                
009905,001691: 04,3121           67455                           FCADR    P15JOB                                
009906,001692: 04,3122           55654                           FCADR    P06                                   
009907,001693: 04,3123           66001                           FCADR    GTSCPSS1                              #  GYROCOMPASS STANDARD LEAD IN.
009908,001694: 
009909,001695:                                                                                                  #           THE PREMM TABLE CONTAINS THE EBANK,MAJOR MODE AND DOWNLINK INFO.
009910,001696:                                                                                                  #  IT IS IN THE FOLLOWING FORMAT
009911,001697:                                                                                                  #           DDD 00E EEM MMM MMM
009912,001698:                                                                                                  #           WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER
009913,001699:                                                                                                  #                      3 E BITS CONTAIN THE E-BANK NUMBER

Page 226

009915,001701:                                                                                                  #                      3 D BITS CONTAIN THE DOWNLIST ID
009916,001702: 
009917,001703:                                                                                                  #           COAST AND ALIGN LIST =  0
009918,001704:                                                                                                  #           EUTRY LIST           =  1
009919,001705:                                                                                                  #           RENDEZVOUS LIST      =  2
009920,001706:                                                                                                  #           POWERED FLIGHT LIST  =  3
009921,001707:                                                                                                  #           P22 LIST             =  4
009922,001708: 
009923,001709:                                                                                                  #           FOR EXAMPLE,
009924,001710: 
009925,001711:                                                                                                  #                                                   OCT     21137        DOWNLIST   = 2 (RENDEZVOUS)
009926,001712:                                                                                                  #                                                                        E-BANK     = 4
009927,001713:                                                                                                  #                                                                        MAJOR MODE = 95
009928,001714: 
009929,001715:                                                                                                  #                                                   OCT     11476        DOWNLIST   = 1 (ENTRY)
009930,001716:                                                                                                  #                                                                        E-BANK     = 6
009931,001717:                                                                                                  #                                                                        MAFOR MODE = 62
009932,001718: 
009933,001719: 04,3124                        PREMM1             EQUALS                                         
009934,001720: 04,3124           21526                           OCT      21526                                 #  MM 86  EBANK 6  DOWNLIST 2
009935,001721: 04,3125           21525                           OCT      21525                                 #  MM 85  EBANK 6  DOWNLIST 2
009936,001722: 04,3126           21524                           OCT      21524                                 #  MM 84  EBANK 6  DOWNLIST 2
009937,001723: 04,3127           21523                           OCT      21523                                 #  MM 83  EBANK 6  DOWNLIST 2
009938,001724: 04,3130           21522                           OCT      21522                                 #  MM 82  EBANK 6  DOWNLIST 2
009939,001725: 04,3131           21521                           OCT      21521                                 #  MM 81  EBANK 6  DOWNLIST 2
009940,001726: 04,3132           21717                           OCT      21717                                 #  MM 79  EBANK 7  DOWNLIST 2
009941,001727: 04,3133           21715                           OCT      21715                                 
009942,001728: 04,3134           21714                           OCT      21714                                 #  MM 76  EBANK 7  DOWNLIST 2
009943,001729: 04,3135           21113                           OCT      21113                                 #  MM 75  EBANK 4  DOWNLIST 2
009944,001730: 04,3136           21112                           OCT      21112                                 #  MM 74  EBANK 4  DOWNLIST 2
009945,001731: 04,3137           21111                           OCT      21111                                 #  MM 73  EBANK 4  DOWNLIST 2
009946,001732: 04,3140           21110                           OCT      21110                                 #  MM 72  EBANK 4  DOWNLIST 2
009947,001733: 04,3141           11476                           OCT      11476                                 #  MM 62  EBANK 6  DOWNLIST 1
009948,001734: 04,3142           31475                           OCT      31475                                 #  MM 61  EBANK 6  DOWNLIST 3
009949,001735: 04,3143           01266                           OCT      01266                                 #  MM 54  EBANK 5  DOWNLIST 0
009950,001736: 04,3144           01265                           OCT      01265                                 #  MM 53  EBANK 5  DOWNLIST 0
009951,001737: 04,3145           01264                           OCT      01264                                 #  MM 52  EBANK 5  DOWNLIST 0
009952,001738: 04,3146           01263                           OCT      01263                                 #  MM 51  EBANK 5  DOWNLIST 0
009953,001739: 04,3147           31657                           OCT      31657                                 #  MM 47  EBANK 7  DOWNLIST 3
009954,001740: 04,3150           31451                           OCT      31451                                 #  MM 41  EBANK 6  DOWNLIST 3
009955,001741: 04,3151           31450                           OCT      31450                                 #  MM 40  EBANK 6  DOWNLIST 3
009956,001742: 04,3152           21645                           OCT      21645                                 #  MM 37  EBANK 7  DOWNLIST 2
009957,001743: 04,3153           21044                           OCT      21044                                 #  MM 36  EBANK 4  DOWNLIST 2
009958,001744: 04,3154           21043                           OCT      21043                                 #  MM 35  EBANK 4  DOWNLIST 2
009959,001745: 04,3155           21042                           OCT      21042                                 #  MM 34  EBANK 4  DOWNLIST 2
009960,001746: 04,3156           21041                           OCT      21041                                 #  MM 33  EBANK 4  DOWNLIST 2
009961,001747: 04,3157           21040                           OCT      21040                                 #  MM 32  EBANK 4  DOWNLIST 2
009962,001748: 04,3160           21037                           OCT      21037                                 #  MM 31  EBANK 4  DOWNLIST 2
009963,001749: 04,3161           21636                           OCT      21636                                 #  MM 30  EBANK 7  DOWNLIST 2
009964,001750: 04,3162           21635                           OCT      21635                                 #  MM 29  EBANK 7  DOWNLIST 2

Page 227

009966,001752: 04,3163           41230                           OCT      41230                                 #  MM 24  EBANK 5  DOWNLIST 4
009967,001753: 04,3164           21627                           OCT      21627                                 #  MM 23  EBANK 7  DOWNLIST 2
009968,001754: 04,3165           41626                           OCT      41626                                 #  MM 22  EBANK 7  DOWNLIST 4
009969,001755: 04,3166           21025                           OCT      21025                                 #  MM 21  EBANK 4  DOWNLIST 2
009970,001756: 04,3167           21424                           OCT      21424                                 #  MM 20  EBANK 6  DOWNLIST 2
009971,001757: 04,3170           31617                           OCT      31617                                 #  MM 15 EBANK 7  DOWNLIST 3
009972,001758: 04,3171           01006                           OCT      01006                                 #  MM 06  EBANK 4  DOWNLIST 0
009973,001759: 04,3172           01201                           OCT      01201                                 #  MM 01  EBANK 5  DOWNLIST 0
009974,001760: 
009975,001761:                                                                                                  #  NOTE,    THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
009976,001762:                                                                                                  #  ----     THE ABOVE LISTS-1 (IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
009977,001763:                                                                                                  #           THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
009978,001764: 
009979,001765: 04,3173                        EPREMM1            EQUALS                                         #  END OF PREMM1 TABLE
009980,001766: 04,3124                                           SETLOC   PREMM1                                #  THIS CODING WILL AUTOMATICALLY CHANGE
009981,001767: 04,3124                        NO.MMS             =MINUS   EPREMM1                               #  THE 'NOV37MM' CONSTANT AS ENTRIES ARE
009982,001768: 04,2000                                           SETLOC   VERB37                                #  INSERTED(IN) OR DELETED(FROM) THE
009983,001769: 04,2000                                           BANK                                           #  'PREMM1' TABLE.
009984,001770: 
009985,001771: 04,3173           00046        NOV37MM            ADRES    NO.MMS     -1                         #  ITEMS IN 'PREMM1' TABLE - 1. *DON'T MOVE*
009986,001772: 
009987,001773: 04,3174     4772               DNLADP00           =        ZERO                                  
009988,001774: 
009989,001775:                                                                                                  #  ORBITAL INTEGRATION CONSTANTS
009990,001776: 
009991,001777:                                                                                                  #  THESE CONSTANTS ARE USED IN COMPUTING THE SETTING OF MIDFLAG.
009992,001778: 
009993,001779: 04,3174           00465 32324  RMM                2DEC     2538.09    E3         B-27            #  800 KM ABOVE LUNAR SURFACE
009994,001780: 
009995,001781: 04,3176           00333 01733  RME                2DEC     7178165    B-29                       #  800 KM ABOVE EQ. RADIUS
009996,001782: 
009997,001783: 13,2000                                           SETLOC   INTINIT                               
009998,001784: 13,2000                                           BANK                                           
009999,001785: 
010000,001786: 13,2000                                           COUNT*   $$/INTIN                              
010001,001787: 
010002,001788: 13,2000  E3,1554                                  EBANK=   RRECTCSM                              
010003,001789: 
010004,001790: 13,2000           43014        STATEUP            SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
010005,001791: 13,2001           01474                                    VINTFLAG                              
010006,001792: 13,2002           01751                                    ORBWFLAG                              #  ALSO 6X6 W-MATRIX IF VALID
010007,001793: 13,2003           26006                                    +3                                    #       FOR ORBITAL NAVIGATION
010008,001794: 13,2004           77614                           SET                                            
010009,001795: 13,2005           01476                                    DIM0FLAG                              
010010,001796: 13,2006           45014                           CLEAR    CALL                                  
010011,001797: 13,2007           01667                                    PRECIFLG                              
010012,001798: 13,2010           27236                                    INTEGRV                               
010013,001799: 13,2011           71214                           BON      DLOAD                                 
010014,001800: 13,2012           04307                                    SURFFLAG                              

Page 228

010016,001802: 13,2013           26031                                    STATEND                               
010017,001803: 13,2014           01571                                    TETCSM                                
010018,001804: 13,2015           34041                           STCALL   TDEC1                                 
010019,001805: 13,2016           27516                                    INTSTALL                              
010020,001806: 13,2017           45014                           CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
010021,001807: 13,2020           01674                                    VINTFLAG                              
010022,001808: 13,2021           26744                                    SETIFLGS                              #        AND 6X6 W-MATRIX IF VALID
010023,001809: 13,2022           43014                           BOF      SET                                   
010024,001810: 13,2023           02756                                    RENDWFLG                              #        FOR RENDEZVOUS NAVIGATION
010025,001811: 13,2024           26026                                    +2                                    
010026,001812: 13,2025           01476                                    DIM0FLAG                              
010027,001813: 13,2026           45014                           SET      CALL                                  
010028,001814: 13,2027           01467                                    PRECIFLG                              
010029,001815: 13,2030           27236                                    INTEGRV                               
010030,001816: 13,2031           77614        STATEND            CLRGO                                          
010031,001817: 13,2032           01236                                    NODOFLAG                              
010032,001818: 13,2033           26732                                    ENDINT                                
010033,001819: 
010034,001820:                                                                                                  #  THISVINT IS CALLED BY MIDTOAV1 AND 2
010035,001821: 
010036,001822: 13,2034           43414        THISVINT           SET      RVQ                                   
010037,001823: 13,2035           01474                                    VINTFLAG                              

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