Source Code

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

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

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

008171,000002:                                                                                                 #  Copyright:     Public domain.
008172,000003:                                                                                                 #  Filename:      FRESH_START_AND_RESTART.agc
008173,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
008174,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
008175,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
008176,000007:                                                                                                 #                 Apollo 15-17.
008177,000008:                                                                                                 #  Assembler:     yaYUL
008178,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
008179,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
008180,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
008181,000012:                                                                                                 #  Mod history:   2009-07-28 JL   Adapted from corresponding Comanche 055 file.
008182,000013:                                                                                                 #                 2009-09-03 JL   Fixed symbol names.
008183,000014:                                                                                                 #                 2010-01-31 JL   Fixed build errors.
008184,000015:                                                                                                 #                 2010-02-01 JL   Fixed build errors.
008185,000016:                                                                                                 #                 2010-02-05 JL   Fixed build errors.
008186,000017:                                                                                                 #                 2010-02-11 JL   Fixed errors on p201, p226.
008187,000018:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
008188,000019:                                                                                                 #                 2010-12-29 JL   Fixed indentation.
008189,000020: 
008190,000021:                                                                                                 # # Page 192
008191,000022: 
008192,000023:                                                                                                 #  PROGRAM DESCRIPTION                                            8 APRIL, 1967
008193,000024:                                                                                                 #                                                                 SUNDISK REV 120
008194,000025:                                                                                                 #  FUNCTIONAL DESCRIPTION
008195,000026: 
008196,000027:                                                                                                 #  SLAP1          MAN INITIATED FRESH START
008197,000028:                                                                                                 #         1.      EXECUTE STARTSUB
008198,000029:                                                                                                 #         2.      TURN OFF DSKY DISCRETE-LAMPS
008199,000030:                                                                                                 #         3.      CLEAR FAIL REGISTERS, SELF-CHECK ERROR COUNTER AND RESTART
008200,000031:                                                                                                 #                 COUNTER
008201,000032:                                                                                                 #         4.      INITIALIZE OUTBIT CHANNEL 77
008202,000033:                                                                                                 #         4.      EXECUTE DOFSTART
008203,000034: 
008204,000035:                                                                                                 #  DOFSTART       MACHINE INITIATED FRESH START
008205,000036: 
008206,000037:                                                                                                 #         1.      CLEAR SELF-CHECK REGISTERS, MODE REGISTER AND CDUZ REGISTER
008207,000038:                                                                                                 #         2.      CLEAR PHASE TABLE
008208,000039:                                                                                                 #         3.      INITIALIZE IMU FLAGS
008209,000040:                                                                                                 #         4.      INITIALIZE FLAGWORDS
008210,000041:                                                                                                 #         5.      TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
008211,000042: 
008212,000043:                                                                                                 #  GOPROG HARDWARE RESTART
008213,000044: 
008214,000045:                                                                                                 #         0.      EXECUTE STARTSUB
008215,000046:                                                                                                 #         1.      TRANSFER CONTROL TO DOFSTART IF ANY OF THE FOLLOWING CONDITIONS
008216,000047:                                                                                                 #                 EXIST.
008217,000048:                                                                                                 #                 A.      RESTART OCCURRED DURING EXECUTION OF ERASCHK
008218,000049:                                                                                                 #                 B.      BOTH OSCILLATOR FAIL AND AGC WARNING ARE ON
008219,000050:                                                                                                 #                 C.      MARK REJECT AND EITHER NAV OR MAIN DSKY ERROR LIGHT RESET
008220,000051:                                                                                                 #                         ARE ON.
008221,000052:                                                                                                 #         2.      SCHEDULE A T5RUPT PROGRAM FOR THE DAP
008222,000053:                                                                                                 #         3.      SET FLAGWRD5 BITS FOR INTWAKE ROUTINE
008223,000054:                                                                                                 #         4.      EXTINGUISH ALL DSKY LAMPS, EXCEPT FOR PROGRAM ALARM, GIMBAL LOCK, AND
008224,000055:                                                                                                 #                 NO ATT
008225,000056:                                                                                                 #         5.      INITIALIZE IMU FLAGS
008226,000057:                                                                                                 #         6.      IF ENGINE COMMAND IS ON (FLAGWRD5, BIT 7), SET ENGINE ON (CHANNEL
008227,000058:                                                                                                 #                 11, BIT 13).
008228,000059:                                                                                                 #         7.      TRANSFER CONTROL TO GOPROG3
008229,000060: 
008230,000061:                                                                                                 #  ENEMA          SOFTWARE RESTART -- INITIATED BY MAJOR MODE CHANGE
008231,000062: 
008232,000063:                                                                                                 #         1.      EXECUTE STARTSB2
008233,000064:                                                                                                 #         2.      KILL PROGRAMS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION
008234,000065:                                                                                                 #                 ROUTINE
008235,000066:                                                                                                 #         3.      TRANSFER CONTROL TO GOPROG3
008236,000067: 
008237,000068:                                                                                                 #  GOPROG3        SUBROUTINE COMMON TO GOPROG AND ENEMA
008238,000069: 
008239,000070:                                                                                                 #         1.      TEST PHASE TABLES -- IF INCORRECT, DISPLAY ALARM 1107 AND
008240,000071:                                                                                                 #                 TRANSFER CONTROL TO DOFSTART
008241,000072:                                                                                                 #         2.      DISPLAY MAJOR MODE
008242,000073: 
008243,000074:                                                                                                 # # Page 193
008244,000075: 
008245,000076:                                                                                                 #         3.      IF ANY GROUPS WERE ACTIVE UPON RESTART, TRANSFER CONTROL TO THE
008246,000077:                                                                                                 #                 RESTARTS SUBROUTINE TO RESCHEDULE PENDING TASKS, LONGCALLS, AND
008247,000078:                                                                                                 #                 JOBS (P20 IS RESTARTED VIA FINDVAC)
008248,000079:                                                                                                 #         4.      IF NO GROUPS WERE ACTIVE UPON RESTART, DISPLAY ALARM CODE
008249,000080:                                                                                                 #                 1110 (RESTART WITH NO ACTIVE GROUPS).
008250,000081:                                                                                                 #         5.      TRANSFER CONTROL TO IDLE LOOP IN DUMMYJOB
008251,000082: 
008252,000083:                                                                                                 #  STARTSUB       SUBROUTINE COMMON TO SLAP1 AND GOPROG
008253,000084: 
008254,000085:                                                                                                 #         1.      CLEAR OUTBIT CHANNELS 5 AND 6
008255,000086:                                                                                                 #         2.      INITIALIZE TIME5, TIME4, TIME3
008256,000087:                                                                                                 #         3.      TRANSFER CONTROL TO STARTSB2
008257,000088: 
008258,000089:                                                                                                 #  STARTSB2       SUBROUTINE COMMON TO STARTSUB AND ENEMA
008259,000090: 
008260,000091:                                                                                                 #         1.      INTIALIZE OUTBIT CHANNELS 11,12,13, AND 14
008261,000092:                                                                                                 #         2.      REPLACE ALL TASKS ON WAITLIST WITH ENDTASK
008262,000093:                                                                                                 #         3.      MAKE ALL EXECUTEVE REGISTERS AVAILABLE
008263,000094:                                                                                                 #         4.      MAKE ALL VAC AREAS AVAILABLE
008264,000095:                                                                                                 #         5.      CLEAR DSKY REGISTERS
008265,000096:                                                                                                 #         6.      ZERO NUMEROUS SWITCHES
008266,000097:                                                                                                 #         7.      INITIALIZE OPTICS FLAGS
008267,000098:                                                                                                 #         8.      INITIALIZE PIPA AND TELEMETRY FAIL FLAGS
008268,000099:                                                                                                 #         9.      INITIALIZE DOWN TELEMETRY
008269,000100: 
008270,000101:                                                                                                 #  INPUT/OUTPUT INITIALIZATION
008271,000102: 
008272,000103:                                                                                                 #         A.      CALLING SEQUENCE
008273,000104: 
008274,000105:                                                                                                 #                 SLAP1 - TC POSTJUMP     OR      VERB 36,ENTER
008275,000106:                                                                                                 #                         CADR SLAP1
008276,000107: 
008277,000108:                                                                                                 #                 ENEMA - TC POSTJUMP     ***  DO NOT CALL ENEMA WITHOUT  ***
008278,000109:                                                                                                 #                         CADR ENEMA      ***  CONSULTING POOH PEOPLE     ***
008279,000110: 
008280,000111:                                                                                                 #         B.      OUTPUT
008281,000112: 
008282,000113:                                                                                                 #                 ERASABLE MEMORY INITIALIZATION
008283,000114: 
008284,000115:                                                                                                 #  PROGRAM ANALYSIS
008285,000116: 
008286,000117:                                                                                                 #         A.      SUBROUTINES CALLED
008287,000118: 
008288,000119:                                                                                                 #                 MR.KLEAN,WAITLIST,DSPMM,ALARM,RESTARTS,FINDVAC
008289,000120: 
008290,000121:                                                                                                 #         B.      ALARMS
008291,000122: 
008292,000123:                                                                                                 #                 1107    PHASE TABLE ERROR
008293,000124:                                                                                                 #                 1110    RESTART WTIH NO ACTIVE GROUPS
008294,000125: 
008295,000126:                                                                                                 # # Page 194
008296,000127: 05,2000                                          SETLOC   FRANDRES                              
008297,000128: 05,2000                                          BANK                                           
008298,000129: 
008299,000130: 05,2367  E3,1400                                 EBANK=   LST1                                  
008300,000131: 
008301,000132: 05,2367                                          COUNT*   $$/START                              
008302,000133: 05,2367           00004        SLAP1             INHINT                                         #  FRESH START. COMES HERE FROM PINBALL.
008303,000134: 05,2370           03046                          TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
008304,000135: 
008305,000136: 05,2371           12376        STARTSW           TCF      SKIPSIM                               
008306,000137: 
008307,000138: 05,2372           34753        STARTSIM          CAF      BIT14                                 
008308,000139: 
008309,000140: 05,2373           05135                          TC       FINDVAC                               
008310,000141: 
008311,000142: 05,2374           77777        SIM2CADR          OCT      77777                                 
008312,000143: 
008313,000144: 05,2375           77777                          OCT      77777                                 
008314,000145: 05,2376           31241        SKIPSIM           CA       DSPTAB     +11D                       
008315,000146: 05,2377           75004                          MASK     BITS4&6                               
008316,000147: 05,2400           64752                          AD       BIT15                                 
008317,000148: 05,2401           55241                          TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
008318,000149: 
008319,000150: 05,2402           34772                          CAF      ZERO                                  #  SAME STORY ON ZEROING FAILREG.
008320,000151: 05,2403           55365                          TS       ERCOUNT                               
008321,000152: 05,2404           54375                          TS       FAILREG                               
008322,000153: 05,2405           54376                          TS       FAILREG    +1                         
008323,000154: 05,2406           54377                          TS       FAILREG    +2                         
008324,000155: 05,2407           55306                          TS       REDOCTR                               
008325,000156: 
008326,000157: 05,2410           00006                          EXTEND                                         
008327,000158: 05,2411           01077                          WRITE    CHAN77                                #  ZERO CHANNEL 77
008328,000159: 05,2412           44664                          CS       PRIO12                                
008329,000160: 05,2413           55322                          TS       DSRUPTSW                              
008330,000161: 
008331,000162: 05,2414           34772        DOFSTART          CAF      ZERO                                  #  DO A FRESH START.
008332,000163: 05,2415           55360                          TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
008333,000164: 05,2416           55362                          TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
008334,000165: 05,2417           55501                          TS       UPSVFLAG                              #  UPDATE STATE VECTOR REQUEST FLAGWORD
008335,000166: 05,2420           00006                          EXTEND                                         
008336,000167: 05,2421           01005                          WRITE    CHAN5                                 #  TURN OFF RCS JETS
008337,000168: 05,2422           00006                          EXTEND                                         
008338,000169: 05,2423           01006                          WRITE    CHAN6                                 #  TURN OFF RCS JETS
008339,000170: 05,2424           00006                          EXTEND                                         
008340,000171: 05,2425           01011                          WRITE    DSALMOUT                              #  ZERO CHANNEL 11
008341,000172: 05,2426           00006                          EXTEND                                         
008342,000173: 05,2427           01012                          WRITE    CHAN12                                #  ZERO CHANNEL 12
008343,000174: 05,2430           00006                          EXTEND                                         
008344,000175: 05,2431           01013                          WRITE    CHAN13                                #  ZERO CHANNEL 13
008345,000176: 05,2432           00006                          EXTEND                                         
008346,000177:                                                                                                 # # Page 195
008347,000178: 05,2433           01014                          WRITE    CHAN14                                #  ZERO CHANNEL 14
008348,000179: 05,2434           55331                          TS       WTOPTION                              
008349,000180: 05,2435           54332                          TS       DNLSTCOD                              
008350,000181: 
008351,000182: 05,2436           54370                          TS       NVSAVE                                
008352,000183: 05,2437           55275                          TS       EBANKTEM                              
008353,000184: 05,2440           54772                          TS       TRKMKCNT                              
008354,000185: 05,2441           54771                          TS       VHFCNT                                
008355,000186: 05,2442           55247                          TS       EXTVBACT                              
008356,000187: 
008357,000188: 05,2443           54735                          TS       TRATE                                 
008358,000189: 05,2444           54736                          TS       SRATE                                 
008359,000190: 05,2445           54740                          TS       TOLD                                  
008360,000191: 05,2446           54741                          TS       SOLD                                  
008361,000192: 05,2447           41241                          CS       DSPTAB     +11D                       
008362,000193: 05,2450           75004                          MASK     BITS4&6                               
008363,000194: 05,2451           10000                          CCS      A                                     
008364,000195: 05,2452           02456                          TC       +4                                    
008365,000196: 05,2453           35004                          CA       BITS4&6                               
008366,000197: 05,2454           00006                          EXTEND                                         #  THE IMU WAS IN COARSE ALIGN IN GIMBAL
008367,000198: 05,2455           05012                          WOR      CHAN12                                #  LOCK, SO PUT IT BACK INTO COARSE ALIGN.
008368,000199: 05,2456           02536                          TC       MR.KLEAN                              
008369,000200: 
008370,000201: 05,2457           44772                          CS       ZERO                                  
008371,000202: 05,2460           55214                          TS       MODREG                                
008372,000203: 
008373,000204: 05,2461           34346                          CAF      PRIO30                                
008374,000205: 05,2462           54365                          TS       RESTREG                               
008375,000206: 
008376,000207: 05,2463           33247                          CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
008377,000208: 05,2464           55333                          TS       IMODES30                              
008378,000209: 
008379,000210: 05,2465           37702                          CAF      NEGONE                                
008380,000211: 05,2466           55323                          TS       OPTIND                                #  KILL COARSE OPTICS
008381,000212: 
008382,000213: 05,2467           33251                          CAF      OPTINITF                              
008383,000214: 05,2470           55337                          TS       OPTMODES                              
008384,000215: 
008385,000216: 05,2471           35055                          CAF      IM33INIT                              
008386,000217: 05,2472           55334                          TS       IMODES33                              
008387,000218: 
008388,000219: 05,2473           00006                          EXTEND                                         #  LET T5 IDLE.
008389,000220: 05,2474           33231                          DCA      T5IDLER                               
008390,000221: 05,2475           52113                          DXCH     T5LOC                                 
008391,000222: 
008392,000223: 05,2476           33252                          CA       SWINIT                                
008393,000224: 05,2477           54074                          TS       STATE                                 
008394,000225: 
008395,000226: 05,2500           30075                          CA       FLAGWRD1                              
008396,000227: 05,2501           74755                          MASK     NOP01BIT                              #  LEAVE NODOP01 FLAG UNTOUCHED
008397,000228:                                                                                                 # # Page 196
008398,000229: 05,2502           63253                          AD       SWINIT     +1                         
008399,000230: 05,2503           54075                          TS       FLAGWRD1                              
008400,000231: 
008401,000232: 05,2504           33254                          CA       SWINIT     +2                         
008402,000233: 05,2505           54076                          TS       STATE      +2                         
008403,000234: 
008404,000235: 05,2506           30077                          CA       FLAGWRD3                              
008405,000236: 05,2507           74754                          MASK     REFSMBIT                              
008406,000237: 05,2510           63255                          AD       SWINIT     +3                         
008407,000238: 05,2511           54077                          TS       FLAGWRD3                              
008408,000239: 
008409,000240: 05,2512           00006                          EXTEND                                         
008410,000241: 05,2513           33257                          DCA      SWINIT     +4                         
008411,000242: 05,2514           52101                          DXCH     STATE      +4                         
008412,000243: 05,2515           00006                          EXTEND                                         
008413,000244: 05,2516           33261                          DCA      SWINIT     +6                         
008414,000245: 05,2517           52103                          DXCH     STATE      +6                         
008415,000246: 05,2520           30104                          CA       FLAGWRD8                              
008416,000247: 05,2521           72562                          MASK     OCT6200                               #  CMOONFLG, LMOONFLG, AND SUFFLAG
008417,000248: 05,2522           63262                          AD       SWINIT     +8D                        
008418,000249: 05,2523           54104                          TS       FLAGWRD8                              
008419,000250: 
008420,000251: 05,2524           33263                          CA       SWINIT     +9D                        
008421,000252: 05,2525           54105                          TS       STATE      +9D                        
008422,000253: 
008423,000254: 05,2526           34756                          CAF      HDSUPBIT                              
008424,000255: 05,2527           70106                          MASK     FLGWRD10                              
008425,000256: 05,2530           63264                          AD       SWINIT     +10D                       
008426,000257: 05,2531           54106                          TS       FLGWRD10                              
008427,000258: 
008428,000259: 05,2532           33265                          CAF      SWINIT     +11D                       
008429,000260: 05,2533           54107                          TS       FLGWRD11                              
008430,000261: 
008431,000262: 05,2534           04655        ENDRSTRT          TC       POSTJUMP                              
008432,000263: 05,2535           03173                          CADR     DUMMYJOB   +2                         #  DOES A RELINT.  (IN A SWITCHED BANK.)
008433,000264: 
008434,000265: 05,2536           00004        MR.KLEAN          INHINT                                         
008435,000266: 05,2537           00006                          EXTEND                                         
008436,000267: 05,2540           34772                          DCA      NEG0                                  
008437,000268: 05,2541           53160                          DXCH     -PHASE2                               
008438,000269: 05,2542           00006        POOKLEAN          EXTEND                                         
008439,000270: 05,2543           34772                          DCA      NEG0                                  
008440,000271: 05,2544           53164                          DXCH     -PHASE4                               
008441,000272: 05,2545           00006                          EXTEND                                         
008442,000273: 05,2546           34772                          DCA      NEG0                                  
008443,000274: 05,2547           53156                          DXCH     -PHASE1                               
008444,000275: 05,2550           00006        V37KLEAN          EXTEND                                         
008445,000276: 05,2551           34772                          DCA      NEG0                                  
008446,000277: 05,2552           53162                          DXCH     -PHASE3                               
008447,000278: 05,2553           00006                          EXTEND                                         
008448,000279:                                                                                                 # # Page 197
008449,000280: 05,2554           34772                          DCA      NEG0                                  
008450,000281: 05,2555           53166                          DXCH     -PHASE5                               
008451,000282: 05,2556           00006        UPKLEAN           EXTEND                                         
008452,000283: 05,2557           34772                          DCA      NEG0                                  
008453,000284: 05,2560           53170                          DXCH     -PHASE6                               
008454,000285: 05,2561           00002                          TC       Q                                     
008455,000286: 
008456,000287: 05,2562           06200        OCT6200           OCT      6200                                  
008457,000288: 
008458,000289:                                                                                                 # # Page 198
008459,000290:                                                                                                 #  COMES HERE FROM LOCATION 4000, GOJAM, RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME.
008460,000291: 
008461,000292: 05,2563           25306        GOPROG            INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
008462,000293: 
008463,000294: 05,2564           22002                          LXCH     Q                                     
008464,000295: 05,2565           00006                          EXTEND                                         
008465,000296: 05,2566           04007                          ROR      SUPERBNK                              
008466,000297: 05,2567           53433                          DXCH     RSBBQ                                 
008467,000298: 05,2570           04636                          TC       BANKCALL                              #  STORE ERASABLES FOR DEBUGGING PURPOSES.
008468,000299: 05,2571           40000                          CADR     VAC5STOR                              
008469,000300: 05,2572           34752                          CA       BIT15                                 #  TEST OSC FAIL BIT TO SEE IF WE HAVE
008470,000301: 05,2573           00006                          EXTEND                                         #  HAD A POWER TRANSIENT. IF SO, ATTEMPT
008471,000302: 05,2574           03033                          WAND     CHAN33                                #  A RESTART. IF NOT, CHECK THE PRESENT
008472,000303: 05,2575           00006                          EXTEND                                         #  STATE OF AGC WARNING BIT.
008473,000304: 05,2576           12604                          BZF      BUTTONS                               
008474,000305: 
008475,000306: 05,2577           34753                          CA       BIT14                                 #  IF AGC WARNING ON (BIT = 0), DO A
008476,000307: 05,2600           00006                          EXTEND                                         #  FRESH START ON ASSUMPTION THAT
008477,000308: 05,2601           02033                          RAND     CHAN33                                #  WE ARE IN A RESTART LOOP.
008478,000309: 05,2602           00006                          EXTEND                                         
008479,000310: 05,2603           13044                          BZF      NONAVKEY   +1                         
008480,000311: 
008481,000312: 05,2604           03023        BUTTONS           TC       LIGHTSET                              #  MAKE FRESH START CHECKS BEFORE ERESTORE.
008482,000313: 
008483,000314:                                                                                                 #  ERASCHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X
008484,000315:                                                                                                 #  AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
008485,000316:                                                                                                 #  ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
008486,000317:                                                                                                 #  EQUAL C(SKEEP7), AND SHOULD BE A + NUMBER LESS THAN 2000 OCT.  OTHERWISE
008487,000318:                                                                                                 #  C(ERESTORE) SHOULD EQUAL +0.
008488,000319: 
008489,000320: 05,2605           34344                          CAF      HI5                                   
008490,000321: 05,2606           71360                          MASK     ERESTORE                              
008491,000322: 05,2607           00006                          EXTEND                                         
008492,000323: 05,2610           12612                          BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
008493,000324: 05,2611           13044                          TCF      NONAVKEY   +1                         #  DOUBT E MEMORY AND DO A FRESH START
008494,000325: 05,2612           41360                          CS       ERESTORE                              
008495,000326: 05,2613           00006                          EXTEND                                         
008496,000327: 05,2614           12631                          BZF      ELRSKIP    -1                         
008497,000328: 05,2615           61377                          AD       SKEEP7                                
008498,000329: 05,2616           00006                          EXTEND                                         
008499,000330: 05,2617           12621                          BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
008500,000331: 05,2620           13044                          TCF      NONAVKEY   +1                         #  NOT = SKEEP7, DOUBT EMEM, DO FRESH START
008501,000332: 05,2621           31374                          CA       SKEEP4                                
008502,000333: 05,2622           54003                          TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
008503,000334: 05,2623           00006                          EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
008504,000335: 05,2624           31376                          DCA      SKEEP5                                
008505,000336: 05,2625           51377                          INDEX    SKEEP7                                
008506,000337: 05,2626           52001                          DXCH     0000                                  #  E MEMORY RESTORED.
008507,000338: 05,2627           34772                          CA       ZERO                                  
008508,000339: 05,2630           55360                          TS       ERESTORE                              
008509,000340:                                                                                                 # # Page 199
008510,000341: 05,2631           03046                 -1       TC       STARTSUB                              #  DO INITIALIZATION AFTER ERASE RESTORE.
008511,000342: 05,2632           30102        ELRSKIP           CA       FLAGWRD6                              #  RESTART AUTOPILOTS
008512,000343: 05,2633           74076                          MASK     DPCONFIG                              
008513,000344: 05,2634           00006                          EXTEND                                         
008514,000345: 05,2635           74766                          MP       BIT3                                  #  BITS 15,14     00      T5IDLOC
008515,000346: 05,2636           76211                          MASK     SIX                                   #                 01      REDORCS
008516,000347: 05,2637           00006                          EXTEND                                         #                 10      REDOTVC
008517,000348: 05,2640           50000                          INDEX    A                                     #                 11      REDOSAT
008518,000349: 05,2641           33231                          DCA      T5IDLER                               
008519,000350: 05,2642           52113                          DXCH     T5LOC                                 
008520,000351: 
008521,000352: 05,2643           44753                          CS       INTFLBIT                              
008522,000353: 05,2644           70106                          MASK     FLGWRD10                              
008523,000354: 05,2645           54106                          TS       FLGWRD10                              
008524,000355: 
008525,000356: 05,2646           31337                          CA       OPTMODES                              
008526,000357: 05,2647           75001                          MASK     OPTINITR                              
008527,000358: 05,2650           64762                          AD       OCDUFBIT                              
008528,000359: 05,2651           55337                          TS       OPTMODES                              
008529,000360: 
008530,000361: 05,2652           34763                          CAF      NOIMUDAP                              
008531,000362: 05,2653           71334                          MASK     IMODES33                              
008532,000363: 05,2654           65055                          AD       IM33INIT                              
008533,000364: 05,2655           55334                          TS       IMODES33                              
008534,000365: 
008535,000366: 05,2656           34772                          CAF      ZERO                                  
008536,000367: 05,2657           54740                          TS       TOLD                                  
008537,000368: 05,2660           54741                          TS       SOLD                                  
008538,000369: 05,2661           33250                          CA       9,6,4                                 #  LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
008539,000370: 05,2662           71241                          MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
008540,000371: 05,2663           64752                          AD       BIT15                                 
008541,000372: 05,2664           57241                          XCH      DSPTAB     +11D                       
008542,000373: 05,2665           74765                          MASK     BIT4                                  #  IF NO ATT LAMP WAS ON, LEAVE ISS IN
008543,000374: 05,2666           00006                          EXTEND                                         #  COARSE ALIGN
008544,000375: 05,2667           12676                          BZF      NOCOARSE                              
008545,000376: 05,2670           04714                          TC       IBNKCALL                              #  IF NO ATT LAMP ON, RETURN ISS TO
008546,000377: 05,2671           17070                          CADR     SETCOARS                              #         COARSE ALIGN.
008547,000378: 
008548,000379: 05,2672           36211                          CAF      SIX                                   
008549,000380: 05,2673           05233                          TC       WAITLIST                              
008550,000381: 05,2674  E3,1474                                 EBANK=   CDUIND                                
008551,000382: 05,2674           03064 16063                    2CADR    CA+ECE                                
008552,000383: 
008553,000384: 05,2676           33240        NOCOARSE          CAF      IFAILINH                              #  LEAVE FAILURE INHIBITS INTACT ON
008554,000385: 05,2677           71333                          MASK     IMODES30                              #         HARDWARE RESTART. RESET ALL
008555,000386: 05,2700           67660                          AD       IM30INIR                              #         FAILURE CODES.
008556,000387: 05,2701           55333                          TS       IMODES30                              
008557,000388: 
008558,000389: 05,2702           40101                          CS       FLAGWRD5                              
008559,000390: 05,2703           74762                          MASK     ENGONBIT                              
008560,000391:                                                                                                 # # Page 200
008561,000392: 05,2704           10000                          CCS      A                                     
008562,000393: 05,2705           12730                          TCF      GOPROG3                               
008563,000394: 05,2706           34754                          CAF      BIT13                                 
008564,000395: 05,2707           00006                          EXTEND                                         
008565,000396: 05,2710           05011                          WOR      DSALMOUT                              #  TURN ENGINE ON
008566,000397: 05,2711           12730                          TCF      GOPROG3                               
008567,000398: 05,2712           00004        ENEMA             INHINT                                         
008568,000399: 05,2713           03023                          TC       LIGHTSET                              #  EXIT TO DOFSTART IF ERROR RESET AND
008569,000400: 05,2714           03054                          TC       STARTSB2                              #  MARK REJECT DEPRESSED SIMULTANEOUSLY
008570,000401: 05,2715           44753                          CS       INTFLBIT                              
008571,000402: 05,2716           70106                          MASK     FLGWRD10                              
008572,000403: 05,2717           54106                          TS       FLGWRD10                              
008573,000404: 
008574,000405: 05,2720           40102                          CS       FLAGWRD6                              #  IS TVC ON
008575,000406: 05,2721           74076                          MASK     DPCONFIG                              
008576,000407: 05,2722           00006                          EXTEND                                         
008577,000408: 05,2723           62730                          BZMF     GOPROG3                               #  NO
008578,000409: 
008579,000410: 05,2724           35011                          CAF      .5SEC                                 #  YES, CALL TVCEXEC TASK WHICH WAS KILLED
008580,000411: 05,2725           05233                          TC       WAITLIST                              #         IN STARTSB2.
008581,000412: 05,2726  E6,1446                                 EBANK=   CNTR                                  
008582,000413: 05,2726           03037 34066                    2CADR    TVCEXEC                               
008583,000414: 
008584,000415: 05,2730           30102        GOPROG3           CA       FLAGWRD6                              
008585,000416: 05,2731           74076                          MASK     DPCONFIG                              
008586,000417: 05,2732           00006                          EXTEND                                         
008587,000418: 05,2733           62744                          BZMF     GOPROG4                               
008588,000419: 05,2734           34764                          CAF      TRACKBIT                              
008589,000420: 05,2735           70075                          MASK     FLAGWRD1                              
008590,000421: 05,2736           10000                          CCS      A                                     
008591,000422: 05,2737           12744                          TCF      GOPROG4                               
008592,000423: 05,2740           04611                          TC       E6SETTER                              
008593,000424: 05,2741           04463                          TC       STOPRATE                              
008594,000425: 05,2742           35024                          CAF      EBANK3                                
008595,000426: 05,2743           54003                          TS       EBANK                                 
008596,000427: 05,2744           34773        GOPROG4           CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
008597,000428: 05,2745           54161        PCLOOP            TS       MPAC       +5                         
008598,000429: 05,2746           60000                          DOUBLE                                         
008599,000430: 05,2747           00006                          EXTEND                                         
008600,000431: 05,2750           50000                          INDEX    A                                     
008601,000432: 05,2751           31156                          DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
008602,000433: 05,2752           00006                          EXTEND                                         
008603,000434: 05,2753           06001                          RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
008604,000435: 05,2754           10000                          CCS      A                                     
008605,000436: 05,2755           13012                          TCF      PTBAD                                 #  RESTART FAILURE.
008606,000437: 05,2756           13012                          TCF      PTBAD                                 
008607,000438: 05,2757           13012                          TCF      PTBAD                                 
008608,000439: 
008609,000440: 05,2760           10161                          CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
008610,000441: 05,2761           12745                          TCF      PCLOOP                                
008611,000442:                                                                                                 # # Page 201
008612,000443: 05,2762           54162                          TS       MPAC       +6                         #  SET TO +0.
008613,000444: 05,2763           05350                          TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
008614,000445: 
008615,000446: 05,2764           00004                          INHINT                                         #  RELINT DONE IN MMDSPLAY
008616,000447: 
008617,000448: 05,2765           34773                          CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
008618,000449: 05,2766           54161        NXTRST            TS       MPAC       +5                         
008619,000450: 05,2767           60000                          DOUBLE                                         
008620,000451: 05,2770           50000                          INDEX    A                                     
008621,000452: 05,2771           11156                          CCS      PHASE1                                
008622,000453: 05,2772           12774                          TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
008623,000454: 05,2773           13001                          TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
008624,000455: 
008625,000456: 05,2774           54154        PACTIVE           TS       MPAC                                  
008626,000457: 05,2775           24154                          INCR     MPAC                                  #  ABS OF PHASE.
008627,000458: 05,2776           24162                          INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
008628,000459: 05,2777           04636                          TC       BANKCALL                              
008629,000460: 05,3000           03467                          CADR     RESTARTS                              
008630,000461: 
008631,000462: 05,3001           10161        PINACT            CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
008632,000463: 05,3002           12766                          TCF      NXTRST                                
008633,000464: 
008634,000465: 05,3003           10162                          CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
008635,000466: 05,3004           12534                          TCF      ENDRSTRT                              #  PHASE ACTIVE
008636,000467: 05,3005           34752                          CAF      BIT15                                 #  IS MODE -0
008637,000468: 05,3006           71214                          MASK     MODREG                                
008638,000469: 05,3007           00006                          EXTEND                                         
008639,000470: 05,3010           14103                          BZF      GOTOPOOH                              #  NO
008640,000471: 05,3011           12534                          TCF      ENDRSTRT                              #  YES
008641,000472: 05,3012           05671        PTBAD             TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
008642,000473: 05,3013           01107                          OCT      1107                                  
008643,000474: 
008644,000475: 05,3014           12414                          TCF      DOFSTART                              #  IN R21.
008645,000476: 
008646,000477:                                                                                                 #  ******** ****** ******
008647,000478: 
008648,000479:                                                                                                 #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE.
008649,000480: 
008650,000481: 05,3015           00004        GOPROG2           INHINT                                         
008651,000482: 05,3016           03054                          TC       STARTSB2                              
008652,000483: 05,3017           44753                          CS       INTFLBIT                              
008653,000484: 05,3020           70106                          MASK     FLGWRD10                              
008654,000485: 05,3021           54106                          TS       FLGWRD10                              
008655,000486: 05,3022           12744                          TCF      GOPROG4                               
008656,000487: 05,3023     4754               OCT10000          =        BIT13                                 
008657,000488: 05,3023     4346               OCT30000          =        PRIO30                                
008658,000489: 05,3023           34762        LIGHTSET          CAF      BIT7                                  #  DOFSTART IF MARK REJECT AND EITHER
008659,000490: 05,3024           00006                          EXTEND                                         #  ERROR LIGHT RESET BUTTONS ARE DEPRESSED
008660,000491: 05,3025           02016                          RAND     NAVKEYIN                              
008661,000492: 05,3026           00006                          EXTEND                                         
008662,000493:                                                                                                 # # Page 202
008663,000494: 05,3027           13043                          BZF      NONAVKEY                              #  NO MARK REJECT
008664,000495: 05,3030           34342                          CAF      OCT37                                 
008665,000496: 05,3031           00006                          EXTEND                                         
008666,000497: 05,3032           02016                          RAND     NAVKEYIN                              #  NAV DSKY KEYCODES,MARK,MARK REJECT
008667,000498: 05,3033           63246                          AD       -ELR                                  
008668,000499: 05,3034           00006                          EXTEND                                         
008669,000500: 05,3035           13044                          BZF      NONAVKEY   +1                         
008670,000501: 05,3036           00006                          EXTEND                                         
008671,000502: 05,3037           00015                          READ     MNKEYIN                               #  MAIN DSKY KEYCODES
008672,000503: 05,3040           63246                          AD       -ELR                                  
008673,000504: 05,3041           00006                          EXTEND                                         
008674,000505: 05,3042           13044                          BZF      +2                                    
008675,000506: 
008676,000507: 05,3043           00002        NONAVKEY          TC       Q                                     
008677,000508: 
008678,000509: 05,3044           03046                 +1       TC       STARTSUB                              
008679,000510: 05,3045           12414                          TCF      DOFSTART                              
008680,000511: 05,3046           33241        STARTSUB          CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
008681,000512: 05,3047           54334                          TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE
008682,000513:                                                                                                 #  INTERRUPTED AND START SENDING FROM THE
008683,000514:                                                                                                 #  BEGINNING OF THE CURRENT DOWNLIST.
008684,000515: 
008685,000516: 05,3050           37662                          CAF      OCT37774                              #  37774 TO TIME5
008686,000517: 05,3051           54030                          TS       TIME5                                 
008687,000518: 05,3052           64770                          AD       ONE                                   #  37775 TO TIME4
008688,000519: 05,3053           54027                          TS       TIME4                                 
008689,000520: 
008690,000521: 05,3054           33244        STARTSB2          CAF      OCT77603                              #  TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
008691,000522: 05,3055           00006                          EXTEND                                         #  FLASH, OP. ERROR, LEAVE OTHERS UNCHANGED
008692,000523: 05,3056           03011                          WAND     DSALMOUT                              
008693,000524: 
008694,000525: 05,3057           34750                          CAF      POSMAX                                #  37777 to TIME3.
008695,000526: 05,3060           54026                          TS       TIME3                                 
008696,000527: 
008697,000528: 05,3061           33245                          CAF      OCT74777                              #  TURN OFF TEST ALARMS, STANDBY ENABLE.
008698,000529: 05,3062           00006                          EXTEND                                         
008699,000530: 05,3063           03013                          WAND     CHAN13                                
008700,000531: 05,3064           34753                          CAF      R21BIT                                #  CLEAR BITS
008701,000532: 05,3065           64755                          AD       P21BIT                                
008702,000533: 05,3066           64757                          AD       SKIPVBIT                              #  NOW SET SKIPVHF FLAG.
008703,000534: 05,3067           40000                          COM                                            
008704,000535: 05,3070           70076                          MASK     FLAGWRD2                              
008705,000536: 05,3071           64757                          AD       SKIPVBIT                              #  NOW SET SKIPVHF FLAG.
008706,000537: 05,3072           54076                          TS       FLAGWRD2                              
008707,000538: 05,3073           44765                          CS       MARKBIT                               
008708,000539: 05,3074           70075                          MASK     FLAGWRD1                              
008709,000540: 05,3075           54075                          TS       FLAGWRD1                              
008710,000541: 
008711,000542: 05,3076           44765                          CS       CYC61BIT                              
008712,000543: 05,3077           70074                          MASK     FLAGWRD0                              
008713,000544:                                                                                                 # # Page 203
008714,000545: 05,3100           54074                          TS       FLAGWRD0                              
008715,000546: 05,3101  E3,1400                                 EBANK=   LST1                                  
008716,000547: 05,3101           35024                          CAF      EBANK3                                
008717,000548: 05,3102           54003                          TS       EBANK                                 #  SET FOR E3
008718,000549: 
008719,000550: 05,3103           34751                          CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
008720,000551: 05,3104           55407                          TS       LST1       +7                         
008721,000552: 05,3105           55406                          TS       LST1       +6                         
008722,000553: 05,3106           55405                          TS       LST1       +5                         
008723,000554: 05,3107           55404                          TS       LST1       +4                         
008724,000555: 05,3110           55403                          TS       LST1       +3                         
008725,000556: 05,3111           55402                          TS       LST1       +2                         
008726,000557: 05,3112           55401                          TS       LST1       +1                         
008727,000558: 05,3113           55400                          TS       LST1                                  
008728,000559: 
008729,000560: 05,3114           45274                          CS       ENDTASK                               
008730,000561: 05,3115           55410                          TS       LST2                                  
008731,000562: 05,3116           55412                          TS       LST2       +2                         
008732,000563: 05,3117           55414                          TS       LST2       +4                         
008733,000564: 05,3120           55416                          TS       LST2       +6                         
008734,000565: 05,3121           55420                          TS       LST2       +8D                        
008735,000566: 05,3122           55422                          TS       LST2       +10D                       
008736,000567: 05,3123           55424                          TS       LST2       +12D                       
008737,000568: 05,3124           55426                          TS       LST2       +14D                       
008738,000569: 05,3125           55430                          TS       LST2       +16D                       
008739,000570: 05,3126           45275                          CS       ENDTASK    +1                         
008740,000571: 05,3127           55411                          TS       LST2       +1                         
008741,000572: 05,3130           55413                          TS       LST2       +3                         
008742,000573: 05,3131           55415                          TS       LST2       +5                         
008743,000574: 05,3132           55417                          TS       LST2       +7                         
008744,000575: 05,3133           55421                          TS       LST2       +9D                        
008745,000576: 05,3134           55423                          TS       LST2       +11D                       
008746,000577: 05,3135           55425                          TS       LST2       +13D                       
008747,000578: 05,3136           55427                          TS       LST2       +15D                       
008748,000579: 05,3137           55431                          TS       LST2       +17D                       
008749,000580: 
008750,000581: 05,3140           44772                          CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
008751,000582: 05,3141           54167                          TS       PRIORITY                              #  AVAILABLE.
008752,000583: 05,3142           54203                          TS       PRIORITY   +12D                       
008753,000584: 05,3143           54217                          TS       PRIORITY   +24D                       
008754,000585: 05,3144           54233                          TS       PRIORITY   +36D                       
008755,000586: 05,3145           54247                          TS       PRIORITY   +48D                       
008756,000587: 05,3146           54263                          TS       PRIORITY   +60D                       
008757,000588: 05,3147           54277                          TS       PRIORITY   +72D                       
008758,000589: 
008759,000590: 05,3150           55322                          TS       DSRUPTSW                              
008760,000591: 05,3151           54067                          TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
008761,000592: 
008762,000593: 05,3152           33243                          CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
008763,000594: 05,3153           54400                          TS       VAC1USE                               
008764,000595:                                                                                                 # # Page 204
008765,000596: 05,3154           65005                          AD       LTHVACA                               
008766,000597: 05,3155           54454                          TS       VAC2USE                               
008767,000598: 05,3156           65005                          AD       LTHVACA                               
008768,000599: 05,3157           54530                          TS       VAC3USE                               
008769,000600: 05,3160           65005                          AD       LTHVACA                               
008770,000601: 05,3161           54604                          TS       VAC4USE                               
008771,000602: 05,3162           65005                          AD       LTHVACA                               
008772,000603: 05,3163           54660                          TS       VAC5USE                               
008773,000604: 
008774,000605: 05,3164           34355                          CAF      TEN                                   #  BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN,
008775,000606:                                                                                                 #  R1,R2,R3)
008776,000607: 05,3165           54154        DSPOFF            TS       MPAC                                  
008777,000608: 05,3166           44755                          CS       BIT12                                 
008778,000609: 05,3167           50154                          INDEX    MPAC                                  
008779,000610: 05,3170           55226                          TS       DSPTAB                                
008780,000611: 05,3171           10154                          CCS      MPAC                                  
008781,000612: 05,3172           13165                          TCF      DSPOFF                                
008782,000613: 
008783,000614: 05,3173           55000                          TS       DELAYLOC                              
008784,000615: 05,3174           55001                          TS       DELAYLOC   +1                         
008785,000616: 05,3175           55002                          TS       DELAYLOC   +2                         
008786,000617: 05,3176           55003                          TS       DELAYLOC   +3                         
008787,000618: 05,3177           54045                          TS       INLINK                                
008788,000619: 05,3200           55201                          TS       DSPCNT                                
008789,000620: 05,3201           55245                          TS       CADRSTOR                              
008790,000621: 05,3202           55216                          TS       REQRET                                
008791,000622: 05,3203           55220                          TS       CLPASS                                
008792,000623: 05,3204           55215                          TS       DSPLOCK                               
008793,000624: 05,3205           55223                          TS       MONSAVE                               #  KILL MONITOR
008794,000625: 05,3206           55224                          TS       MONSAVE1                              
008795,000626: 05,3207           55204                          TS       VERBREG                               
008796,000627: 05,3210           55205                          TS       NOUNREG                               
008797,000628: 05,3211           55246                          TS       DSPLIST                               
008798,000629: 05,3212           55335                          TS       IMUCADR                               
008799,000630: 05,3213           55324                          TS       LGYRO                                 
008800,000631: 05,3214           54100                          TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
008801,000632: 05,3215           54301                          TS       MARKINDX                              
008802,000633: 05,3216           55247                          TS       EXTVBACT                              
008803,000634: 05,3217           34775                          CAF      NOUTCON                               
008804,000635: 05,3220           55221                          TS       NOUT                                  
008805,000636: 
008806,000637: 05,3221           33242                          CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
008807,000638: 05,3222           55361                          TS       SELFRET                               
008808,000639: 
008809,000640: 05,3223           44351                          CS       VD1                                   
008810,000641: 05,3224           55202                          TS       DSPCOUNT                              
008811,000642: 
008812,000643: 05,3225           00002                          TC       Q                                     
008813,000644: 05,3226           30001        T5IDLOC           CA       L                                     #  T5RUPT COMES HERE EVERY 163.84 SECS
008814,000645: 05,3227           15326                          TCF      NOQRSM     +1                         #  WHEN NOBODY IS USING IT.
008815,000646: 
008816,000647:                                                                                                 # # Page 205
008817,000648: 05,3230  E6,1645                                 EBANK=   OGANOW                                
008818,000649: 05,3230           03226 12066  T5IDLER           2CADR    T5IDLOC                               
008819,000650: 
008820,000651: 05,3232  E6,1645                                 EBANK=   OGANOW                                
008821,000652: 05,3232           02123 42066                    2CADR    REDORCS                               
008822,000653: 
008823,000654: 05,3234  E6,1645                                 EBANK=   OGANOW                                
008824,000655: 05,3234           03222 34066                    2CADR    REDOTVC                               
008825,000656: 
008826,000657: 05,3236  E6,1645                                 EBANK=   OGANOW                                
008827,000658: 05,3236           02000 54066                    2CADR    REDOSAT                               
008828,000659: 
008829,000660: 05,3240           00435        IFAILINH          OCT      435                                   
008830,000661: 05,3241           03446        LDNPHAS1          GENADR   DNPHASE1                              
008831,000662: 05,3242           03270        LESCHK            GENADR   SELFCHK                               
008832,000663: 05,3243           00400        VAC1ADRC          ADRES    VAC1USE                               
008833,000664: 05,3244           77603        OCT77603          OCT      77603                                 
008834,000665: 05,3245           74777        OCT74777          OCT      74777                                 
008835,000666: 05,3246     4773               NUMGRPS           EQUALS   FIVE                                  
008836,000667: 05,3246           77755        -ELR              OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
008837,000668: 05,3247           37411        IM30INIF          OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
008838,000669: 05,3250     7660               IM30INIR          =        PRIO37                                
008839,000670: 05,3250     5055               IM33INIT          =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
008840,000671: 05,3250           00450        9,6,4             OCT      450                                   
008841,000672: 05,3251           00130        OPTINITF          OCT      130                                   
008842,000673: 05,3252     5001               OPTINITR          =        BITS4&5                               
008843,000674: 05,3252           00000        SWINIT            OCT      0                                     
008844,000675: 05,3253           00000                          OCT      0                                     
008845,000676: 05,3254           00000                          OCT      0                                     
008846,000677: 05,3255           00000                          OCT      0                                     
008847,000678: 
008848,000679: 05,3256           00000                          OCT      0                                     
008849,000680: 05,3257           00200                          OCT      00200                                 
008850,000681: 05,3260           00004                          OCT      00004                                 #  .05GSW
008851,000682: 05,3261           00000                          OCT      0                                     
008852,000683: 05,3262           00000                          OCT      0                                     
008853,000684: 05,3263           00000                          OCT      0                                     
008854,000685: 05,3264           00000                          OCT      0                                     
008855,000686: 05,3265           00000                          OCT      0                                     
008856,000687:                                                                                                 # # Page 206
008857,000688:                                                                                                 #  ROUTINE NAME           GOTOPOOH -- ENTRANCE TO ROUTINE R00 (SELECTION OF NEW PROGRAM VIA V37)
008858,000689:                                                                                                 #  FUNCTIONAL DESCRIPTION
008859,000690: 
008860,000691:                                                                                                 #         1. FLASH V37    TO REQUEST SELECTION OF NEW PROGRAM
008861,000692: 
008862,000693:    4000                                          SETLOC   FFTAG10                               
008863,000694:    4000                                          BANK                                           
008864,000695: 
008865,000696:    4103                                          COUNT*   $$/POO                                
008866,000697:    4103           05561        GOTOPOOH          TC       DOWNFLAG                              
008867,000698:    4104           00236                          ADRES    AUTOSEQ                               
008868,000699:    4105           05402        MNKGOPOO          TC       PHASCHNG                              
008869,000700:    4106           05024                          OCT      05024                                 
008870,000701:    4107           13000                          OCT      13000                                 
008871,000702:    4110           04655                          TC       POSTJUMP                              
008872,000703:    4111           10000                          CADR     GOPOOFIX                              
008873,000704:    4112           34762        AUTOCHK           CAF      AUTSQBIT                              #  IS THIS AN AUTO SEQUENCE
008874,000705:    4113           70106                          MASK     FLGWRD10                              
008875,000706:    4114           00006                          EXTEND                                         
008876,000707:    4115           16711                          BZF      TCQ                                   #  NO, RETURN TO CALLER
008877,000708:    4116           05402        AUTOCHK1          TC       PHASCHNG                              
008878,000709:    4117           05024                          OCT      05024                                 
008879,000710:    4120           13000                          OCT      13000                                 
008880,000711: 
008881,000712:                                                                                                 #  GROUP 4 USE IS OK SINCE V37 TO FOLLOW
008882,000713:    4121           34754                          CAF      BIT13                                 
008883,000714:    4122           56004                          XCH      FBANK                                 #  INCORRECT IF P80'S NOT IN BANK 4 (BIT13)
008884,000715:    4123           01012                          TC       AUTPOINT                              
008885,000716: 04,2000                                          SETLOC   VERB37                                
008886,000717: 04,2000                                          BANK                                           
008887,000718: 
008888,000719: 04,2000                                          COUNT*   $$/POO                                
008889,000720: 04,2000           02767        GOPOOFIX          TC       INITSUB                               
008890,000721: 04,2001           05531                          TC       CLEARMRK   +2                         
008891,000722: 04,2002           04112                          TC       AUTOCHK                               
008892,000723: 04,2003           32006                          CAF      V37N99                                
008893,000724: 04,2004           05535                          TC       VNFLASH                               
008894,000725: 04,2005           02003                          TC       -2                                    
008895,000726: 
008896,000727: 04,2006           11343        V37N99            VN       3799                                  
008897,000728: 
008898,000729:                                                                                                 # # Page 207
008899,000730:                                                                                                 #  PROGRAM NAME           V37                             ASSEMBLY        SUNDISK
008900,000731:                                                                                                 #  LOG SECTION            FRESH START AND RESTART
008901,000732: 
008902,000733:                                                                                                 #  FUNCTIONAL DESCRIPTION
008903,000734: 
008904,000735:                                                                                                 #         1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
008905,000736:                                                                                                 #         2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
008906,000737:                                                                                                 #            SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
008907,000738:                                                                                                 #         3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
008908,000739:                                                                                                 #         4. INTSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
008909,000740:                                                                                                 #         5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
008910,000741:                                                                                                 #         6. TRACK, UPDATE, AND TARG1 FLAGS ARE SET TO ZERO.
008911,000742:                                                                                                 #         7. DISPLAY SYSTEM IS RELEASED.
008912,000743:                                                                                                 #         8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
008913,000744:                                                                                                 #                 A. PROGRAM SELECTED IS P00.
008914,000745:                                                                                                 #                         1. RENDEZVOUS FLAG IS RESET (KILL P20).
008915,000746:                                                                                                 #                         2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
008916,000747:                                                                                                 #                         3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
008917,000748:                                                                                                 #                         4. SUPERBANK 3 IS SELECTED.
008918,000749:                                                                                                 #                         5. NODOFLAG IS RESET.
008919,000750:                                                                                                 #                         6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2)
008920,000751:                                                                                                 #                            WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
008921,000752:                                                                                                 #                            INITIATED.
008922,000753:                                                                                                 #                 B. PROGRAM SELECTED IS P20
008923,000754:                                                                                                 #                         1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
008924,000755:                                                                                                 #                            VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
008925,000756:                                                                                                 #                         2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
008926,000757:                                                                                                 #                            ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
008927,000758:                                                                                                 #                            AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
008928,000759:                                                                                                 #                            P20 IS RESTARTED TO CONTINUE, AND ITS MAJOR MODE IS SET.
008929,000760:                                                                                                 #                         3. CONTROL IS TRANSFERRED TO GOPROG2.
008930,000761:                                                                                                 #                 C. PROGRAM SELECTED IS NEITHER P00 NOR P20
008931,000762:                                                                                                 #                         1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
008932,000763:                                                                                                 #                         2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
008933,000764:                                                                                                 #                            GROUPS. GROUP 2 IS CLEARED. IF THE RENDEZVOUS FLAG IS ON P20 IS RESTARTED IN GOPROG2 VIA REDOP20,
008934,000765:                                                                                                 #                            TO CONTINUE.
008935,000766: 
008936,000767:                                                                                                 #  INPUT/OUTPUT INFORMATION
008937,000768: 
008938,000769:                                                                                                 #         A. CALLING SEQUENCE
008939,000770: 
008940,000771:                                                                                                 #                 CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
008941,000772:                                                                                                 #                 VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
008942,000773:                                                                                                 #                 MMCHANG EXECUTES A      TC POSTJUMP, CADR V37.
008943,000774: 
008944,000775:                                                                                                 #         B. ERASABLE INITIALIZATION              NONE
008945,000776: 
008946,000777:                                                                                                 #         C. OUTPUT
008947,000778:                                                                                                 #                 MAJOR MODE CHANGE
008948,000779:                                                                                                 # # Page 208
008949,000780: 
008950,000781:                                                                                                 #         D. DEBRIS
008951,000782:                                                                                                 #                 MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
008952,000783:                                                                                                 #                 GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
008953,000784: 
008954,000785:                                                                                                 #  PROGRAM ANALYSIS
008955,000786: 
008956,000787:                                                                                                 #         A. SUBROUTINES CALLED
008957,000788:                                                                                                 #                 ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
008958,000789:                                                                                                 #                 DSPMM
008959,000790: 
008960,000791:                                                                                                 #         B. NORMAL EXIT                          TC ENDOFJOB
008961,000792: 
008962,000793:                                                                                                 #         C. ALARMS                               1520 (MAJOR MODE CHANGE NOT PERMITTED)
008963,000794: 
008964,000795:    4000                                          SETLOC   FFTAG10                               
008965,000796:    4000                                          BANK                                           
008966,000797: 
008967,000798:    4124                                          COUNT*   $$/V37                                
008968,000799:    4124           00024        OCT24             MM       20         B-14                       
008969,000800:    4125           00031        OCT31             MM       25         B-14                       
008970,000801: 04,2000                                          SETLOC   VERB37                                
008971,000802: 04,2000                                          BANK                                           
008972,000803: 
008973,000804: 04,2007                                          COUNT*   $$/V37                                
008974,000805: 04,2007           55200        V37               TS       MMNUMBER                              #  SAVE MAJOR MODE
008975,000806: 04,2010           05561                          TC       DOWNFLAG                              
008976,000807: 04,2011           00236                          ADRES    AUTOSEQ                               
008977,000808: 04,2012           05561                          TC       DOWNFLAG                              
008978,000809: 04,2013           00226                          ADRES    PCMANFLG                              
008979,000810: 04,2014           05561                          TC       DOWNFLAG                              
008980,000811: 04,2015           00215                          ADRES    VHFRFLAG                              
008981,000812: 04,2016           04606                          TC       E7SETTER                              
008982,000813: 04,2017  E7,1722                                 EBANK=   MRKBUF1                               
008983,000814: 04,2017           37702                          CAF      NEGONE                                
008984,000815: 04,2020           55722                          TS       MRKBUF1                               #  TO PREVENT P20 FROM PROCESSING P50's MRK
008985,000816: 04,2021           40077                          CS       FLAGWRD3                              
008986,000817: 04,2022           74754                          MASK     REFSMBIT                              
008987,000818: 04,2023           10000                          CCS      A                                     
008988,000819: 04,2024           12044                          TCF      AUTO37                                
008989,000820: 04,2025           31200                          CA       MMNUMBER                              
008990,000821: 04,2026           62031                          AD       NEG79                                 
008991,000822: 04,2027           10000                          CCS      A                                     
008992,000823: 04,2030           12375                          TCF      V37NONO                               
008993,000824: 04,2031           77660        NEG79             DEC      -79        B-14                       
008994,000825: 04,2032           12035                          TCF      MMOK                                  
008995,000826: 04,2033           31200        RENDP79           CA       MMNUMBER                              
008996,000827: 04,2034           12410                          TCF      REND30S    +1                         
008997,000828: 04,2035           31200        MMOK              CA       MMNUMBER                              
008998,000829: 04,2036           62406                          AD       NEG30                                 
008999,000830: 04,2037           00006                          EXTEND                                         
009000,000831:                                                                                                 # # Page 209
009001,000832: 04,2040           62044                          BZMF     AUTO37                                #  P01 - P30
009002,000833: 04,2041           63770                          AD       NEG6                                  
009003,000834: 04,2042           00006                          EXTEND                                         
009004,000835: 04,2043           62407                          BZMF     REND30S                               #  P31 - P36 RENDEZVOUS
009005,000836: 04,2044           34346        AUTO37            CAF      PRIO30                                
009006,000837: 04,2045           54365                          TS       RESTREG                               
009007,000838: 
009008,000839: 04,2046           34772                          CAF      ZERO                                  #  ZERO OUT AUTO OPTICS RATE REGS
009009,000840: 04,2047           54740                          TS       TOLD                                  
009010,000841: 04,2050           54741                          TS       SOLD                                  
009011,000842: 04,2051           54735                          TS       TRATE                                 
009012,000843: 04,2052           54736                          TS       SRATE                                 
009013,000844: 04,2053           05561                          TC       DOWNFLAG                              
009014,000845: 04,2054           00210                          ADRES    P24FLAG                               
009015,000846: 04,2055           31333                          CA       IMODES30                              #  IS IMU BEING INITIALIZED
009016,000847: 04,2056           74763                          MASK     IMUNITBT                              
009017,000848: 04,2057           10000                          CCS      A                                     
009018,000849: 04,2060           12125                          TCF      CANTROO                               
009019,000850: 
009020,000851: 04,2061           34762                          CAF      ENGONBIT                              #  IS ENGINE ON
009021,000852: 04,2062           70101                          MASK     FLAGWRD5                              
009022,000853: 04,2063           10000                          CCS      A                                     
009023,000854: 04,2064           12071                          TCF      ROOTOPOO                              #  YES, SET UP FOR POO
009024,000855: 
009025,000856: 04,2065           40102                          CS       FLAGWRD6                              #  NO, IS TVC DAP ON
009026,000857: 04,2066           74076                          MASK     DPCONFIG                              
009027,000858: 04,2067           00006                          EXTEND                                         
009028,000859: 04,2070           62116                          BZMF     ISITPOO                               #  NO, CONTINUE WITH ROO
009029,000860: 
009030,000861: 04,2071           04611        ROOTOPOO          TC       E6SETTER                              
009031,000862: 
009032,000863: 04,2072  E6,1465                                 EBANK=   DAPDATR1                              
009033,000864: 04,2072           04636                          TC       BANKCALL                              #  SPSOFF DOES AN INHINT
009034,000865: 04,2073           51045                          CADR     SPSOFF                                
009035,000866: 04,2074           04714                          TC       IBNKCALL                              
009036,000867: 04,2075           13313                          CADR     MASSPROP                              
009037,000868: 04,2076           33054                          CAF      3.1SEC                                
009038,000869: 04,2077           04714                          TC       IBNKCALL                              
009039,000870: 04,2100           42043                          CADR     RCSDAPON   +1                         
009040,000871: 
009041,000872: 04,2101           04714                          TC       IBNKCALL                              
009042,000873: 04,2102           51161                          CADR     TVCZAP                                #  DISABLE TVC
009043,000874: 04,2103           34772                          CAF      ZERO                                  
009044,000875: 04,2104           55200                          TS       MMNUMBER                              
009045,000876: 04,2105           00003                          RELINT                                         
009046,000877: 04,2106           34773                          CAF      FIVE                                  
009047,000878: 04,2107           04636                          TC       BANKCALL                              
009048,000879: 04,2110           01731                          CADR     DELAYJOB                              
009049,000880: 04,2111           34772                          CAF      ZERO                                  
009050,000881: 04,2112           00006                          EXTEND                                         
009051,000882:                                                                                                 # # Page 210
009052,000883: 04,2113           01005                          WRITE    5                                     
009053,000884: 04,2114           00006                          EXTEND                                         
009054,000885: 04,2115           01006                          WRITE    6                                     
009055,000886: 04,2116           31200        ISITPOO           CA       MMNUMBER                              
009056,000887: 04,2117           00006                          EXTEND                                         
009057,000888: 04,2120           12151                          BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
009058,000889: 
009059,000890: 04,2121           40076                          CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
009060,000891: 04,2122           74770                          MASK     NODOBIT                               
009061,000892: 04,2123           10000                          CCS      A                                     
009062,000893: 04,2124           12132                          TCF      CHECKTAB                              #  NO
009063,000894: 04,2125           05671        CANTROO           TC       ALARM                                 
009064,000895: 04,2126           01520                          OCT      1520                                  
009065,000896: 
009066,000897: 04,2127           04432        V37BAD            TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
009067,000898: 
009068,000899: 04,2130           04655                          TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
009069,000900: 04,2131           21275                          CADR     PINBRNCH                              #  WAS ONE. OY
009070,000901: 
009071,000902: 04,2132           33173        CHECKTAB          CA       NOV37MM                               #  THE NO. OF MM
009072,000903: 04,2133           54155        AGAINMM           TS       MPAC       +1                         
009073,000904: 04,2134           50155                          NDX      MPAC       +1                         
009074,000905: 04,2135           33124                          CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
009075,000906: 04,2136           76043                          MASK     LOW7                                  
009076,000907: 04,2137           40000                          COM                                            
009077,000908: 04,2140           61200                          AD       MMNUMBER                              
009078,000909: 04,2141           10000                          CCS      A                                     
009079,000910: 04,2142           10155                          CCS      MPAC       +1                         #  IF GR, SEE IF ANY MORE IN LIST
009080,000911: 04,2143           12133                          TCF      AGAINMM                               #  YES, GET NEXT ONE
009081,000912: 04,2144           12375                          TCF      V37NONO                               #  LAST TIME OR PASSED MM
009082,000913: 
009083,000914: 04,2145           30155                          CA       MPAC       +1                         
009084,000915: 04,2146           55177                          TS       MINDEX                                #  SAVE INDEX FOR LATER
009085,000916: 
009086,000917: 04,2147           05547                          TC       UPFLAG                                
009087,000918: 04,2150           00055                          ADRES    V50N18FL                              #  66935 55  518 490731Y
009088,000919: 
009089,000920: 04,2151           40103        ISSERVON          CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
009090,000921: 04,2152           74763                          MASK     V37FLBIT                              
009091,000922: 04,2153           10000                          CCS      A                                     
009092,000923: 04,2154           12162                          TCF      CANV37                                #  NO
009093,000924: 
009094,000925: 04,2155           00004                          INHINT                                         
009095,000926: 04,2156           44770                          CS       AVEGBIT                               #  YES TURN OFF AVERAGE G FLAG AND WAIT
009096,000927: 04,2157           70075                          MASK     FLAGWRD1                              #  FOR SERVICER TO RETURN TO CANV37
009097,000928: 04,2160           54075                          TS       FLAGWRD1                              
009098,000929: 
009099,000930: 04,2161           15205                          TCF      ENDOFJOB                              
009100,000931: 
009101,000932: 04,2162           33053        CANV37            CAF      ROOAD                                 
009102,000933:                                                                                                 # # Page 211
009103,000934: 04,2163           54373                          TS       TEMPFLSH                              
009104,000935: 
009105,000936: 04,2164           05402                          TC       PHASCHNG                              
009106,000937: 04,2165           00014                          OCT      14                                    
009107,000938: 
009108,000939: 04,2166           06006        ROO               TC       INTPRET                               
009109,000940: 
009110,000941: 04,2167           77624                          CALL                                           #  WAIT FOR INTEGRATION TO FINISH
009111,000942: 04,2170           27516                                   INTSTALL                              
009112,000943: 04,2171           77776        DUMMYAD           EXIT                                           
009113,000944: 
009114,000945: 04,2172           45024                          CS       OCT1400                               #  CLEAR CAUTION RESET
009115,000946: 04,2173           00006                          EXTEND                                         #    AND TEST CONNECTOR OUTBIT
009116,000947: 04,2174           03011                          WAND     11                                    
009117,000948: 
009118,000949: 04,2175           33046                          CAF      OCT44571                              #  CLEAR ENABLE OPTICS ERROR COUNTER, STAR
009119,000950: 04,2176           00006                          EXTEND                                         #  TRACKERS ON BIT, TVC ENABLE, ZERO OPTICS,
009120,000951: 04,2177           03012                          WAND     12                                    #  DISENGAGE OPTICS DAP, SIVB INJ SEQUENCE
009121,000952:                                                                                                 #  START, AND SIVB CUTOFF BIT.
009122,000953: 
009123,000954: 04,2200           43047                          CS       OCT600                                #  CLEAR UNUSED BITS
009124,000955: 04,2201           00006                          EXTEND                                         
009125,000956: 04,2202           03013                          WAND     13                                    
009126,000957: 
009127,000958: 04,2203           02767                          TC       INITSUB                               
009128,000959: 
009129,000960: 04,2204           05527                          TC       CLEARMRK                              
009130,000961: 
009131,000962: 04,2205           34772                          CAF      ZERO                                  
009132,000963: 04,2206           54304                          TS       STARIND                               
009133,000964: 
009134,000965: 04,2207           05561                          TC       DOWNFLAG                              
009135,000966: 04,2210           00020                          ADRES    STIKFLAG                              
009136,000967: 
009137,000968: 04,2211           04415                          TC       UPACTOFF                              #  TURN OFF UPLINK ACTIV LIGHT
009138,000969: 
009139,000970: 04,2212           05561                          TC       DOWNFLAG                              
009140,000971: 04,2213           00037                          ADRES    R21MARK                               
009141,000972: 
009142,000973: 04,2214           11200                          CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
009143,000974: 04,2215           12352                          TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
009144,000975: 
009145,000976: 04,2216                                          COUNT*   $$/POO                                
009146,000977: 04,2216           04432        POOH              TC       RELDSP                                #  RELEASE DISPLAY SYSTEM
009147,000978: 
009148,000979: 04,2217           35047                          CAF      PRIO5                                 #  SET VARIABLE RESTART REGISTER FOR P00.
009149,000980: 04,2220           55262                          TS       PHSPRDT2                              
009150,000981: 
009151,000982: 04,2221           00004                          INHINT                                         
009152,000983:                                                                                                 # # Page 212
009153,000984: 04,2222           44770                          CS       NODOBIT                               #  TURN OFF NODOFLAG
009154,000985: 04,2223           70076                          MASK     FLAGWRD2                              
009155,000986: 04,2224           54076                          TS       FLAGWRD2                              
009156,000987: 
009157,000988: 04,2225           34773                          CA       FIVE                                  #  SET 2.5 RESTART FOR STATEINT1
009158,000989: 04,2226           54001                          TS       L                                     
009159,000990: 04,2227           40000                          COM                                            
009160,000991: 04,2230  01,2036               2P5SPT1           =        2.5SPOT                               
009161,000992: 04,2230           53160                          DXCH     -PHASE2                               
009162,000993: 
009163,000994: 04,2231           34761                          CA       IMUSEBIT                              #  RESET IMUSE AND
009164,000995: 04,2232           64762                          AD       RNDVZBIT                              #  KILL P20
009165,000996: 04,2233           40000                          COM                                            
009166,000997: 04,2234           70074                          MASK     FLAGWRD0                              
009167,000998: 04,2235           54074                          TS       FLAGWRD0                              #                          RENDFLG
009168,000999: 
009169,001000: 04,2236           44760                          CS       UTBIT                                 
009170,001001: 04,2237           70104                          MASK     FLAGWRD8                              
009171,001002: 04,2240           54104                          TS       FLAGWRD8                              
009172,001003: 
009173,001004: 04,2241           34772                          CAF      DNLADP00                              
009174,001005: 
009175,001006: 04,2242                                          COUNT*   $$/V37                                
009176,001007: 04,2242           54332        SEUDOPOO          TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST.
009177,001008:                                                                                                 #  (OLD ONE WILL BE FINISHED FIRST)
009178,001009: 
009179,001010: 04,2243           34764                          CA       TRACKBIT                              
009180,001011: 04,2244           64757                          AD       TARG1BIT                              
009181,001012: 04,2245           64762                          AD       UPDATBIT                              
009182,001013: 04,2246           40000                          COM                                            
009183,001014: 04,2247           55275                          TS       EBANKTEM                              
009184,001015: 04,2250           70075                          MASK     FLAGWRD1                              
009185,001016: 04,2251           54075                          TS       FLAGWRD1                              
009186,001017: 
009187,001018: 04,2252           44767                          CS       R67BIT                                #  CLEAR R67FLAG. P20 WILL SET IT AGAIN.
009188,001019: 04,2253           70104                          MASK     FLAGWRD8                              
009189,001020: 04,2254           54104                          TS       FLAGWRD8                              
009190,001021: 
009191,001022: 04,2255           04714        GROUPKIL          TC       IBNKCALL                              #  KILL GROUPS 3,5,6
009192,001023: 04,2256           12550                          CADR     V37KLEAN                              
009193,001024: 
009194,001025: 04,2257           11200                          CCS      MMNUMBER                              #  IS IT POOH
009195,001026: 04,2260           12270                          TCF      RENDVOO                               #  NO
009196,001027: 04,2261           04714                          TC       IBNKCALL                              
009197,001028: 04,2262           12542                          CADR     POOKLEAN                              #  REDUNDANT EXCEPT FOR GROUP 4.
009198,001029: 
009199,001030: 04,2263           03002                          TC       INITSUBA                              
009200,001031: 04,2264           31200        GOMOD             CA       MMNUMBER                              
009201,001032: 04,2265           55214                          TS       MODREG                                
009202,001033: 
009203,001034:                                                                                                 # # Page 213
009204,001035: 
009205,001036: 04,2266           04655        GOGOPROG          TC       POSTJUMP                              
009206,001037: 04,2267           13015                          CADR     GOPROG2                               
009207,001038: 
009208,001039: 04,2270           41200        RENDVOO           CS       MMNUMBER                              #  IS NEW PROG = 20
009209,001040: 04,2271           64124                          AD       OCT24                                 #  20
009210,001041: 04,2272           00006                          EXTEND                                         
009211,001042: 04,2273           12275                          BZF      RENDNOO                               #  YES
009212,001043: 04,2274           12311                          TCF      POOFIZZ                               
009213,001044: 
009214,001045: 04,2275           41200        RENDNOO           CS       MMNUMBER                              
009215,001046: 04,2276           61214                          AD       MODREG                                
009216,001047: 04,2277           00006                          EXTEND                                         
009217,001048: 04,2300           12321                          BZF      KILL20                                
009218,001049: 
009219,001050: 04,2301           30104                          CA       FLAGWRD8                              
009220,001051: 04,2302           74760                          MASK     UTBIT                                 
009221,001052: 04,2303           10000                          CCS      A                                     
009222,001053: 04,2304           12333                          TCF      STATQUO1                              
009223,001054: 
009224,001055: 04,2305           30074                          CA       FLAGWRD0                              #  IS RENDEZVOO FLAG SET
009225,001056: 04,2306           74762                          MASK     RNDVZBIT                              
009226,001057: 04,2307           10000                          CCS      A                                     
009227,001058: 04,2310           12340                          TCF      STATQUO                               
009228,001059: 
009229,001060: 04,2311           30104        POOFIZZ           CA       FLAGWRD8                              
009230,001061: 04,2312           74760                          MASK     UTBIT                                 
009231,001062: 04,2313           10000                          CCS      A                                     
009232,001063: 04,2314           12325                          TCF      KILL20     +4                         
009233,001064: 04,2315           34762                          CAF      RNDVZBIT                              
009234,001065: 04,2316           70074                          MASK     FLAGWRD0                              
009235,001066: 04,2317           10000                          CCS      A                                     
009236,001067: 04,2320           12330                          TCF      REV37                                 
009237,001068: 04,2321           00006        KILL20            EXTEND                                         #  NO, KILL GROUPS 1 + 2
009238,001069: 04,2322           34772                          DCA      NEG0                                  
009239,001070: 04,2323           53156                          DXCH     -PHASE1                               
009240,001071: 
009241,001072: 04,2324           03002                          TC       INITSUBA                              
009242,001073: 04,2325           00006                 +4       EXTEND                                         
009243,001074: 04,2326           34772                          DCA      NEG0                                  
009244,001075: 04,2327           53160                          DXCH     -PHASE2                               
009245,001076: 
009246,001077: 04,2330           33052        REV37             CAF      V37QCAD                               #  SET RESTART POINT
009247,001078: 04,2331           54373                          TS       TEMPFLSH                              
009248,001079: 
009249,001080: 04,2332           12266                          TCF      GOGOPROG                              
009250,001081: 
009251,001082: 04,2333           34773        STATQUO1          CAF      FIVE                                  #  SET 2.5 RESTART for STATEINT1
009252,001083: 04,2334           54001                          TS       L                                     
009253,001084: 04,2335  01,2036               2P5SPT2           =        2.5SPOT                               
009254,001085: 04,2335           40000                          COM                                            
009255,001086:                                                                                                 # # Page 214
009256,001087: 04,2336           53160                          DXCH     -PHASE2                               
009257,001088: 04,2337           12343                          TCF      STATQUO    +3                         
009258,001089: 04,2340           40075        STATQUO           CS       FLAGWRD1                              #  SET TRACK FLAG AND UPDATE FLAG
009259,001090: 04,2341           74762                          MASK     UPDATBIT                              
009260,001091: 04,2342           26075                          ADS      FLAGWRD1                              
009261,001092: 04,2343           40075                 +3       CS       FLAGWRD1                              
009262,001093: 04,2344           74764                          MASK     TRACKBIT                              
009263,001094: 04,2345           26075                          ADS      FLAGWRD1                              
009264,001095: 
009265,001096: 04,2346           00006                          EXTEND                                         #  KILL GROUP 4
009266,001097: 04,2347           34772                          DCA      NEG0                                  
009267,001098: 04,2350           53164                          DXCH     -PHASE4                               
009268,001099: 
009269,001100: 04,2351           12264                          TCF      GOMOD                                 
009270,001101: 
009271,001102: 04,2352           34762        NOUVEAU           CAF      RNDVZBIT                              
009272,001103: 04,2353           70074                          MASK     FLAGWRD0                              
009273,001104: 04,2354           10000                          CCS      A                                     
009274,001105: 04,2355           12364                          TCF      +7                                    
009275,001106: 04,2356           34760                          CAF      UTBIT                                 
009276,001107: 04,2357           70104                          MASK     FLAGWRD8                              
009277,001108: 04,2360           10000                          CCS      A                                     
009278,001109: 04,2361           12364                          TCF      +3                                    
009279,001110: 04,2362           05561                          TC       DOWNFLAG                              #  NO, RESET IMUSE FLAG.
009280,001111: 04,2363           00007                          ADRES    IMUSE                                 #  BIT 8 FLAG 0
009281,001112: 04,2364           51177                 +3       INDEX    MINDEX                                
009282,001113: 04,2365           33124                          CAF      PREMM1                                #  EXTRACT DOWNLIST ADDRESS
009283,001114: 04,2366           54022                          TS       CYL                                   #  SHIFT BITS 15 - 13 TO BITS 3 - 1
009284,001115: 04,2367           40022                          CS       CYL                                   
009285,001116: 04,2370           40022                          CS       CYL                                   
009286,001117: 04,2371           56022                          XCH      CYL                                   
009287,001118: 04,2372           74774                          MASK     SEVEN                                 #  KEEP DOWNLIST CODE BITS
009288,001119: 04,2373           00004                          INHINT                                         
009289,001120: 04,2374           12242                          TCF      SEUDOPOO                              
009290,001121: 
009291,001122: 04,2375           04362        V37NONO           TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST
009292,001123: 
009293,001124: 04,2376           12127                          TCF      V37BAD                                
009294,001125: 
009295,001126: 04,2000                                          SETLOC   VERB37                                #  MUST BE IN BANK 4 BECAUSE OF AUTOCHK
009296,001127: 04,2000                                          BANK                                           
009297,001128: 04,2377                                          COUNT*   $$/MNKEY                              
009298,001129: 04,2377           00051        DEC41             DEC      41         B-14                       
009299,001130: 04,2400           00114        DEC76             DEC      76         B-14                       
009300,001131: 04,2401           00064        DEC52             DEC      52         B-14                       
009301,001132: 04,2402     4124               DEC20             =        OCT24                                 
009302,001133: 04,2402     4342               DEC31             =        LOW5                                  
009303,001134: 04,2402     4763               DEC32             =        BIT6                                  
009304,001135: 04,2402     5004               DEC40             =        OCT50                                 
009305,001136: 04,2402     5003               DEC33             =        33DEC                                 
009306,001137:                                                                                                 # # Page 215
009307,001138: 04,2402     4260               DEC34             =        34DEC                                 
009308,001139: 04,2402           00044        DEC36             DEC      36         B-14                       
009309,001140: 04,2403           00043        DEC35             DEC      35         B-14                       
009310,001141: 04,2404           00117        DEC79             DEC      79         B-14                       
009311,001142: 04,2405  04,3770               NEG6              =        DEC-6                                 
009312,001143: 04,2405           00126        DEC86             DEC      86         B-14                       
009313,001144: 04,2406           77741        NEG30             DEC      -30        B-14                       
009314,001145: 04,2407     5011               DEC50             =        OCT62                                 
009315,001146: 04,2407     4777               CKLSTAUT          =        LOW4                                  
009316,001147: 04,2407           62405        REND30S           AD       DEC86                                 #  CHANGE P3X to P8X
009317,001148: 04,2410           55113                 +1       TS       TEMPMM                                #         AND SAVE
009318,001149: 04,2411           34760                          CAF      UTBIT                                 
009319,001150: 04,2412           70104                          MASK     FLAGWRD8                              
009320,001151: 04,2413           00006                          EXTEND                                         
009321,001152: 04,2414           12421                          BZF      UTOFF                                 
009322,001153: 
009323,001154: 04,2415           05561                          TC       DOWNFLAG                              
009324,001155: 04,2416           00031                          ADRES    TRACKFLG                              
009325,001156: 
009326,001157: 04,2417           05561                          TC       DOWNFLAG                              
009327,001158: 04,2420           00176                          ADRES    UTFLAG                                
009328,001159: 
009329,001160: 04,2421           40074        UTOFF             CS       FLAGWRD0                              #  HAS P20 BEEN ON
009330,001161: 04,2422           74762                          MASK     RNDVZBIT                              
009331,001162: 04,2423           00006                          EXTEND                                         
009332,001163: 04,2424           12431                          BZF      NOP20                                 #  YES
009333,001164: 04,2425           05547                          TC       UPFLAG                                
009334,001165: 04,2426           00236                          ADRES    AUTOSEQ                               #  SET TO CAUSE RETURN FROM P20
009335,001166: 
009336,001167: 04,2427           34124                          CAF      DEC20                                 #  NO - TURN ON P20
009337,001168: 04,2430           02507                          TC       AUTOSET                               
009338,001169: 04,2431           31113        NOP20             CA       TEMPMM                                
009339,001170: 04,2432           55200        AUTOSETA          TS       MMNUMBER                              
009340,001171: 04,2433           02044                          TC       AUTO37                                
009341,001172: 04,2434           30002        MINKDISP          CA       Q                                     
009342,001173: 04,2435           55012                          TS       AUTPOINT                              
009343,001174: 04,2436           45011                          CS       DEC50                                 
009344,001175: 04,2437           61200                          AD       MMNUMBER                              
009345,001176: 04,2440           05347                          TC       NEWMODEA                              #  CHANGE MAJOR MODE TO 30'S
009346,001177: 04,2441           04432                          TC       RELDSP                                
009347,001178: 04,2442           34777                          CAF      CKLSTAUT                              
009348,001179: 04,2443           04636                          TC       BANKCALL                              
009349,001180: 04,2444           21067                          CADR     GOPERF1                               
009350,001181: 04,2445           14103                          TCF      GOTOPOOH                              
009351,001182: 04,2446           02452                          TC       STARTAUT                              #  PRO - DO MINKEY
009352,001183: 04,2447           05561                          TC       DOWNFLAG                              #  ENTER - NO MINKEY
009353,001184: 04,2450           00236                          ADRES    AUTOSEQ                               
009354,001185: 04,2451           01012                          TC       AUTPOINT                              
009355,001186: 04,2452           30107        STARTAUT          CA       FLGWRD11                              #  INITIALIZE MINKEY
009356,001187: 04,2453           74761                          MASK     AZIMBIT                               
009357,001188:                                                                                                 # # Page 216
009358,001189: 04,2454           10000                          CCS      A                                     
009359,001190: 04,2455           12470                          TCF      STRTAUT1                              
009360,001191: 04,2456           05547                          TC       UPFLAG                                
009361,001192: 04,2457           00254                          ADRES    AZIMFLAG                              
009362,001193: 04,2460           22007                          ZL                                             
009363,001194: 04,2461           40106                          CS       FLGWRD10                              
009364,001195: 04,2462           74756                          MASK     HDSUPBIT                              
009365,001196: 04,2463           00006                          EXTEND                                         
009366,001197: 04,2464           12467                          BZF      +3                                    
009367,001198: 04,2465           00006                          EXTEND                                         
009368,001199: 04,2466           33760                          DCA      XUNIT                                 
009369,001200: 04,2467           53353                          DXCH     AZIMANGL                              
009370,001201: 04,2470           40101        STRTAUT1          CS       FLAGWRD5                              
009371,001202: 04,2471           74770                          MASK     RENDWBIT                              
009372,001203: 04,2472           00006                          EXTEND                                         
009373,001204: 04,2473           12500                          BZF      +5                                    #  YES
009374,001205: 04,2474           05547                          TC       UPFLAG                                #  NO
009375,001206: 04,2475           00240                          ADRES    MANEUFLG                              
009376,001207: 04,2476           05547                          TC       UPFLAG                                
009377,001208: 04,2477           00241                          ADRES    PTV93FLG                              
009378,001209: 04,2500           05547                          TC       UPFLAG                                
009379,001210: 04,2501           00215                          ADRES    VHFRFLAG                              #  EQUIVALENT TO A V87
009380,001211: 
009381,001212: 04,2502           05561                          TC       DOWNFLAG                              
009382,001213: 04,2503           00244                          ADRES    PCFLAG                                
009383,001214: 04,2504           05547                          TC       UPFLAG                                
009384,001215: 04,2505           00236                          ADRES    AUTOSEQ                               
009385,001216: 
009386,001217: 04,2506           01012                          TC       AUTPOINT                              
009387,001218: 04,2507           00006        AUTOSET           EXTEND                                         
009388,001219: 04,2510           23356                          QXCH     AUTTEMP                               
009389,001220: 04,2511           55200                 +2       TS       MMNUMBER                              
009390,001221: 04,2512           05402                          TC       PHASCHNG                              
009391,001222: 04,2513           04024                          OCT      04024                                 
009392,001223: 
009393,001224: 04,2514           31356                          CA       AUTTEMP                               
009394,001225: 04,2515           55012                          TS       AUTPOINT                              
009395,001226: 
009396,001227: 04,2516           02044                          TC       AUTO37                                
009397,001228: 
009398,001229: 04,2517           00006        BURNHOW           EXTEND                                         
009399,001230: 04,2520           23356                          QXCH     AUTTEMP                               
009400,001231: 04,2521           06006                          TC       INTPRET                               
009401,001232: 04,2522           51575                          VLOAD    ABVAL                                 
009402,001233: 04,2523           03405                                   DELVLVC                               
009403,001234: 04,2524           51025                          DSU      BPL                                   
009404,001235: 04,2525           10536                                   DV40/41                               #  THRESHOLD DELTA V FOR SPS BURN
009405,001236: 04,2526           10532                                   P40BURN                               
009406,001237: 04,2527           77776                          EXIT                                           
009407,001238: 04,2530           32377                          CAF      DEC41                                 #  CALL P41
009408,001239: 
009409,001240:                                                                                                 # # Page 217
009410,001241: 
009411,001242: 04,2531           02511                          TC       AUTOSET    +2                         
009412,001243: 04,2532           77776        P40BURN           EXIT                                           
009413,001244: 04,2533           35004                          CAF      DEC40                                 #  CALL P40
009414,001245: 04,2534           02511                          TC       AUTOSET    +2                         
009415,001246: 04,2535           00002 27311  DV40/41           2DEC     .021336    B-7                        #  7 PPS IN M/CS B-7
009416,001247: 
009417,001248: 04,2537           02434        P81               TC       MINKDISP                              
009418,001249: 04,2540           34342        P81CONT1          CAF      DEC31                                 
009419,001250: 04,2541           02507                          TC       AUTOSET                               
009420,001251: 04,2542           02517                          TC       BURNHOW                               
009421,001252: 04,2543           02724                          TC       AFTERBRN                              
009422,001253: 04,2544           12546                          TCF      P82CONT1                              
009423,001254: 04,2545           02434        P82               TC       MINKDISP                              
009424,001255: 04,2546           05561        P82CONT1          TC       DOWNFLAG                              
009425,001256: 04,2547           00256                          ADRES    CSISFLAG                              
009426,001257: 04,2550           34763        P82CONT2          CAF      DEC32                                 
009427,001258: 04,2551           02507                          TC       AUTOSET                               
009428,001259: 04,2552           02517                          TC       BURNHOW                               
009429,001260: 04,2553           02724                          TC       AFTERBRN                              
009430,001261: 04,2554  E7,1765                                 EBANK=   NN                                    
009431,001262: 04,2554           35046                          CAF      EBANK7                                
009432,001263: 04,2555           54003                          TS       EBANK                                 
009433,001264: 04,2556           31765                          CA       NN                                    
009434,001265: 04,2557           67701                          AD       NEG2                                  
009435,001266: 04,2560           55414                          TS       RTARG                                 
009436,001267: 
009437,001268: 04,2561           05402                          TC       PHASCHNG                              
009438,001269: 04,2562           04024                          OCT      04024                                 
009439,001270: 
009440,001271: 04,2563           31414                          CA       RTARG                                 
009441,001272: 04,2564           55765                          TS       NN                                    
009442,001273: 04,2565           67701                          AD       NEG2                                  
009443,001274: 04,2566           40000                          COM                                            
009444,001275: 04,2567           00006                          EXTEND                                         
009445,001276: 04,2570           62572                          BZMF     +2                                    #  N = 2 OR GREATER
009446,001277: 04,2571           12607                          TCF      P86CONT1                              #  N = 1
009447,001278: 04,2572           05547                          TC       UPFLAG                                
009448,001279: 04,2573           00256                          ADRES    CSISFLAG                              
009449,001280: 04,2574           06006                          TC       INTPRET                               
009450,001281: 04,2575           77745                          DLOAD                                          
009451,001282: 04,2576           02351                                   TCSI2                                 
009452,001283: 04,2577           02463                          STORE    TCSI                                  
009453,001284: 04,2600           77776                          EXIT                                           
009454,001285: 04,2601           31765                          CA       NN                                    
009455,001286: 04,2602           67701                          AD       NEG2                                  
009456,001287: 04,2603           00006                          EXTEND                                         
009457,001288: 04,2604           62540                          BZMF     P81CONT1                              #  N = 2 HAM
009458,001289: 04,2605           02546                          TC       P82CONT1                              #  MULTIPLE CSIS
009459,001290: 04,2606           02434        P86               TC       MINKDISP                              
009460,001291: 04,2607           32402        P86CONT1          CAF      DEC36                                 
009461,001292:                                                                                                 # # Page 218
009462,001293: 04,2610           02507                          TC       AUTOSET                               
009463,001294: 04,2611           06006                          TC       INTPRET                               
009464,001295: 04,2612           51575                          VLOAD    ABVAL                                 
009465,001296: 04,2613           03405                                   DELVLVC                               
009466,001297: 04,2614           77454                          BZE      EXIT                                  
009467,001298: 04,2615           10642                                   NOPC                                  
009468,001299: 04,2616           32401                          CAF      DEC52                                 
009469,001300: 04,2617           02507                          TC       AUTOSET                               
009470,001301: 04,2620           40106                          CS       FLGWRD10                              
009471,001302: 04,2621           74770                          MASK     PCBIT                                 
009472,001303: 04,2622           00006                          EXTEND                                         
009473,001304: 04,2623           12637                          BZF      DOP41                                 #  PULSE TORQUING NOT DONE - CALL P41
009474,001305: 04,2624           02517                          TC       BURNHOW                               #  P40 OR P41
009475,001306: 04,2625           02724                          TC       AFTERBRN                              
009476,001307: 04,2626           05547        P86CONT2          TC       UPFLAG                                
009477,001308: 04,2627           00226                          ADRES    PCMANFLG                              
009478,001309: 04,2630           34124                          CAF      DEC20                                 #  MANEUVER TO TRACK ATTITUDE
009479,001310: 04,2631           02507                          TC       AUTOSET                               
009480,001311: 04,2632           05561                          TC       DOWNFLAG                              
009481,001312: 04,2633           00226                          ADRES    PCMANFLG                              
009482,001313: 04,2634           32401                          CAF      DEC52                                 
009483,001314: 04,2635           02507                          TC       AUTOSET                               
009484,001315: 04,2636           02647                          TC       P83CONT1                              
009485,001316: 04,2637           32377        DOP41             CAF      DEC41                                 
009486,001317: 04,2640           02507                          TC       AUTOSET                               
009487,001318: 04,2641           02644                          TC       PCP76                                 
009488,001319: 04,2642           77414        NOPC              SET      EXIT                                  
009489,001320: 04,2643           05065                                   BURNFLAG                              
009490,001321: 04,2644           02724        PCP76             TC       AFTERBRN                              
009491,001322: 04,2645           02647                          TC       P83CONT1                              
009492,001323: 04,2646           02434        P83               TC       MINKDISP                              
009493,001324: 04,2647           35003        P83CONT1          CAF      DEC33                                 
009494,001325: 04,2650           02507                          TC       AUTOSET                               
009495,001326: 04,2651           02517                          TC       BURNHOW                               
009496,001327: 04,2652           05547                          TC       UPFLAG                                #  SET TO INDICATE PASSIVE CDH
009497,001328: 04,2653           00050                          ADRES    AVFLAG                                
009498,001329: 04,2654           02724                          TC       AFTERBRN                              
009499,001330: 04,2655           12657                          TCF      P84CONT1                              
009500,001331: 04,2656           02434        P84               TC       MINKDISP                              
009501,001332: 04,2657           34260        P84CONT1          CAF      DEC34                                 
009502,001333: 04,2660           02507                          TC       AUTOSET                               
009503,001334: 04,2661           02517                          TC       BURNHOW                               
009504,001335: 04,2662           02724                          TC       AFTERBRN                              
009505,001336: 04,2663           12665                          TCF      P85CONT1                              
009506,001337: 04,2664           02434        P85               TC       MINKDISP                              
009507,001338: 04,2665           32403        P85CONT1          CAF      DEC35                                 
009508,001339: 04,2666           02507                          TC       AUTOSET                               
009509,001340: 04,2667           02517                          TC       BURNHOW                               
009510,001341: 04,2670           02724                          TC       AFTERBRN                              
009511,001342: 04,2671           32403        P89CONT1          CAF      DEC35                                 
009512,001343:                                                                                                 # # Page 219
009513,001344: 04,2672           02507                          TC       AUTOSET                               
009514,001345: 04,2673           02517                          TC       BURNHOW                               
009515,001346: 04,2674           02724                          TC       AFTERBRN                              
009516,001347: 04,2675           32404                          CAF      DEC79                                 
009517,001348: 04,2676           02432                          TC       AUTOSETA                              
009518,001349: 04,2677                                          COUNT*   $$/P79                                
009519,001350: 04,2677           05547        P79               TC       UPFLAG                                
009520,001351: 04,2700           00226                          ADRES    PCMANFLG                              #  FORCE P20 TO EXIT AFTER MANEUVER
009521,001352: 
009522,001353: 04,2701           05547                          TC       UPFLAG                                
009523,001354: 04,2702           00031                          ADRES    TRACKFLG                              
009524,001355: 
009525,001356: 04,2703           34772                          CAF      ZERO                                  
009526,001357: 04,2704           54001                          TS       L                                     
009527,001358: 04,2705           53740                          DXCH     UTPIT                                 
009528,001359: 
009529,001360: 04,2706           32715                          CAF      P79LOCRT                              
009530,001361: 04,2707           55012                          TS       AUTPOINT                              
009531,001362: 04,2710           12452                          TCF      STARTAUT                              
009532,001363: 04,2711           32714        P791              CAF      P79LOC                                
009533,001364: 04,2712           55012                          TS       AUTPOINT                              
009534,001365: 
009535,001366: 04,2713           05205                          TC       ENDOFJOB                              
009536,001367: 04,2714           02716        P79LOC            ADRES    P79A                                  
009537,001368: 
009538,001369: 04,2715           02711        P79LOCRT          ADRES    P791                                  
009539,001370: 
009540,001371: 04,2716           35047        P79A              CAF      PRIO5                                 
009541,001372: 04,2717           05135                          TC       FINDVAC                               
009542,001373: 04,2720  E4,1760                                 EBANK=   SUBEXIT                               
009543,001374: 04,2720           02564 66104                    2CADR    V83PERF                               
009544,001375: 
009545,001376: 04,2722           04655                          TC       POSTJUMP                              #  RETURN TO P20 FOR TRACKING
009546,001377: 04,2723           74207                          CADR     P20TRACK                              
009547,001378: 04,2724                                          COUNT*   $$/MNKEY                              
009548,001379: 04,2724           00006        AFTERBRN          EXTEND                                         
009549,001380: 04,2725           23356                          QXCH     AUTTEMP                               
009550,001381: 04,2726           35051                          CAF      PRIO7                                 
009551,001382: 04,2727           05135                          TC       FINDVAC                               
009552,001383: 04,2730  0003777                                 EBANK=   WHOCARES                              
009553,001384: 04,2730           02000 56067                    2CADR    HARTBURN                              
009554,001385: 
009555,001386: 04,2732           05205                          TC       ENDOFJOB                              
009556,001387: 04,2733           77776        TIG76             EXIT                                           
009557,001388: 04,2734           32400                          CAF      DEC76                                 #  CALL P76
009558,001389: 04,2735           02511                          TC       AUTOSET    +2                         
009559,001390: 27,2000                                          SETLOC   JANESUB                               
009560,001391: 27,2000                                          BANK                                           
009561,001392: 27,2000                                          COUNT*   $$/MNKEY                              
009562,001393: 27,2000           06006        HARTBURN          TC       INTPRET                               
009563,001394:                                                                                                 # # Page 220
009564,001395: 27,2001           77201                          SETPD    VLOAD                                 
009565,001396: 27,2002           00001                                   0                                     
009566,001397: 27,2003           15336                                   ZEROVECS                              
009567,001398: 27,2004           77614                          BON                                            
009568,001399: 27,2005           05305                                   BURNFLAG                              
009569,001400: 27,2006           56042                                   GOP76                                 
009570,001401: 27,2007           77214                          BOFF     VLOAD                                 
009571,001402: 27,2010           05354                                   TPIMNFLG                              
009572,001403: 27,2011           56044                                   NOTTPI                                
009573,001404: 27,2012           03554                                   RPASS3                                
009574,001405: 27,2013           26561                          STOVL    BURNTMP2                              
009575,001406: 27,2014           03540                                   RACT3                                 
009576,001407: 27,2015           26553                          STOVL    BURNTMP1                              
009577,001408: 27,2016           03546                                   VACT3                                 
009578,001409: 27,2017           26567                          STOVL    BURNTMP3                              
009579,001410: 27,2020           03562                                   VPASS3                                
009580,001411: 27,2021           02575                          STORE    BURNTMP4                              
009581,001412: 27,2022           77776                          EXIT                                           
009582,001413: 27,2023           05402                          TC       PHASCHNG                              
009583,001414: 27,2024           04024                          OCT      04024                                 
009584,001415: 
009585,001416: 27,2025           06006                          TC       INTPRET                               
009586,001417: 27,2026           77775                          VLOAD                                          
009587,001418: 27,2027           02567                                   BURNTMP3                              
009588,001419: 27,2030           27562                          STOVL    VPASS3                                
009589,001420: 27,2031           02561                                   BURNTMP2                              
009590,001421: 27,2032           27540                          STOVL    RACT3                                 
009591,001422: 27,2033           02553                                   BURNTMP1                              
009592,001423: 27,2034           27554                          STOVL    RPASS3                                
009593,001424: 27,2035           02575                                   BURNTMP4                              
009594,001425: 27,2036           37546                          STCALL   VACT3                                 
009595,001426: 27,2037           74000                                   S34/35.1                              
009596,001427: 27,2040           77624                          CALL                                           
009597,001428: 27,2041           72561                                   S34/35.2                              #  COMPUTE DV(LV)
009598,001429: 27,2042           37540        GOP76             STCALL   DELVOV                                
009599,001430: 27,2043           10733                                   TIG76                                 
009600,001431: 27,2044           71214        NOTTPI            BOFF     DLOAD                                 
009601,001432: 27,2045           01352                                   AVFLAG                                
009602,001433: 27,2046           56066                                   NOTCDH                                
009603,001434: 27,2047           03450                                   NOMTIG                                
009604,001435: 27,2050           77624                          CALL                                           
009605,001436: 27,2051           76560                                   ADVANCE                               
009606,001437: 27,2052           77624                          CALL                                           
009607,001438: 27,2053           56674                                   CDHMVR                                
009608,001439: 27,2054           77624                          CALL                                           
009609,001440: 27,2055           32050                                   S32/33.X                              
009610,001441: 27,2056           64375                          VLOAD    MXV                                   
009611,001442: 27,2057           03667                                   DELVEET2                              
009612,001443: 27,2060           00001                                   0D                                    
009613,001444: 27,2061           77772                          VSL1                                           
009614,001445:                                                                                                 # # Page 221
009615,001446: 27,2062           17540                          STODL    DELVOV                                
009616,001447: 27,2063           02603                                   CMYDOT                                
009617,001448: 27,2064           77650                          GOTO                                           
009618,001449: 27,2065           56072                                   STORDV                                
009619,001450: 27,2066           57575        NOTCDH            VLOAD    VCOMP                                 
009620,001451: 27,2067           03405                                   DELVLVC                               
009621,001452: 27,2070           17540                          STODL    DELVOV                                
009622,001453: 27,2071           02605                                   LMYDOT                                
009623,001454: 27,2072           37542        STORDV            STCALL   DELVOV     +2                         
009624,001455: 27,2073           10733                                   TIG76                                 
009625,001456: 27,2074  30,2000                                 SBANK=   LOWSUPER                              
009626,001457: 04,2000                                          SETLOC   VERB37                                
009627,001458: 04,2000                                          BANK                                           
009628,001459: 
009629,001460: 04,2736                                          COUNT*   $$/V37                                
009630,001461: 04,2736     4765               OCT00010          EQUALS   BIT4                                  
009631,001462: 04,2736           00004        V37XEQ            INHINT                                         
009632,001463: 04,2737           35052                          CAF      PRIO13                                
009633,001464: 04,2740           55266                          TS       PHSPRDT4                              #  PRESTART GROUP4 RESTART PRIORITY
009634,001465: 04,2741           54063        V37XEQ+3          TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
009635,001466: 04,2742           51177                          INDEX    MINDEX                                
009636,001467: 04,2743           33124                          CAF      PREMM1                                
009637,001468: 04,2744           55264                          TS       MMTEMP                                #  OBTAIN PRIORITY BITS 15 - 11
009638,001469: 04,2745           00006                          EXTEND                                         
009639,001470: 04,2746           74761                          MP       BIT8                                  
009640,001471: 04,2747           74774                          MASK     LOW3                                  
009641,001472: 04,2750           54001                          TS       L                                     
009642,001473: 04,2751           51177                          INDEX    MINDEX                                
009643,001474: 04,2752           33055                          CAF      FCADRMM1                              
009644,001475: 04,2753           55265                          TS       BASETEMP                              
009645,001476: 04,2754           74344                          MASK     HI5                                   
009646,001477: 04,2755           26001                          ADS      L                                     
009647,001478: 
009648,001479: 04,2756           31265                          CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
009649,001480: 04,2757           75041                          MASK     LOW10                                 
009650,001481: 04,2760           64756                          AD       BIT11                                 
009651,001482: 
009652,001483: 04,2761           05146                          TC       SPVAC                                 
009653,001484: 
009654,001485: 04,2762           31264        V37XEQC           CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
009655,001486: 04,2763           76043                          MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
009656,001487: 04,2764           05347                          TC       NEWMODEA                              #  PHSBRDT1)
009657,001488: 
009658,001489: 04,2765           04432                          TC       RELDSP                                #  RELEASE DISPLAY
009659,001490: 04,2766           05205                          TC       ENDOFJOB                              #  AND EXIT
009660,001491: 
009661,001492: 04,2767           00004        INITSUB           INHINT                                         
009662,001493: 04,2770           34775                          CAF      ELEVEN                                #  CLEAR INDICATED FLAG BITS
009663,001494: 04,2771           54154        RAKE              TS       MPAC                                  #  LOOP STARTS HERE
009664,001495:                                                                                                 # # Page 222
009665,001496: 04,2772           50154                          INDEX    MPAC                                  
009666,001497: 04,2773           43032                          CS       FLAGTABL                              
009667,001498: 04,2774           50154                          INDEX    MPAC                                  
009668,001499: 04,2775           70074                          MASK     FLAGWRD0                              
009669,001500: 04,2776           50154                          INDEX    MPAC                                  #  RESTORE REVISED FLAGWORD
009670,001501: 04,2777           54074                          TS       FLAGWRD0                              
009671,001502: 
009672,001503: 04,3000           10154                          CCS      MPAC                                  
009673,001504: 04,3001           12771                          TCF      RAKE                                  
009674,001505: 
009675,001506: 04,3002           00006        INITSUBA          EXTEND                                         
009676,001507: 04,3003           22155                          QXCH     MPAC       +1                         
009677,001508: 
009678,001509: 04,3004           00004                          INHINT                                         
009679,001510: 04,3005           34764                          CAF      TRACKBIT                              #  BYPASS IF TRACKFLG ON
009680,001511: 04,3006           70075                          MASK     FLAGWRD1                              
009681,001512: 04,3007           10000                          CCS      A                                     
009682,001513: 04,3010           13024                          TCF      INITRET                               
009683,001514: 04,3011           04611                          TC       E6SETTER                              #  FOR DB CODE.. STARTSB2 WILL RESET.
009684,001515: 04,3012           04463                          TC       STOPRATE                              
009685,001516: 
009686,001517: 04,3013           30105                          CA       FLAGWRD9                              #  RESTORE DEADBAND
009687,001518: 04,3014           74755                          MASK     MAXDBBIT                              
009688,001519: 04,3015           10000                          CCS      A                                     
009689,001520: 04,3016           13022                          TCF      SETMAXER                              #  MAX DB SELECTED
009690,001521: 04,3017           04636                          TC       BANKCALL                              #  MIN DB SELECTED
009691,001522: 04,3020           51203                          CADR     SETMINDB                              
009692,001523: 04,3021           13024                          TCF      INITRET                               
009693,001524: 
009694,001525: 04,3022           04636        SETMAXER          TC       BANKCALL                              
009695,001526: 04,3023           51217                          CADR     SETMAXDB                              
009696,001527: 
009697,001528: 04,3024           00003        INITRET           RELINT                                         
009698,001529: 04,3025           37702                          CA       NEGONE                                
009699,001530: 04,3026           55323                          TS       OPTIND                                
009700,001531: 04,3027           00155                          TC       MPAC       +1                         #  RETURN FROM INITSUB
009701,001532: 
009702,001533: 04,3030           03002        INITSUBB          TC       INITSUBA                              #  ENTRANCE USED BY RTB CALL FROM V56
009703,001534: 04,3031           06030                          TC       DANZIG                                
009704,001535: 
009705,001536: 04,3032           00001        FLAGTABL          OCT      1                                     #  P29FLAG
009706,001537: 04,3033           00040                          OCT      40                                    #  IDLEFAIL
009707,001538: 04,3034           06400                          OCT      06400                                 #  P21FLAG,STEERSW,IMPULSW
009708,001539: 04,3035           20400                          OCT      20400                                 #  GLOKFAIL, POOFLAG
009709,001540: 04,3036           00000                          OCT      0                                     
009710,001541: 04,3037           05100                          OCT      05100                                 #  V59FLAG,NEWTFLAG,ENGONFLG
009711,001542: 04,3040           10000                          OCT      10000                                 #  STRULLSW
009712,001543: 04,3041           16000                          OCT      16000                                 #  IGNFLAG,ASTNFLAG,TIMRFLAG
009713,001544: 04,3042           00000                          OCT      0                                     
009714,001545: 04,3043           42000                          OCT      42000                                 #  SWTOVER,V94FLAG
009715,001546:                                                                                                 # # Page 223
009716,001547: 04,3044           00000                          OCT      0                                     
009717,001548: 04,3045           00000                          OCT      0                                     
009718,001549: 
009719,001550: 20,2000                                          SETLOC   VAC5LOC                               
009720,001551: 20,2000                                          BANK                                           
009721,001552: 20,2000                                          COUNT*   $$/START                              
009722,001553: 20,2000           34772        VAC5STOR          CA       ZERO                                  #  INITIALIZE INDEX REGISTERS
009723,001554: 20,2001           54061                          TS       ITEMP1                                
009724,001555: 20,2002           54062                          TS       ITEMP2                                
009725,001556: 
009726,001557: 20,2003           00006        V5LOOP1           EXTEND                                         #  LOOP TO STORE LOCS, BANKSETS, AND PRIOS.
009727,001558: 20,2004           50061                          INDEX    ITEMP1                                
009728,001559: 20,2005           30165                          DCA      LOC                                   
009729,001560: 20,2006           50062                          INDEX    ITEMP2                                
009730,001561: 20,2007           52662                          DXCH     VAC5                                  
009731,001562: 
009732,001563: 20,2010           50061                          INDEX    ITEMP1                                
009733,001564: 20,2011           30167                          CA       PRIORITY                              
009734,001565: 20,2012           50062                          INDEX    ITEMP2                                
009735,001566: 20,2013           54663                          TS       VAC5       +2                         
009736,001567: 
009737,001568: 20,2014           40062                          CS       ITEMP2                                #  HAVE WE STORED THEM ALL?
009738,001569: 20,2015           65000                          AD       EIGHTEEN                              
009739,001570: 20,2016           00006                          EXTEND                                         
009740,001571: 20,2017           12025                          BZF      V5OUT1                                #  YES, GET PHASE INFORMATION.
009741,001572: 
009742,001573: 20,2020           35775                          CA       TWELVE                                #  NO, INCREMENT INDEXES AND LOOP.
009743,001574: 20,2021           26061                          ADS      ITEMP1                                
009744,001575: 20,2022           36214                          CA       THREE                                 
009745,001576: 20,2023           26062                          ADS      ITEMP2                                
009746,001577: 20,2024           12003                          TCF      V5LOOP1                               
009747,001578: 
009748,001579: 20,2025  E3,1436                                 EBANK=   PHSNAME1                              
009749,001580: 20,2025           35024        V5OUT1            CA       EBANK3                                #  PHSNAME REGISTERS ARE IN EBANK3.
009750,001581: 20,2026           54003                          TS       EBANK                                 
009751,001582: 
009752,001583: 20,2027           34775                          CA       ELEVEN                                #  GET PHASE 2CADRS.
009753,001584: 20,2030           05607                          TC       GENTRAN                               
009754,001585: 20,2031           01436                          ADRES    PHSNAME1                              
009755,001586: 20,2032           00706                          ADRES    VAC5       +21D                       
009756,001587: 
009757,001588: 20,2033           34772                          CA       ZERO                                  #  NOW INITIALIZE INDEXES AGAIN.
009758,001589: 20,2034           54061                          TS       ITEMP1                                
009759,001590: 20,2035           54062                          TS       ITEMP2                                
009760,001591: 
009761,001592: 20,2036           50061        V5LOOP2           INDEX    ITEMP1                                #  LOOP TO GET PHASE TABLES.
009762,001593: 20,2037           31156                          CA       PHASE1                                
009763,001594: 20,2040           50062                          INDEX    ITEMP2                                
009764,001595: 20,2041           54722                          TS       VAC5       +33D                       
009765,001596:                                                                                                 # # Page 224
009766,001597: 20,2042           40062                          CS       ITEMP2                                #  DO WE HAVE THEM ALL?
009767,001598: 20,2043           64773                          AD       FIVE                                  
009768,001599: 20,2044           00006                          EXTEND                                         
009769,001600: 20,2045           12052                          BZF      V5OUT2                                #  YES, GO FINISH UP.
009770,001601: 
009771,001602: 20,2046           34767                          CA       TWO                                   #  NO, INCREMENT INDEXES AND LOOP.
009772,001603: 20,2047           26061                          ADS      ITEMP1                                
009773,001604: 20,2050           24062                          INCR     ITEMP2                                
009774,001605: 20,2051           12036                          TCF      V5LOOP2                               
009775,001606: 
009776,001607: 20,2052           30157        V5OUT2            CA       MPAC       +3                         
009777,001608: 20,2053           54730                          TS       VAC5       +39D                       
009778,001609: 
009779,001610: 20,2054           00006                          EXTEND                                         
009780,001611: 20,2055           30066                          DCA      NEWLOC                                
009781,001612: 20,2056           52732                          DXCH     VAC5       +40D                       
009782,001613: 
009783,001614: 20,2057           30067                          CA       NEWJOB                                
009784,001615: 20,2060           54707                          TS       VAC5       +22D                       
009785,001616: 
009786,001617: 20,2061           30063                          CA       NEWPRIO                               
009787,001618: 20,2062           54713                          TS       VAC5       +26D                       
009788,001619: 
009789,001620: 20,2063           04651                          TC       SWRETURN                              
009790,001621: 
009791,001622: 20,2064     5000               EIGHTEEN          EQUALS   OCT22                                 
009792,001623: 04,2000                                          SETLOC   VERB37                                
009793,001624: 04,2000                                          BANK                                           
009794,001625: 
009795,001626: 04,3046                                          COUNT*   $$/V37                                
009796,001627: 04,3046     5736               NEG7              EQUALS   OCT77770                              
009797,001628: 
009798,001629: 04,3046           44571        OCT44571          OCT      44571                                 #  CONSTANTS TO CLEAR CHANNEL BITS IN V37
009799,001630: 04,3047           00600        OCT600            OCT      600                                   
009800,001631: 04,3050           00300        BIT7-8            OCT      300                                   
009801,001632: 04,3051           01120        OCT01120          OCT      01120                                 
009802,001633: 
009803,001634: 04,3052           10741        V37QCAD           CADR     V37XEQ+3                              
009804,001635: 04,3053           10171        ROOAD             CADR     DUMMYAD                               
009805,001636: 04,3054           37312        3.1SEC            OCT      37312                                 #  2.5 + 0.6 SEC
009806,001637: 
009807,001638:                                                                                                 #  FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
009808,001639:                                                                                                 #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
009809,001640:                                                                                                 #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
009810,001641:                                                                                                 #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
009811,001642: 
009812,001643:                                                                                                 #  THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
009813,001644:                                                                                                 #  THE MAJOR MODE.  FOR EXAMPLE,
009814,001645: 
009815,001646:                                                                                                 #         FCADRMM1        FCADR   P79             # START OF P 79
009816,001647:                                                                                                 # # Page 225
009817,001648:                                                                                                 #                         FCADR   PROG18          # START OF P 18
009818,001649:                                                                                                 #                         FCADR   P01             # START OF P 01
009819,001650: 
009820,001651: 04,3055                        FCADRMM1          EQUALS                                         
009821,001652: 04,3055           10606                          FCADR    P86                                   
009822,001653: 04,3056           10664                          FCADR    P85                                   
009823,001654: 04,3057           10656                          FCADR    P84                                   
009824,001655: 04,3060           10646                          FCADR    P83                                   
009825,001656: 04,3061           10545                          FCADR    P82                                   
009826,001657: 04,3062           10537                          FCADR    P81                                   
009827,001658: 04,3063           10677                          FCADR    P79                                   
009828,001659: 04,3064           26071                          FCADR    P76ER77                               
009829,001660: 04,3065           26071                          FCADR    P76ER77                               
009830,001661: 04,3066           72212                          FCADR    P75                                   
009831,001662: 04,3067           72002                          FCADR    P74                                   
009832,001663: 04,3070           11575                          FCADR    P73                                   
009833,001664: 04,3071           11405                          FCADR    P72                                   
009834,001665: 04,3072           54321                          FCADR    P62                                   
009835,001666: 04,3073           54234                          FCADR    P61                                   
009836,001667: 04,3074           30002                          FCADR    P54                                   
009837,001668: 04,3075           31414                          FCADR    P53                                   
009838,001669: 04,3076           30002                          FCADR    PROG52                                
009839,001670: 04,3077           31414                          FCADR    P51                                   
009840,001671: 04,3100           51662                          FCADR    P47CSM                                
009841,001672: 04,3101           51563                          FCADR    P41CSM                                
009842,001673: 04,3102           50214                          FCADR    P40CSM                                
009843,001674: 04,3103           74476                          FCADR    P37                                   
009844,001675: 04,3104           45334                          FCADR    P36                                   
009845,001676: 04,3105           72206                          FCADR    P35                                   
009846,001677: 04,3106           72000                          FCADR    P34                                   
009847,001678: 04,3107           11573                          FCADR    P33                                   
009848,001679: 04,3110           11403                          FCADR    P32                                   
009849,001680: 04,3111           11303                          FCADR    P31                                   
009850,001681: 04,3112           73433                          FCADR    P30                                   
009851,001682: 04,3113           60000                          FCADR    P29                                   
009852,001683: 04,3114           26254                          FCADR    PROG24                                
009853,001684: 04,3115           62444                          FCADR    P23                                   
009854,001685: 04,3116           60153                          FCADR    PROG22                                
009855,001686: 04,3117           76000                          FCADR    PROG21                                
009856,001687: 04,3120           74016                          FCADR    PROG20                                
009857,001688: 04,3121           67455                          FCADR    P15JOB                                
009858,001689: 04,3122           55654                          FCADR    P06                                   
009859,001690: 04,3123           66001                          FCADR    GTSCPSS1                              #  GYROCOMPASS STANDARD LEAD IN.
009860,001691: 
009861,001692:                                                                                                 #  THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND DOWNLINK INFO.
009862,001693:                                                                                                 #  IT IS IN THE FOLLOWING FORMAT
009863,001694:                                                                                                 #         DDD 00E EEM MMM MMM
009864,001695:                                                                                                 #  WHERE THE      7 M BITS CONTAIN THE MAJOR MODE NUMBER
009865,001696:                                                                                                 #                 3 E BITS CONTAIN THE E-BANK NUMBER
009866,001697:                                                                                                 # # Page 226
009867,001698:                                                                                                 #                 3 D BITS CONTAIN THE DOWNLIST ID
009868,001699: 
009869,001700:                                                                                                 #         COAST AND ALIGN LIST    =  0
009870,001701:                                                                                                 #         ENTRY LIST              =  1
009871,001702:                                                                                                 #         RENDEZVOUS LIST         =  2
009872,001703:                                                                                                 #         POWERED FLIGHT LIST     =  3
009873,001704:                                                                                                 #         P22 LIST                =  4
009874,001705: 
009875,001706:                                                                                                 #  FOR EXAMPLE,
009876,001707: 
009877,001708:                                                                                                 #                 OCT     21137           # DOWNLIST      = 2 (RENDEZVOUS)
009878,001709:                                                                                                 #                                         # E-BANK        = 4
009879,001710:                                                                                                 #                                         # MAJOR MODE    = 95
009880,001711: 
009881,001712:                                                                                                 #                 OCT     11476           # DOWNLIST      = 1 (ENTRY)
009882,001713:                                                                                                 #                                         # E-BANK        = 6
009883,001714:                                                                                                 #                                         # MAJOR MODE    = 62
009884,001715: 
009885,001716: 04,3124                        PREMM1            EQUALS                                         
009886,001717: 04,3124           21526                          OCT      21526                                 #  MM 86          EBANK 6         DOWNLIST        2
009887,001718: 04,3125           21525                          OCT      21525                                 #  MM 85          EBANK 6         DOWNLIST        2
009888,001719: 04,3126           21524                          OCT      21524                                 #  MM 84          EBANK 6         DOWNLIST        2
009889,001720: 04,3127           21523                          OCT      21523                                 #  MM 83          EBANK 6         DOWNLIST        2
009890,001721: 04,3130           21522                          OCT      21522                                 #  MM 82          EBANK 6         DOWNLIST        2
009891,001722: 04,3131           21521                          OCT      21521                                 #  MM 81          EBANK 6         DOWNLIST        2
009892,001723: 04,3132           21717                          OCT      21717                                 #  MM 79          EBANK 7         DOWNLIST        2
009893,001724: 04,3133           21715                          OCT      21715                                 
009894,001725: 04,3134           21714                          OCT      21714                                 #  MM 76          EBANK 7         DOWNLIST        2
009895,001726: 04,3135           21113                          OCT      21113                                 #  MM 75          EBANK 4         DOWNLIST        2
009896,001727: 04,3136           21112                          OCT      21112                                 #  MM 74          EBANK 4         DOWNLIST        2
009897,001728: 04,3137           21111                          OCT      21111                                 #  MM 73          EBANK 4         DOWNLIST        2
009898,001729: 04,3140           21110                          OCT      21110                                 #  MM 72          EBANK 4         DOWNLIST        2
009899,001730: 04,3141           11476                          OCT      11476                                 #  MM 62          EBANK 6         DOWNLIST        1
009900,001731: 04,3142           31475                          OCT      31475                                 #  MM 61          EBANK 6         DOWNLIST        3
009901,001732: 04,3143           01266                          OCT      01266                                 #  MM 54          EBANK 5         DOWNLIST        0
009902,001733: 04,3144           01265                          OCT      01265                                 #  MM 53          EBANK 5         DOWNLIST        0
009903,001734: 04,3145           01264                          OCT      01264                                 #  MM 52          EBANK 5         DOWNLIST        0
009904,001735: 04,3146           01263                          OCT      01263                                 #  MM 51          EBANK 5         DOWNLIST        0
009905,001736: 04,3147           31657                          OCT      31657                                 #  MM 47          EBANK 7         DOWNLIST        3
009906,001737: 04,3150           31451                          OCT      31451                                 #  MM 41          EBANK 6         DOWNLIST        3
009907,001738: 04,3151           31450                          OCT      31450                                 #  MM 40          EBANK 6         DOWNLIST        3
009908,001739: 04,3152           21645                          OCT      21645                                 #  MM 37          EBANK 7         DOWNLIST        2
009909,001740: 04,3153           21044                          OCT      21044                                 #  MM 36          EBANK 4         DOWNLIST        2
009910,001741: 04,3154           21043                          OCT      21043                                 #  MM 35          EBANK 4         DOWNLIST        2
009911,001742: 04,3155           21042                          OCT      21042                                 #  MM 34          EBANK 4         DOWNLIST        2
009912,001743: 04,3156           21041                          OCT      21041                                 #  MM 33          EBANK 4         DOWNLIST        2
009913,001744: 04,3157           21040                          OCT      21040                                 #  MM 32          EBANK 4         DOWNLIST        2
009914,001745: 04,3160           21037                          OCT      21037                                 #  MM 31          EBANK 4         DOWNLIST        2
009915,001746: 04,3161           21636                          OCT      21636                                 #  MM 30          EBANK 7         DOWNLIST        2
009916,001747: 04,3162           21635                          OCT      21635                                 #  MM 29          EBANK 7         DOWNLIST        2
009917,001748:                                                                                                 # # Page 227
009918,001749: 04,3163           41230                          OCT      41230                                 #  MM 24          EBANK 5         DOWNLIST        4
009919,001750: 04,3164           21627                          OCT      21627                                 #  MM 23          EBANK 7         DOWNLIST        2
009920,001751: 04,3165           41626                          OCT      41626                                 #  MM 22          EBANK 7         DOWNLIST        4
009921,001752: 04,3166           21025                          OCT      21025                                 #  MM 21          EBANK 4         DOWNLIST        2
009922,001753: 04,3167           21424                          OCT      21424                                 #  MM 20          EBANK 6         DOWNLIST        2
009923,001754: 04,3170           31617                          OCT      31617                                 #  MM 15          EBANK 7         DOWNLIST        3
009924,001755: 04,3171           01006                          OCT      01006                                 #  MM 06          EBANK 4         DOWNLIST        0
009925,001756: 04,3172           01201                          OCT      01201                                 #  MM 01          EBANK 5         DOWNLIST        0
009926,001757: 
009927,001758:                                                                                                 #  NOTE:          THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
009928,001759:                                                                                                 #  -----          THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00)
009929,001760:                                                                                                 #                 THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
009930,001761: 
009931,001762: 04,3173                        EPREMM1           EQUALS                                         #  END OF PREMM1 TABLE
009932,001763: 04,3124                                          SETLOC   PREMM1                                #  THIS CODING WILL AUTOMATICALLY CHANGE
009933,001764: 04,3124                        NO.MMS            =MINUS   EPREMM1                               #  THE 'NOV37MM' CONSTANT AS ENTRIES ARE
009934,001765: 04,2000                                          SETLOC   VERB37                                #  INSERTED(IN) OR DELETED(FROM) THE
009935,001766: 04,2000                                          BANK                                           #  'PREMM1' TABLE.
009936,001767: 
009937,001768: 04,3173           00046        NOV37MM           ADRES    NO.MMS     -1                         #  ITEMS IN 'PREMM1' TABLE - 1. *DON'T MOVE*
009938,001769: 
009939,001770: 04,3174     4772               DNLADP00          =        ZERO                                  
009940,001771: 
009941,001772:                                                                                                 #  ORBITAL INTEGRATION CONSTANTS
009942,001773: 
009943,001774:                                                                                                 #  THESE CONSTANTS ARE USED IN COMPUTING THE SETTING OF MIDFLAG.
009944,001775: 
009945,001776: 04,3174           00465 32324  RMM               2DEC     2538.09    E3         B-27            #  800 KM ABOVE LUNAR SURFACE
009946,001777: 
009947,001778: 04,3176           00333 01733  RME               2DEC     7178165    B-29                       #  800 KM ABOVE EQ. RADIUS
009948,001779: 
009949,001780: 13,2000                                          SETLOC   INTINIT                               
009950,001781: 13,2000                                          BANK                                           
009951,001782: 
009952,001783: 13,2000                                          COUNT*   $$/INTIN                              
009953,001784: 
009954,001785: 13,2000  E3,1554                                 EBANK=   RRECTCSM                              
009955,001786: 
009956,001787: 13,2000           43014        STATEUP           SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
009957,001788: 13,2001           01474                                   VINTFLAG                              
009958,001789: 13,2002           01751                                   ORBWFLAG                              #  ALSO 6X6 W-MATRIX IF VALID
009959,001790: 13,2003           26006                                   +3                                    #       FOR ORBITAL NAVIGATION
009960,001791: 13,2004           77614                          SET                                            
009961,001792: 13,2005           01476                                   DIM0FLAG                              
009962,001793: 13,2006           45014                          CLEAR    CALL                                  
009963,001794: 13,2007           01667                                   PRECIFLG                              
009964,001795: 13,2010           27236                                   INTEGRV                               
009965,001796: 13,2011           71214                          BON      DLOAD                                 
009966,001797: 13,2012           04307                                   SURFFLAG                              
009967,001798:                                                                                                 # # Page 228
009968,001799: 13,2013           26031                                   STATEND                               
009969,001800: 13,2014           01571                                   TETCSM                                
009970,001801: 13,2015           34041                          STCALL   TDEC1                                 
009971,001802: 13,2016           27516                                   INTSTALL                              
009972,001803: 13,2017           45014                          CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
009973,001804: 13,2020           01674                                   VINTFLAG                              
009974,001805: 13,2021           26744                                   SETIFLGS                              #         AND 6X6 W-MATRIX IF VALID
009975,001806: 13,2022           43014                          BOF      SET                                   
009976,001807: 13,2023           02756                                   RENDWFLG                              #         FOR RENDEZVOUS NAVIGATION
009977,001808: 13,2024           26026                                   +2                                    
009978,001809: 13,2025           01476                                   DIM0FLAG                              
009979,001810: 13,2026           45014                          SET      CALL                                  
009980,001811: 13,2027           01467                                   PRECIFLG                              
009981,001812: 13,2030           27236                                   INTEGRV                               
009982,001813: 13,2031           77614        STATEND           CLRGO                                          
009983,001814: 13,2032           01236                                   NODOFLAG                              
009984,001815: 13,2033           26732                                   ENDINT                                
009985,001816: 
009986,001817:                                                                                                 #  THISVINT IS CALLED BY MIDTOAV1 AND 2
009987,001818: 
009988,001819: 13,2034           43414        THISVINT          SET      RVQ                                   
009989,001820: 13,2035           01474                                   VINTFLAG                              

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