Source Code

These source-code files are part of a reconstructed copy of Luminary 163, the first (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with reconstructed source code for Luminary 173. Changes between revision 163 and 173 were backed out, as described by Luminary memos 157 and 158. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 163 listing would be different.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

009093,000002:                                                                                                  ## Copyright:   Public domain.
009094,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
009095,000004:                                                                                                  ## Purpose:     A section of Luminary revision 163.
009096,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
009097,000006:                                                                                                  ##              (unflown) release of the flight software for the Lunar
009098,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
009099,000008:                                                                                                  ##              The code has been recreated from a reconstructed copy of
009100,000009:                                                                                                  ##              Luminary 173, as well as Luminary memos 157 amd 158.
009101,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
009102,000011:                                                                                                  ##              exactly match those specified for Luminary 163 in NASA
009103,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
009104,000013:                                                                                                  ##              that the reconstruction is correct.
009105,000014:                                                                                                  ## Reference:   pp. 218-244
009106,000015:                                                                                                  ## Assembler:   yaYUL
009107,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009108,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009109,000018:                                                                                                  ## Mod history: 2019-08-21 MAS  Created from Luminary 173. Removed clearing of
009110,000019:                                                                                                  ##                              R12RDFLG. Re-added OCT7777. Changed call to
009111,000020:                                                                                                  ##                              RESTARTS from BANKCALL to SWCALL, and added
009112,000021:                                                                                                  ##                              definition of RACTCADR. Removed OCT6200, and
009113,000022:                                                                                                  ##                              changed initialization of SWINIT +8 to add
009114,000023:                                                                                                  ##                              individual bits instead of using it.
009115,000024:                                                                                                  ##              2021-05-30 ABS  CANTROD -> CANTROO
009116,000025: 

Page 218

009118,000027: 10,2000                                           BANK     10                                    
009119,000028: 05,2000                                           SETLOC   FRANDRES                              
009120,000029: 05,2000                                           BANK                                           
009121,000030: 
009122,000031: 05,2460  E3,1400                                  EBANK=   LST1                                  
009123,000032: 
009124,000033: 05,2460                                           COUNT*   $$/START                              #  FRESH AND RESTART
009125,000034: 05,2460           00004        SLAP1              INHINT                                         #  FRESH START. COMES HERE FROM PINBALL.
009126,000035: 05,2461           03121                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
009127,000036: 
009128,000037: 05,2462           12467        STARTSW            TCF      SKIPSIM                               #  PATCH....TCF STARTSIM...FOR SIMULATION
009129,000038: 05,2463           34736        STARTSIM           CAF      BIT14                                 
009130,000039: 05,2464           05105                           TC       FINDVAC                               
009131,000040: 05,2465           77777        SIM2CADR           OCT      77777                                 #  PATCH 2CADR (AND EBANK DESIGNATION) OF
009132,000041: 05,2466           77777                           OCT      77777                                 #  SIMULATION START ADDRESS.
009133,000042: 
009134,000043: 05,2467           31035        SKIPSIM            CA       DSPTAB     +11D                       
009135,000044: 05,2470           74771                           MASK     BITS4&6                               #  TURN OFF ALL DSPTAB +11D LAMPS
009136,000045: 05,2471           64735                           AD       BIT15                                 #  EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
009137,000046: 05,2472           55035                           TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
009138,000047: 
009139,000048: 05,2473           34755                           CA       ZERO                                  
009140,000049: 05,2474           55365                           TS       ERCOUNT                               
009141,000050: 05,2475           54375                           TS       FAILREG                               
009142,000051: 05,2476           54376                           TS       FAILREG    +1                         
009143,000052: 05,2477           54377                           TS       FAILREG    +2                         
009144,000053: 05,2500           54320                           TS       REDOCTR                               
009145,000054: 
009146,000055: 05,2501           00006                           EXTEND                                         
009147,000056: 05,2502           01077                           WRITE    CHAN77                                #  ZERO CHANNEL 77
009148,000057: 
009149,000058: 05,2503           44644                           CS       PRIO12                                
009150,000059: 05,2504           55310                           TS       DSRUPTSW                              
009151,000060: 
009152,000061: 05,2505           34736        DOFSTART           CAF      BIT14                                 #  INSURE ENGINE IS OFF.
009153,000062: 05,2506           00006                           EXTEND                                         
009154,000063: 05,2507           01011                           WRITE    DSALMOUT                              
009155,000064: 05,2510           44755                           CS       ZERO                                  
009156,000065: 05,2511           54055                           TS       THRUST                                
009157,000066: 
009158,000067: 05,2512           34751        DOFSTRT1           CAF      FOUR                                  
009159,000068: 05,2513           55262                           TS       RCSFLAGS                              #  INITIALIZE ATTITUDE ERROR DISPLAYS.
009160,000069: 05,2514           34355                           CA       PRIO30                                
009161,000070: 05,2515           54366                           TS       RESTREG                               #  SUPER BANK PRIORITY FOR DISPLAYS.
009162,000071: 
009163,000072: 05,2516           34755                           CA       ZERO                                  
009164,000073: 05,2517           55245                           TS       ABDELV                                #  DAP INITIALIZATION
009165,000074: 05,2520           54371                           TS       NVSAVE                                
009166,000075: 05,2521           55071                           TS       EBANKTEM                              

Page 219

009168,000077: 05,2522           55257                           TS       CH5MASK                               
009169,000078: 05,2523           55260                           TS       CH6MASK                               
009170,000079: 05,2524           55273                           TS       PVALVEST                              #  FOR RCS FAILURE MONITOR
009171,000080: 05,2525           55360                           TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
009172,000081: 05,2526           55362                           TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
009173,000082: 05,2527           54333                           TS       DNLSTCOD                              #  SELECT POO DOWNLIST
009174,000083: 05,2530           55321                           TS       AGSWORD                               #  ALLOW AGS INITIALIZATION
009175,000084: 05,2531           55501                           TS       UPSVFLAG                              #  ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
009176,000085: 05,2532           00006                           EXTEND                                         
009177,000086: 05,2533           01005                           WRITE    CHAN5                                 #  TURN OFF RCS JETS.
009178,000087: 05,2534           00006                           EXTEND                                         
009179,000088: 05,2535           01006                           WRITE    CHAN6                                 #  TURN OFF RCS JETS.
009180,000089: 05,2536           00006                           EXTEND                                         
009181,000090: 05,2537           01012                           WRITE    CHAN12                                
009182,000091: 05,2540           00006                           EXTEND                                         
009183,000092: 05,2541           01013                           WRITE    CHAN13                                
009184,000093: 05,2542           00006                           EXTEND                                         
009185,000094: 05,2543           01014                           WRITE    CHAN14                                
009186,000095: 05,2544           41035                           CS       DSPTAB     +11D                       
009187,000096: 05,2545           74771                           MASK     BITS4&6                               
009188,000097: 05,2546           10000                           CCS      A                                     
009189,000098: 05,2547           02553                           TC       +4                                    
009190,000099: 05,2550           34771                           CA       BITS4&6                               
009191,000100: 05,2551           00006                           EXTEND                                         #  THE IMU WAS IN COARSE ALIGN IN GIMBAL
009192,000101: 05,2552           05012                           WOR      CHAN12                                #  LOCK, SO PUT IT BACK INTO COARSE ALIGN.
009193,000102: 05,2553           02655                 +4        TC       MR.KLEAN                              
009194,000103: 
009195,000104: 05,2554           44755                           CS       ZERO                                  
009196,000105: 05,2555           55010                           TS       MODREG                                
009197,000106: 
009198,000107: 05,2556           33376                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
009199,000108: 05,2557           55277                           TS       IMODES30                              
009200,000109: 
009201,000110: 05,2560           33101                           CAF      MAXDB                                 
009202,000111: 05,2561           55343                           TS       DB                                    
009203,000112: 05,2562           34751                           CAF      FOUR                                  
009204,000113: 05,2563           55322                           TS       RATEINDX                              #  INITIALIZE KALCMANU RATE
009205,000114: 05,2564           33075                           CA       BOOLSTRT                              
009206,000115: 05,2565           54111                           TS       DAPBOOLS                              
009207,000116: 05,2566           35015                           CAF      EBANK6                                
009208,000117: 05,2567           54003                           TS       EBANK                                 
009209,000118: 05,2570  E6,1400                                  EBANK=   HIASCENT                              
009210,000119: 
009211,000120: 05,2570           33072                           CA       STIKSTRT                              
009212,000121: 05,2571           55444                           TS       STIKSENS                              
009213,000122: 05,2572           33073                           CA       RATESTRT                              
009214,000123: 05,2573           55476                           TS       -RATEDB                               
009215,000124: 05,2574           32000                           CAF      FULLAPS                               #  INITIALIZE MAXIMUM ASCENT MASS FOR USE
009216,000125: 05,2575           55400                           TS       HIASCENT                              #    BY 1/ACCS UNTIL THE PAD LOAD IS DONE.
009217,000126: 05,2576           33076                           CA       77001OCT                              #     LOAD DAP FILTER GAINS PAD LOAD

Page 220

009219,000128: 05,2577           55403                           TS       DKTRAP                                #     TO BEST PRESENT ESTIMATE OF GOODIES
009220,000129: 05,2600           55406                           TS       LMTRAP                                #  .14 DEG
009221,000130: 05,2601           33077                           CA       60DEC                                 
009222,000131: 05,2602           55405                           TS       DKKAOSN                               
009223,000132: 05,2603           55410                           TS       LMKAOSN                               #  6 SEC GAIN FOR ALPHA
009224,000133: 05,2604           34755                           CA       ZERO                                  
009225,000134: 05,2605           55407                           TS       LMOMEGAN                              #  UNITY GAIN
009226,000135: 05,2606           34363                           CA       TEN                                   
009227,000136: 05,2607           55404                           TS       DKOMEGAN                              #  1 SEC GAIN FOR OMEGA
009228,000137: 05,2610           34744                           CAF      BIT8                                  #  SET DOCKED DB TO 1.4 DEG.  MAY OVERWRITE
009229,000138: 05,2611           55411                           TS       DKDB                                  #    WITH PAD LOAD.
009230,000139: 05,2612           35026                           CAF      IM33INIT                              
009231,000140: 05,2613           64746                           AD       BIT6                                  #  KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
009232,000141: 05,2614           55300                           TS       IMODES33                              #    OFF UNTIL ICDU ZERO IS FINISHED.
009233,000142: 
009234,000143: 05,2615           00006                           EXTEND                                         #  INITIALIZE SWITCHES ONLY ON FRESH START.
009235,000144: 05,2616           33403                           DCA      SWINIT                                
009236,000145: 05,2617           52075                           DXCH     STATE                                 
009237,000146: 05,2620           33404                           CA       SWINIT     +2                         
009238,000147: 05,2621           54076                           TS       STATE      +2                         
009239,000148: 05,2622           34737                           CA       REFSMBIT                              #  DO NOT ALTER REFSMFLG ON FRESH START.
009240,000149: 05,2623           64741                           AD       NOP07BIT                              #               NODOP07
009241,000150: 05,2624           70077                           MASK     STATE      +3                         
009242,000151: 05,2625           63405                           AD       SWINIT     +3                         
009243,000152: 05,2626           54077                           TS       STATE      +3                         
009244,000153: 05,2627           00006                           EXTEND                                         
009245,000154: 05,2630           33407                           DCA      SWINIT     +4                         
009246,000155: 05,2631           52101                           DXCH     STATE      +4                         
009247,000156: 05,2632           00006                           EXTEND                                         
009248,000157: 05,2633           33411                           DCA      SWINIT     +6                         
009249,000158: 05,2634           52103                           DXCH     STATE      +6                         
009250,000159: 05,2635           34744                           CA       SURFFBIT                              #  DO NOT ALTER  SURFFLAG ON FRESH START.
009251,000160: 05,2636           64740                           AD       CMOONBIT                              #                CMOONFLG
009252,000161: 05,2637           64741                           AD       LMOONBIT                              #                LMOONFLG
009253,000162: 05,2640           70104                           MASK     STATE      +8D                        
009254,000163: 05,2641           63412                           AD       SWINIT     +8D                        
009255,000164: 05,2642           54104                           TS       STATE      +8D                        
009256,000165: 05,2643           33413                           CA       SWINIT     +9D                        
009257,000166: 05,2644           54105                           TS       STATE      +9D                        
009258,000167: 05,2645           34737                           CA       APSFLBIT                              #  DO NOT ALTER APSFLAG ON FRESH START.
009259,000168: 05,2646           70106                           MASK     STATE      +10D                       
009260,000169: 05,2647           63414                           AD       SWINIT     +10D                       
009261,000170: 05,2650           54106                           TS       STATE      +10D                       
009262,000171: 05,2651           33415                           CAF      SWINIT     +11D                       
009263,000172: 05,2652           54107                           TS       STATE      +11D                       
009264,000173: 
009265,000174: 05,2653           04635        ENDRSTRT           TC       POSTJUMP                              #  NOW IN ANOTHER BANK.
009266,000175: 05,2654           03212                           CADR     DUMMYJOB   +2                         #  PICKS UP AT RELINT.   (DONT ZERO NEWJOB)
009267,000176: 
009268,000177: 05,2655           00004        MR.KLEAN           INHINT                                         
009269,000178: 05,2656           00006                           EXTEND                                         

Page 221

009271,000180: 05,2657           34755                           DCA      NEG0                                  
009272,000181: 05,2660           52754                           DXCH     -PHASE2                               
009273,000182: 05,2661           00006        POOKLEAN           EXTEND                                         
009274,000183: 05,2662           34755                           DCA      NEG0                                  
009275,000184: 05,2663           52760                           DXCH     -PHASE4                               
009276,000185: 05,2664           00006        V37KLEAN           EXTEND                                         
009277,000186: 05,2665           34755                           DCA      NEG0                                  
009278,000187: 05,2666           52762                           DXCH     -PHASE5                               
009279,000188: 05,2667           00006        ABTKLEAN           EXTEND                                         
009280,000189: 05,2670           34755                           DCA      NEG0                                  
009281,000190: 05,2671           52756                           DXCH     -PHASE3                               
009282,000191: 05,2672           00006                           EXTEND                                         
009283,000192: 05,2673           34755                           DCA      NEG0                                  
009284,000193: 05,2674           52752                           DXCH     -PHASE1                               
009285,000194: 05,2675           00006                           EXTEND                                         
009286,000195: 05,2676           34755                           DCA      NEG0                                  
009287,000196: 05,2677           52764                           DXCH     -PHASE6                               
009288,000197: 05,2700           00002                           TC       Q                                     
009289,000198: 

Page 222

009291,000200:                                                                                                  #           COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME
009292,000201: 
009293,000202: 05,2701  E3,1400                                  EBANK=   LST1                                  
009294,000203: 05,2701           24320        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
009295,000204: 
009296,000205: 05,2702           22002                           LXCH     Q                                     
009297,000206: 05,2703           00006                           EXTEND                                         
009298,000207: 05,2704           04007                           ROR      SUPERBNK                              
009299,000208: 05,2705           53433                           DXCH     RSBBQ                                 
009300,000209: 05,2706           31035                           CA       DSPTAB     +11D                       
009301,000210: 05,2707           74750                           MASK     BIT4                                  
009302,000211: 05,2710           00006                           EXTEND                                         
009303,000212: 05,2711           12715                           BZF      +4                                    
009304,000213: 05,2712           64746                           AD       BIT6                                  #  SET ERROR COUNTER ENABLE
009305,000214: 05,2713           00006                           EXTEND                                         
009306,000215: 05,2714           05012                           WOR      CHAN12                                #  ISS WAS IN COARS ALIGN SO GO BACK TO
009307,000216: 05,2715           03102        BUTTONS            TC       LIGHTSET                              
009308,000217: 
009309,000218:                                                                                                  #                                            ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
009310,000219:                                                                                                  #                                            AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
009311,000220:                                                                                                  #                                            ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
009312,000221:                                                                                                  #                                            EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE
009313,000222:                                                                                                  #                                            C(ERESTORE) SHOULD EQUAL +0.
009314,000223: 
009315,000224: 05,2716           34350                           CAF      HI5                                   
009316,000225: 05,2717           71360                           MASK     ERESTORE                              
009317,000226: 05,2720           00006                           EXTEND                                         
009318,000227: 05,2721           12723                           BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
009319,000228: 05,2722           13117                           TCF      NONAVKEY   +3                         #  DO FRESH START - E MEMORY MIGHT BE BAD
009320,000229: 05,2723           41360                           CS       ERESTORE                              
009321,000230: 05,2724           00006                           EXTEND                                         
009322,000231: 05,2725           12742                           BZF      DORSTART                              #  = +0 CONTINUE WITH RESTART.
009323,000232: 05,2726           61377                           AD       SKEEP7                                
009324,000233: 05,2727           00006                           EXTEND                                         
009325,000234: 05,2730           12732                           BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
009326,000235: 05,2731           13117                           TCF      NONAVKEY   +3                         #  DO FRESH START - E MEMORY MIGHT BE BAD
009327,000236: 05,2732           31374                           CA       SKEEP4                                
009328,000237: 05,2733           54003                           TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
009329,000238: 05,2734           00006                           EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
009330,000239: 05,2735           31376                           DCA      SKEEP5                                
009331,000240: 05,2736           51377                           INDEX    SKEEP7                                
009332,000241: 05,2737           52001                           DXCH     0000                                  #  E MEMORY RESTORED.
009333,000242: 05,2740           34755                           CA       ZERO                                  
009334,000243: 05,2741           55360                           TS       ERESTORE                              
009335,000244: 05,2742           03121        DORSTART           TC       STARTSUB                              #  DO INITIALIZATION AFTER ERASE RESTORE.
009336,000245: 
009337,000246: 05,2743           44736        SETINFL            CS       INTFLBIT                              
009338,000247: 05,2744           70106                           MASK     FLGWRD10                              
009339,000248: 05,2745           54106                           TS       FLGWRD10                              

Page 223

009341,000250: 05,2746           33400                           CA       9,6,4                                 #  LEAVE PROG ALARM,GIMBAL LOCK, NO ATT
009342,000251: 05,2747           71035                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
009343,000252: 05,2750           64735                           AD       BIT15                                 
009344,000253: 05,2751           57035                           XCH      DSPTAB     +11D                       
009345,000254: 05,2752           33364                           CAF      IFAILINH                              #  LEAVE IMU FAILURE INHIBITS INTACT ON
009346,000255: 05,2753           71277                           MASK     IMODES30                              #  HARDWARE RESTART. RESET ALL FAILURE
009347,000256: 05,2754           63377                           AD       IM30INIR                              #  CODES.
009348,000257: 05,2755           55277                           TS       IMODES30                              
009349,000258: 
009350,000259: 05,2756           31321                           CA       AGSWORD                               #  BE SURE OF CORRECT DOWNLIST
009351,000260: 05,2757           54333                           TS       DNLSTCOD                              
009352,000261: 
009353,000262: 05,2760           34750                           CA       BIT4                                  #  TURN ON THROTTLE COUNTER
009354,000263: 05,2761           00006                           EXTEND                                         
009355,000264: 05,2762           05014                           WOR      CHAN14                                #  TURN ON THRUST DRIVE
009356,000265: 05,2763           40101                           CS       FLAGWRD5                              
009357,000266: 05,2764           74745                           MASK     ENGONBIT                              
009358,000267: 05,2765           10000                           CCS      A                                     
009359,000268: 05,2766           12773                           TCF      +5                                    
009360,000269: 05,2767           34737                           CAF      BIT13                                 
009361,000270: 05,2770           00006                           EXTEND                                         
009362,000271: 05,2771           05011                           WOR      DSALMOUT                              #  TURN ENGINE ON
009363,000272: 05,2772           13007                           TCF      GOPROG3                               
009364,000273: 05,2773           34736                 +5        CAF      BIT14                                 
009365,000274: 05,2774           00006                           EXTEND                                         
009366,000275: 05,2775           05011                           WOR      DSALMOUT                              #  TURN ENGINE OFF.
009367,000276: 05,2776           13007                           TCF      GOPROG3                               
009368,000277: 
009369,000278: 05,2777           00004        ENEMA              INHINT                                         
009370,000279: 05,3000           03130                           TC       STARTSB1                              
009371,000280: 05,3001           13003                           TCF      GOPROG2A                              
009372,000281: 05,3002           03173        GOPROG2            TC       STARTSB2                              
009373,000282: 05,3003           03102        GOPROG2A           TC       LIGHTSET                              
009374,000283: 05,3004           43100                           CS       RSFLGBTS                              #  BITS 7 AND 14.
009375,000284: 05,3005           70106                           MASK     FLGWRD10                              
009376,000285: 05,3006           54106                           TS       FLGWRD10                              
009377,000286: 
009378,000287: 05,3007           34756        GOPROG3            CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
009379,000288: 05,3010           54161        PCLOOP             TS       MPAC       +5                         
009380,000289: 05,3011           60000                           DOUBLE                                         
009381,000290: 05,3012           00006                           EXTEND                                         
009382,000291: 05,3013           50000                           INDEX    A                                     
009383,000292: 05,3014           30752                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
009384,000293: 05,3015           00006                           EXTEND                                         
009385,000294: 05,3016           06001                           RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
009386,000295: 05,3017           10000                           CCS      A                                     
009387,000296: 05,3020           13066                           TCF      PTBAD                                 #  RESTART FAILURE.
009388,000297: 05,3021           13066                           TCF      PTBAD                                 
009389,000298: 05,3022           13066                           TCF      PTBAD                                 
009390,000299: 

Page 224

009392,000301: 05,3023           10161                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
009393,000302: 05,3024           13010                           TCF      PCLOOP                                
009394,000303: 
009395,000304: 05,3025           54162                           TS       MPAC       +6                         #  SET TO +0.
009396,000305: 05,3026           05326                           TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
009397,000306: 
009398,000307: 05,3027           00004                           INHINT                                         #  RELINT DONE IN MMDSPLAY
009399,000308: 
009400,000309: 05,3030           44736                           CS       DIDFLBIT                              #  CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
009401,000310: 05,3031           70075                           MASK     FLAGWRD1                              #  RE-INITIALIZE ITSELF IF IT HAD BEEN
009402,000311: 05,3032           54075                           TS       FLAGWRD1                              #  OPERATING AT THE TIME OF THE RESTART.
009403,000312: 
009404,000313: 05,3033           44740                           CS       RODFLBIT                              #  CLEAR RODFLAG.  IF P66 IS IN OPERATION
009405,000314: 05,3034           70075                           MASK     FLAGWRD1                              #       IT WILL RE-INITIALIZE ITSELF AND
009406,000315: 05,3035           54075                           TS       FLAGWRD1                              #       CONTINUE.
009407,000316: 
009408,000317: 05,3036           44741                           CS       P21FLBIT                              #  CLEAR P21FLAG SO THAT P21 WILL COMPUTE
009409,000318: 05,3037           70074                           MASK     FLAGWRD0                              #  NEW BASE STATE VECTORS.
009410,000319: 05,3040           54074                           TS       FLAGWRD0                              
009411,000320: 
009412,000321: 05,3041           34756                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
009413,000322: 05,3042           54161        NXTRST             TS       MPAC       +5                         
009414,000323: 05,3043           60000                           DOUBLE                                         
009415,000324: 05,3044           50000                           INDEX    A                                     
009416,000325: 05,3045           10752                           CCS      PHASE1                                
009417,000326: 05,3046           13050                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
009418,000327: 05,3047           13055                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
009419,000328: 
009420,000329: 05,3050           54154        PACTIVE            TS       MPAC                                  
009421,000330: 05,3051           24154                           INCR     MPAC                                  #  ABS OF PHASE.
009422,000331: 05,3052           24162                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
009423,000332: 05,3053           33074                           CA       RACTCADR                              
009424,000333: 05,3054           04622                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
009425,000334: 
009426,000335: 05,3055           10161        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
009427,000336: 05,3056           13042                           TCF      NXTRST                                
009428,000337: 
009429,000338: 05,3057           10162                           CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
009430,000339: 05,3060           12653                           TCF      ENDRSTRT                              #  PHASE ACTIVE
009431,000340: 05,3061           34735                           CAF      BIT15                                 #  IS MODE -0
009432,000341: 05,3062           71010                           MASK     MODREG                                
009433,000342: 05,3063           00006                           EXTEND                                         
009434,000343: 05,3064           16001                           BZF      GOTOPOOH                              #  NO
009435,000344: 05,3065           12653                           TCF      ENDRSTRT                              #  YES
009436,000345: 05,3066           05600        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
009437,000346: 05,3067           01107                           OCT      1107                                  
009438,000347: 
009439,000348: 05,3070           12512                           TCF      DOFSTRT1                              
009440,000349: 
009441,000350:                                                                                                  #  ******** ****** ******

Page 225

009443,000352:                                                                                                  #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
009444,000353: 
009445,000354: 05,3071     4737               OCT10000           =        BIT13                                 
009446,000355: 05,3071     4355               OCT30000           =        PRIO30                                
009447,000356: 05,3071           07777        OCT7777            OCT      7777                                  
009448,000357: 05,3072           32321        STIKSTRT           DEC      0.825268                              #  20 D/S MAXIMUM COMMANDED RATE
009449,000358: 05,3073           77445        RATESTRT           DEC      -218       B-14                       
009450,000359: 05,3074           03530        RACTCADR           CADR     RESTARTS                              
009451,000360: 05,3075           21322        BOOLSTRT           OCT      21322                                 
009452,000361: 05,3076           77001        77001OCT           OCT      77001                                 #  .14 DEG SCALED AT 4.5 DEG
009453,000362: 05,3077           00074        60DEC              DEC      60         B-14                       
009454,000363: 05,3100           20100        RSFLGBTS           OCT      20100                                 
009455,000364: 05,3101           03434        MAXDB              OCTAL    03434                                 #  5 DEG ATTITUDE DEADBAND, SCALED AT 45.
009456,000365: 
009457,000366: 05,3102           34747        LIGHTSET           CAF      BIT5                                  #  CHECK FOR MARK REJECT AND ERROR RESET
009458,000367: 05,3103           00006                           EXTEND                                         
009459,000368: 05,3104           02016                           RAND     NAVKEYIN                              
009460,000369: 05,3105           00006                           EXTEND                                         
009461,000370: 05,3106           13114                           BZF      NONAVKEY                              #  NO MARK REJECT
009462,000371: 05,3107           00006                           EXTEND                                         
009463,000372: 05,3110           00015                           READ     MNKEYIN                               #  CHECK IF KEYS 2M AND 5M ON
009464,000373: 05,3111           63375                           AD       -ELR                                  #  MAIN DSKY KEYCODE(BITS 1-5)
009465,000374: 05,3112           00006                           EXTEND                                         
009466,000375: 05,3113           13115                           BZF      +2                                    
009467,000376: 
009468,000377: 05,3114           00002        NONAVKEY           TC       Q                                     
009469,000378: 
009470,000379: 05,3115           03121                           TC       STARTSUB                              
009471,000380: 05,3116           12505                           TCF      DOFSTART                              
009472,000381: 05,3117           03121                 +3        TC       STARTSUB                              
009473,000382: 05,3120           12512                           TCF      DOFSTRT1                              #  DO FRESH START BUT DON'T TOUCH ENGINE
009474,000383: 

Page 226

009476,000385:                                                                                                  #           INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
009477,000386: 
009478,000387: 05,3121  E6,1536                                  EBANK=   AOSQ                                  
009479,000388: 05,3121           33365        STARTSUB           CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
009480,000389: 05,3122           54335                           TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE
009481,000390:                                                                                                  #  INTERRUPTED AND START SENDING FROM THE
009482,000391:                                                                                                  #  BEGINNING OF THE CURRENT DOWNLIST.
009483,000392: 05,3123           34746                           CAF      BIT6                                  
009484,000393: 05,3124           00006                           EXTEND                                         
009485,000394: 05,3125           02033                           RAND     CHAN33                                
009486,000395: 05,3126           63401                           AD       RMODINIT                              
009487,000396: 05,3127           54110                           TS       RADMODES                              
009488,000397: 
009489,000398: 05,3130           34733        STARTSB1           CAF      POSMAX                                
009490,000399: 05,3131           54026                           TS       TIME3                                 
009491,000400: 05,3132           67751                           AD       MINUS2                                
009492,000401: 05,3133           54027                           TS       TIME4                                 
009493,000402: 05,3134           67752                           AD       NEGONE                                
009494,000403: 05,3135           54030                           TS       TIME5                                 
009495,000404: 
009496,000405: 05,3136           35015                           CAF      EBANK6                                
009497,000406: 05,3137           54003                           TS       EBANK                                 
009498,000407: 
009499,000408: 05,3140           44737                           CS       BIT13                                 #  CAUSE DAPIDLER TO CALL 1/ACCS
009500,000409: 05,3141           71262                           MASK     RCSFLAGS                              
009501,000410: 05,3142           55262                           TS       RCSFLAGS                              #  ZERO BIT 13
009502,000411: 05,3143           34733                           CAF      POSMAX                                #  DISABLE TIME6 CLOCK.  JUST IN CASE A T6
009503,000412: 05,3144           55466                           TS       T6NEXT                                #    RUPT IS ALREADY IN THE PRIORITY CHAIN,
009504,000413: 05,3145           00006                           EXTEND                                         #    ENSURE THAT IT'S INPUTS WILL RENDER IT
009505,000414: 05,3146           03013                           WAND     CHAN13                                #    INEFFECTUAL.
009506,000415: 05,3147           34755                           CAF      ZERO                                  
009507,000416: 05,3150           55465                           TS       NXT6ADR                               
009508,000417: 05,3151           55472                           TS       NEXTP                                 
009509,000418: 
009510,000419: 05,3152           44751                           CS       ACCSOKAY                              
009511,000420: 05,3153           70111                           MASK     DAPBOOLS                              
009512,000421: 05,3154           54111                           TS       DAPBOOLS                              
009513,000422: 
009514,000423: 05,3155           00006                           EXTEND                                         #  SET T5RUPT FOR DAPIDLER PROGRAM.
009515,000424: 05,3156           33363                           DCA      IDLEADR                               
009516,000425: 05,3157           53264                           DXCH     T5ADR                                 
009517,000426: 
009518,000427: 05,3160           40107                           CS       FLGWRD11                              #  IF R12 IS PERMITTED, ENSURE THAT NEXT
009519,000428: 05,3161           74735                           MASK     LRBYBIT                               #   RADAR READS ARE NOT USED
009520,000429: 05,3162           00006                           EXTEND                                         
009521,000430: 05,3163           13173                           BZF      STARTSB2                              #  R12 OFF
009522,000431: 
009523,000432: 05,3164           24006                           INCR     BBANK                                 #  SET EBANK TO 7
009524,000433: 05,3165  E7,1674                                  EBANK=   STILBADH                              
009525,000434: 05,3165           11674                           CCS      STILBADH                              #  IF STILBADH>0, NEXT READ WILL BE IGNORED

Page 227

009527,000436: 05,3166           13170                           TCF      +2                                    
009528,000437: 05,3167           25674                           INCR     STILBADH                              #  SET STILBADH TO IGNORE NEXT READ
009529,000438: 
009530,000439: 05,3170           11675                 +2        CCS      STILBADV                              
009531,000440: 05,3171           13173                           TCF      STARTSB2                              #  IF STILBADV >0,NEXT READ WILL BE IGNORED
009532,000441: 05,3172           25675                           INCR     STILBADV                              #  SET STILBADV TO IGNORE NEXT READ
009533,000442: 
009534,000443: 05,3173           33374        STARTSB2           CAF      OCT30001                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
009535,000444: 05,3174           00006                           EXTEND                                         #  ENGINE ON, OFF AND ISS WARNING.
009536,000445: 05,3175           03011                           WAND     DSALMOUT                              
009537,000446: 
009538,000447: 05,3176           43370                           CS       OCT32001                              
009539,000448: 05,3177           70110                           MASK     RADMODES                              
009540,000449: 05,3200           54110                           TS       RADMODES                              
009541,000450: 05,3201           33372                           CAF      OCT27470                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
009542,000451: 05,3202           00006                           EXTEND                                         #  IMU FLAGS. (COURSE ALIGN ENABLE, ZERO
009543,000452: 05,3203           03012                           WAND     CHAN12                                #  IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
009544,000453:                                                                                                  #  TRIM DRIVES. LEAVE RR LOCKON ENABLE
009545,000454:                                                                                                  #  ALONE.
009546,000455: 
009547,000456: 05,3204           44750                           CS       NORRMBIT                              #  ENABLE R25.
009548,000457: 05,3205           70101                           MASK     FLAGWRD5                              
009549,000458: 05,3206           54101                           TS       FLAGWRD5                              
009550,000459: 
009551,000460: 05,3207           44741                           CS       R77FLBIT                              #  CLEAR R77FLAG
009552,000461: 05,3210           70101                           MASK     FLAGWRD5                              
009553,000462: 05,3211           54101                           TS       FLAGWRD5                              
009554,000463: 05,3212           33373                           CAF      OCT74160                              #  DURING SOFTWARE RESTART, DO NOT DUSTURB
009555,000464: 05,3213           00006                           EXTEND                                         #  TELEMETRY FLAGS, RESET TRAP FLAGS, AND
009556,000465: 05,3214           03013                           WAND     CHAN13                                #  ENABLE T6RUPT FLAG.
009557,000466: 
009558,000467: 05,3215           34740                           CAF      BIT12                                 #  REENABLE RUPT10 (RUPT QUICKLY
009559,000468: 05,3216           00006                           EXTEND                                         #    RESUMES EXCEPT DURING P64)
009560,000469: 05,3217           05013                           WOR      CHAN13                                
009561,000470: 
009562,000471: 05,3220           34771                           CAF      OCT50                                 #  DURING SOFTWARE RESTART, DO NOT DISTURB
009563,000472: 05,3221           00006                           EXTEND                                         #  GYRO ENABLE OR THRUST ENABLE
009564,000473: 05,3222           03014                           WAND     CHAN14                                
009565,000474: 
009566,000475: 05,3223  E3,1400                                  EBANK=   LST1                                  
009567,000476: 05,3223           35007                           CAF      STARTEB                               
009568,000477: 05,3224           54003                           TS       EBANK                                 #  SET FOR E3
009569,000478: 
009570,000479: 05,3225           34734                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
009571,000480: 05,3226           55407                           TS       LST1       +7                         
009572,000481: 05,3227           55406                           TS       LST1       +6                         
009573,000482: 05,3230           55405                           TS       LST1       +5                         
009574,000483: 05,3231           55404                           TS       LST1       +4                         
009575,000484: 05,3232           55403                           TS       LST1       +3                         
009576,000485: 05,3233           55402                           TS       LST1       +2                         

Page 228

009578,000487: 05,3234           55401                           TS       LST1       +1                         
009579,000488: 05,3235           55400                           TS       LST1                                  
009580,000489: 
009581,000490: 05,3236           45247                           CS       ENDTASK                               
009582,000491: 05,3237           55410                           TS       LST2                                  
009583,000492: 05,3240           55412                           TS       LST2       +2                         
009584,000493: 05,3241           55414                           TS       LST2       +4                         
009585,000494: 05,3242           55416                           TS       LST2       +6                         
009586,000495: 05,3243           55420                           TS       LST2       +8D                        
009587,000496: 05,3244           55422                           TS       LST2       +10D                       
009588,000497: 05,3245           55424                           TS       LST2       +12D                       
009589,000498: 05,3246           55426                           TS       LST2       +14D                       
009590,000499: 05,3247           55430                           TS       LST2       +16D                       
009591,000500: 05,3250           45250                           CS       ENDTASK    +1                         
009592,000501: 05,3251           55411                           TS       LST2       +1                         
009593,000502: 05,3252           55413                           TS       LST2       +3                         
009594,000503: 05,3253           55415                           TS       LST2       +5                         
009595,000504: 05,3254           55417                           TS       LST2       +7                         
009596,000505: 05,3255           55421                           TS       LST2       +9D                        
009597,000506: 05,3256           55423                           TS       LST2       +11D                       
009598,000507: 05,3257           55425                           TS       LST2       +13D                       
009599,000508: 05,3260           55427                           TS       LST2       +15D                       
009600,000509: 05,3261           55431                           TS       LST2       +17D                       
009601,000510: 
009602,000511: 05,3262           44755                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
009603,000512: 05,3263           54167                           TS       PRIORITY                              #  AVAILABLE.
009604,000513: 05,3264           54203                           TS       PRIORITY   +12D                       
009605,000514: 05,3265           54217                           TS       PRIORITY   +24D                       
009606,000515: 05,3266           54233                           TS       PRIORITY   +36D                       
009607,000516: 05,3267           54247                           TS       PRIORITY   +48D                       
009608,000517: 05,3270           54263                           TS       PRIORITY   +60D                       
009609,000518: 05,3271           54277                           TS       PRIORITY   +72D                       
009610,000519: 05,3272           54313                           TS       PRIORITY   +84D                       
009611,000520: 
009612,000521: 05,3273           55310                           TS       DSRUPTSW                              
009613,000522: 05,3274           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
009614,000523: 
009615,000524: 05,3275           33367                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
009616,000525: 05,3276           54400                           TS       VAC1USE                               
009617,000526: 05,3277           63371                           AD       LTHVACA                               
009618,000527: 05,3300           54454                           TS       VAC2USE                               
009619,000528: 05,3301           63371                           AD       LTHVACA                               
009620,000529: 05,3302           54530                           TS       VAC3USE                               
009621,000530: 05,3303           63371                           AD       LTHVACA                               
009622,000531: 05,3304           54604                           TS       VAC4USE                               
009623,000532: 05,3305           63371                           AD       LTHVACA                               
009624,000533: 05,3306           54660                           TS       VAC5USE                               
009625,000534: 
009626,000535: 05,3307           34363                           CAF      TEN                                   
009627,000536: 05,3310           54154        DSPOFF             TS       MPAC                                  #  R1,R2,R3).

Page 229

009629,000538: 05,3311           44740                           CS       BIT12                                 
009630,000539: 05,3312           50154                           INDEX    MPAC                                  
009631,000540: 05,3313           55022                           TS       DSPTAB                                
009632,000541: 05,3314           10154                           CCS      MPAC                                  
009633,000542: 05,3315           13310                           TCF      DSPOFF                                
009634,000543: 
009635,000544: 05,3316           55323                           TS       DELAYLOC                              
009636,000545: 05,3317           55324                           TS       DELAYLOC   +1                         
009637,000546: 05,3320           55325                           TS       DELAYLOC   +2                         
009638,000547: 05,3321           55073                           TS       R1SAVE                                
009639,000548: 05,3322           54045                           TS       INLINK                                
009640,000549: 05,3323           54775                           TS       DSPCNT                                
009641,000550: 05,3324           55041                           TS       CADRSTOR                              
009642,000551: 05,3325           55012                           TS       REQRET                                
009643,000552: 05,3326           55014                           TS       CLPASS                                
009644,000553: 05,3327           55011                           TS       DSPLOCK                               
009645,000554: 05,3330           55017                           TS       MONSAVE                               #  KILL MONITOR
009646,000555: 05,3331           55020                           TS       MONSAVE1                              
009647,000556: 05,3332           55000                           TS       VERBREG                               
009648,000557: 05,3333           55001                           TS       NOUNREG                               
009649,000558: 05,3334           55042                           TS       DSPLIST                               
009650,000559: 05,3335           55307                           TS       MARKSTAT                              
009651,000560: 05,3336           55043                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
009652,000561: 05,3337           55301                           TS       IMUCADR                               
009653,000562: 05,3340           55302                           TS       OPTCADR                               
009654,000563: 05,3341           55303                           TS       RADCADR                               
009655,000564: 05,3342           55304                           TS       ATTCADR                               
009656,000565: 05,3343           55311                           TS       LGYRO                                 
009657,000566: 05,3344           54100                           TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
009658,000567: 05,3345           34760                           CAF      NOUTCON                               
009659,000568: 05,3346           55015                           TS       NOUT                                  
009660,000569: 
009661,000570: 05,3347           44753                           CS       ONE                                   
009662,000571: 05,3350           55077                           TS       SAMPLIM                               
009663,000572: 05,3351           34746                           CAF      BIT6                                  
009664,000573: 05,3352           71300                           MASK     IMODES33                              #  LEAVE BIT 6 UNCHANGED
009665,000574: 05,3353           65026                           AD       IM33INIT                              #  NO PIP OR TM FAILS.BIT6=0 IN THIS WORD.
009666,000575: 05,3354           55300                           TS       IMODES33                              
009667,000576: 
009668,000577: 05,3355           33366                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
009669,000578: 05,3356           55361                           TS       SELFRET                               
009670,000579: 
009671,000580: 05,3357           44360                           CS       VD1                                   
009672,000581: 05,3360           54776                           TS       DSPCOUNT                              
009673,000582: 
009674,000583: 05,3361           00002                           TC       Q                                     
009675,000584: 05,3362  E6,1536                                  EBANK=   AOSQ                                  
009676,000585: 05,3362           02024 34066  IDLEADR            2CADR    DAPIDLER                              
009677,000586: 
009678,000587: 05,3364           00435        IFAILINH           OCT      435                                   
009679,000588: 05,3365           03525        LDNPHAS1           GENADR   DNPHASE1                              
009680,000589: 05,3366           03371        LESCHK             GENADR   SELFCHK                               

Page 230

009682,000591: 05,3367           00400        VAC1ADRC           ADRES    VAC1USE                               
009683,000592: 05,3370           32001        OCT32001           OCT      32001                                 
009684,000593: 05,3371           00054        LTHVACA            DEC      44         B-14                       
009685,000594: 
009686,000595: 05,3372           27470        OCT27470           OCT      27470                                 
009687,000596: 05,3373           74160        OCT74160           OCT      74160                                 
009688,000597: 05,3374           30001        OCT30001           OCT      30001                                 
009689,000598: 05,3375     5007               STARTEB            EQUALS   EBANK3                                
009690,000599: 05,3375     4756               NUMGRPS            EQUALS   FIVE                                  
009691,000600: 05,3375           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
009692,000601: 05,3376           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
009693,000602: 05,3377           37000        IM30INIR           OCT      37000                                 
009694,000603: 05,3400     5026               IM33INIT           =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
009695,000604: 05,3400           00450        9,6,4              OCT      450                                   
009696,000605: 05,3401           00102        RMODINIT           OCT      00102                                 
009697,000606: 05,3402           00000        SWINIT             OCT      0                                     
009698,000607: 05,3403           00000                           OCT      0                                     
009699,000608: 05,3404           00000                           OCT      0                                     
009700,000609: 05,3405           00000                           OCT      0                                     
009701,000610: 05,3406           00000                           OCT      0                                     
009702,000611: 05,3407           00000                           OCT      0                                     
009703,000612: 05,3410           00000                           OCT      0                                     
009704,000613: 05,3411           00100                           OCT      00100                                 
009705,000614: 
009706,000615: 05,3412           00000                           OCT      0                                     
009707,000616: 05,3413           00000                           OCT      0                                     
009708,000617: 05,3414           00000                           OCT      0                                     
009709,000618: 05,3415           40000                           OCT      40000                                 #  BIT 15 = LRBYPASS.
009710,000619: 

Page 231

009712,000621:                                                                                                  #  PROGRAM NAME    GOTOPOOH                   ASSEMBLY       SUNDANCE
009713,000622:                                                                                                  #  LOG SECTION     FRESH START AND RESTART
009714,000623: 
009715,000624:                                                                                                  #  FUNCTIONAL DESCRIPTION
009716,000625: 
009717,000626:                                                                                                  #        FLASH V 37 ON DSKY %MM CHANGE REQUEST "
009718,000627: 
009719,000628:                                                                                                  #  INPUT/OUTPUT INFORMATION
009720,000629: 
009721,000630:                                                                                                  #        A. CALLING SEQUENCE        TC GOTOPOOH
009722,000631: 
009723,000632:                                                                                                  #        B. ERASABLE INITIALIZATION       NONE
009724,000633: 
009725,000634:                                                                                                  #        C. OUTPUT FLASH V 37 ON DSKY
009726,000635: 
009727,000636:                                                                                                  #        D. DEBRIS       L
009728,000637: 
009729,000638:                                                                                                  #  PROGRAM ANALYSIS
009730,000639: 
009731,000640:                                                                                                  #        A. SUBROUTINES CALLED PRIODSPR,  LINUS
009732,000641: 
009733,000642:                                                                                                  #        B. NORMAL EXIT        TCF ENDOFJOB
009734,000643: 
009735,000644:                                                                                                  #        C. ALARM AND ABORT EXITS       NONE
009736,000645: 
009737,000646:    6001                                           BLOCK    03                                    
009738,000647:    6000                                           SETLOC   FFTAG5                                
009739,000648:    6000                                           BANK                                           
009740,000649: 
009741,000650:    6001                                           COUNT*   $$/P00                                
009742,000651:    6001           34764        GOTOPOOH           CAF      OCT33                                 #  4.33 SPOT FOR GOPOOFIX
009743,000652:    6002           54001                           TS       L                                     
009744,000653:    6003           40000                           COM                                            
009745,000654:    6004           52760                           DXCH     -PHASE4                               
009746,000655: 
009747,000656:    6005           04635                           TC       POSTJUMP                              
009748,000657:    6006           10024                           CADR     GOPOOFIX                              
009749,000658:    6007           00024        OCT24              MM       20         B-14                       
009750,000659:    6010           00031        OCT31              MM       25         B-14                       
009751,000660: 
009752,000661: 20,2004                                           BANK     20                                    
009753,000662: 04,2000                                           SETLOC   VERB37                                
009754,000663: 04,2000                                           BANK                                           
009755,000664: 
009756,000665: 04,2024                                           COUNT*   $$/P00                                #  VERB 37 AND P00 IN BANK 4.
009757,000666: 04,2024           05527        GOPOOFIX           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE
009758,000667: 04,2025           00311                           ADRES    XOVINFLG                              
009759,000668: 
009760,000669: 04,2026           05527                           TC       DOWNFLAG                              #  INSURE THAT ULLAGE IS OFF
009761,000670: 04,2027           00314                           ADRES    ULLAGFLG                              
009762,000671: 

Page 232

009764,000673: 04,2030           05507                           TC       CLEARMRK   +2                         #  RELEASE MARK DISPLAY SYSTEM.
009765,000674: 04,2031           32037                           CAF      V37N99                                
009766,000675: 04,2032           04616                           TC       BANKCALL                              
009767,000676: 04,2033           20477                           CADR     GOFLASH                               
009768,000677: 04,2034           12031                           TCF      -3                                    
009769,000678: 04,2035           12031                           TCF      -4                                    
009770,000679: 04,2036           12031                           TCF      -5                                    
009771,000680: 
009772,000681: 04,2037           11343        V37N99             VN       3799                                  
009773,000682: 

Page 233

009775,000684:                                                                                                  #  PROGRAM NAME    V37                       ASSEMBLY      SUNDANCE
009776,000685: 
009777,000686:                                                                                                  #  LOG SECTION     FRESH START AND RESTART
009778,000687: 
009779,000688:                                                                                                  #  FUNCTIONAL DESCRIPTION
009780,000689: 
009781,000690:                                                                                                  #        1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2(NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
009782,000691:                                                                                                  #        2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM  IS SELECTED, THE OPERATOR ERROR LIGHT IS
009783,000692:                                                                                                  #           SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
009784,000693:                                                                                                  #        3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
009785,000694:                                                                                                  #        4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
009786,000695:                                                                                                  #        5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
009787,000696:                                                                                                  #        6. TRACK AND UPDATE FLAGS ARE SET TO ZERO.
009788,000697:                                                                                                  #        7. DISPLAY SYSTEM IS RELEASED.
009789,000698:                                                                                                  #        8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
009790,000699:                                                                                                  #           A. PROGRAM SELECTED IS P00.
009791,000700:                                                                                                  #              1. RENDEZVOUS AND P25 FLAGS ARE RESET.(KILL P20 AND P25)
009792,000701:                                                                                                  #              2. STATINT1     IS SCHEDULED BY SETTING RESTART GROUP 2.
009793,000702:                                                                                                  #              3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER(MODREG).
009794,000703:                                                                                                  #              4. SUPERBANK 3 IS SELECTED.
009795,000704:                                                                                                  #              5. NODOFLAG IS RESET.
009796,000705:                                                                                                  #              6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL ISTRANSFERRED TO RESTART PROGRAM (GOPROG2)
009797,000706:                                                                                                  #                 WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
009798,000707:                                                                                                  #                 INITIATED.
009799,000708:                                                                                                  #           B. PROGRAM SELECTED IS P20 OR P25.
009800,000709:                                                                                                  #              1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
009801,000710:                                                                                                  #                 VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
009802,000711:                                                                                                  #              2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
009803,000712:                                                                                                  #                 ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
009804,000713:                                                                                                  #                 AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
009805,000714:                                                                                                  #                 P20 OR P25 IS RESTARTED TO CONTINUE, AND ITS M M IS SET.
009806,000715:                                                                                                  #              3. CONTROL IS TRANSFERRED TO GOPROG2.
009807,000716:                                                                                                  #           C. PROGRAM SELECTED IS NEITHER P00,P20, NOR P25
009808,000717:                                                                                                  #              1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
009809,000718:                                                                                                  #              2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
009810,000719:                                                                                                  #                 GROUPS. IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP 2 IS NOT CLEARED, ALLOWING THESE PROGRAMS
009811,000720:                                                                                                  #                 TO CONTINUE.
009812,000721: 
009813,000722:                                                                                                  #  INPUT/OUTPUT INFORMATION
009814,000723: 
009815,000724:                                                                                                  #        A. CALLING SEQUENCE
009816,000725: 
009817,000726:                                                                                                  #            CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
009818,000727:                                                                                                  #               VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
009819,000728:                                                                                                  #               MMCHANG EXECUTES A   TC POSTJUMP, CADR V37.
009820,000729: 
009821,000730:                                                                                                  #        B. ERASABLE INITIALIZATION      NONE
009822,000731: 
009823,000732:                                                                                                  #        C. OUTPUT
009824,000733: 

Page 234

009826,000735:                                                                                                  #            MAJOR MODE CHANGE
009827,000736: 
009828,000737:                                                                                                  #        D. DEBRIS
009829,000738:                                                                                                  #             MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
009830,000739:                                                                                                  #             GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
009831,000740: 
009832,000741:                                                                                                  #  PROGRAM ANALYSIS
009833,000742: 
009834,000743:                                                                                                  #        A. SUBROUTINES CALLED
009835,000744:                                                                                                  #             ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
009836,000745:                                                                                                  #             DSPMM
009837,000746: 
009838,000747:                                                                                                  #        B. NORMAL EXIT        TC ENDOFJOB
009839,000748: 
009840,000749:                                                                                                  #        C. ALARMS      1520 (MAJOR MODE CHANGE NOT PERMITTED)
009841,000750: 
009842,000751: 04,2040           54774        V37                TS       MMNUMBER                              #  SAVE MAJOR MODE
009843,000752: 04,2041           34355                           CAF      PRIO30                                #  RESTART AT PINBALL PRIORITY
009844,000753: 04,2042           54366                           TS       RESTREG                               
009845,000754: 
009846,000755: 04,2043           31277                           CA       IMODES30                              #  IS IMU BEINB INITIALIZED
009847,000756: 04,2044           74746                           MASK     BIT6                                  
009848,000757: 04,2045           10000                           CCS      A                                     
009849,000758: 04,2046           12065                           TCF      CANTROO                               
009850,000759: 
009851,000760: 04,2047           40774                           CS       MMNUMBER                              #  IS P70 REQUESTED?
009852,000761: 04,2050           62411                           AD       DEC70                                 
009853,000762: 04,2051           00006                           EXTEND                                         
009854,000763: 04,2052           12404                           BZF      SETUP70                               #  YES
009855,000764: 04,2053           64753                           AD       ONE                                   #  IS P71 REQUESTED?
009856,000765: 04,2054           00006                           EXTEND                                         
009857,000766: 04,2055           12403                           BZF      SETUP71                               #  YES
009858,000767: 
009859,000768: 04,2056           30774                           CA       MMNUMBER                              #  IS NEW REQUEST POO
009860,000769: 04,2057           00006                           EXTEND                                         
009861,000770: 04,2060           12107                           BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
009862,000771: 
009863,000772: 04,2061           40076                           CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
009864,000773: 04,2062           74753                           MASK     NODOBIT                               
009865,000774: 04,2063           10000                           CCS      A                                     
009866,000775: 04,2064           12072                           TCF      CHECKTAB                              #  NO
009867,000776: 04,2065           05600        CANTROO            TC       ALARM                                 
009868,000777: 04,2066           01520                           OCT      1520                                  
009869,000778: 
009870,000779: 04,2067           04457        V37BAD             TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
009871,000780: 
009872,000781: 04,2070           04635                           TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
009873,000782: 04,2071           21051                           CADR     PINBRNCH                              #  WAS ONE. OTHERWISE DO AN EOJ.
009874,000783: 
009875,000784: 04,2072           32476        CHECKTAB           CA       NOV37MM                               #  INDEX FOR MM TABLES.

Page 235

009877,000786: 04,2073           54155        AGAINMM            TS       MPAC       +1                         
009878,000787: 04,2074           50155                           NDX      MPAC       +1                         
009879,000788: 04,2075           32445                           CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
009880,000789: 04,2076           76077                           MASK     LOW7                                  
009881,000790: 04,2077           40000                           COM                                            
009882,000791: 04,2100           60774                           AD       MMNUMBER                              
009883,000792: 04,2101           10000                           CCS      A                                     
009884,000793: 04,2102           10155                           CCS      MPAC       +1                         #  IF GR, SEE IF ANY MORE IN LIST
009885,000794: 04,2103           12073                           TCF      AGAINMM                               #  YES, GET NEXT ONE
009886,000795: 04,2104           12334                           TCF      V37NONO                               #  LAST TIME OR PASSED MM
009887,000796: 
009888,000797: 04,2105           30155                           CA       MPAC       +1                         
009889,000798: 04,2106           54773                           TS       MINDEX                                #  SAVE INDEX FOR LATER
009890,000799: 
009891,000800: 04,2107           40103        ISSERVON           CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
009892,000801: 04,2110           74746                           MASK     V37FLBIT                              
009893,000802: 04,2111           10000                           CCS      A                                     
009894,000803: 04,2112           12136                           TCF      CANV37                                #  NO
009895,000804: 
009896,000805: 04,2113           04727                           TC       SUPERSW                               
009897,000806: 04,2114           00004                           INHINT                                         
009898,000807: 04,2115           04674                           TC       IBNKCALL                              #  YES, TURN ENGINE OFF
009899,000808: 04,2116           75564                           CADR     ENGINOF1                              
009900,000809: 04,2117           05527                           TC       DOWNFLAG                              #  NOW TURN OFF THE AVERAGE G FLAG AND
009901,000810: 04,2120           00163                           ADRES    AVEGFLAG                              #  WAIT FOR SERVICER TO RETURN TO V37RET.
009902,000811: 
009903,000812: 04,2121           15155                           TCF      ENDOFJOB                              
009904,000813: 
009905,000814: 04,2122           40074        V37RET             CS       FLAGWRD0                              #  IS P20 OR P22 RUNNING?
009906,000815: 04,2123           74745                           MASK     RNDVZBIT                              
009907,000816: 04,2124           10000                           CCS      A                                     
009908,000817: 04,2125           12127                           TCF      +2                                    #  NO. CHECK FOR P25.
009909,000818: 04,2126           12134                           TCF      2.7SPT                                #  YES.  DO 2.7SPOT
009910,000819: 04,2127           40074                           CS       FLAGWRD0                              #  IS P25 RUNNING?
009911,000820: 04,2130           74743                           MASK     P25FLBIT                              
009912,000821: 04,2131           10000                           CCS      A                                     
009913,000822: 04,2132           32400        2.0SPT             CA       OCT37667                              
009914,000823: 04,2133           64747        2.11SPT            AD       BIT5                                  
009915,000824: 04,2134           62401        2.7SPT             AD       OCT40072                              
009916,000825: 04,2135           05370                           TC       PHSCHNGA                              
009917,000826: 
009918,000827: 04,2136           34755        CANV37             CAF      ZERO                                  
009919,000828: 04,2137           00006                           EXTEND                                         
009920,000829: 04,2140           01007                           WRITE    SUPERBNK                              
009921,000830: 
009922,000831: 04,2141           32377                           CAF      ROOAD                                 
009923,000832: 04,2142           54374                           TS       TEMPFLSH                              
009924,000833: 
009925,000834: 04,2143           05364                           TC       PHASCHNG                              
009926,000835: 04,2144           00014                           OCT      14                                    
009927,000836: 

Page 236

009929,000838: 04,2145           06042        ROO                TC       INTPRET                               
009930,000839: 
009931,000840: 04,2146           77624                           CALL                                           #  WAIT FOR INTEGRATION TO FINISH
009932,000841: 04,2147           27410                                    INTSTALL                              
009933,000842: 04,2150           77776        DUMMYAD            EXIT                                           
009934,000843: 
009935,000844: 04,2151           05527                           TC       DOWNFLAG                              
009936,000845: 04,2152           00124                           ADRES    3AXISFLG                              #  RESET 3-AXIS FLAG
009937,000846: 
009938,000847: 04,2153           05527                           TC       DOWNFLAG                              
009939,000848: 04,2154           00055                           ADRES    POOHFLAG                              
009940,000849: 
009941,000850: 04,2155           34735                           CAF      LRBYBIT                               #  CLEAN UP THE R12 FLAGWORD.
009942,000851: 04,2156           54107                           TS       FLGWRD11                              
009943,000852: 
009944,000853: 04,2157           05527                           TC       DOWNFLAG                              #  INSURE THAT THE R04FLAG IS CLEAR.
009945,000854: 04,2160           00063                           ADRES    R04FLAG                               
009946,000855: 
009947,000856: 04,2161           05527                           TC       DOWNFLAG                              
009948,000857: 04,2162           00056                           ADRES    GLOKFAIL                              #  FLAGWORD 3 BIT 14
009949,000858: 
009950,000859: 04,2163           05527                           TC       DOWNFLAG                              #  INSURE MUNFLAG IS CLEAR.
009951,000860: 04,2164           00141                           ADRES    MUNFLAG                               
009952,000861: 
009953,000862: 04,2165           05527                           TC       DOWNFLAG                              #  RESET ABORT TARGETING FLAG (USE
009954,000863: 04,2166           00217                           ADRES    ABTTGFLG                              #    PARAMETERS J1 AND KU)
009955,000864: 
009956,000865: 04,2167           05527                           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE.
009957,000866: 04,2170           00311                           ADRES    XOVINFLG                              
009958,000867: 04,2171           10774                           CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
009959,000868: 04,2172           12322                           TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
009960,000869: 
009961,000870: 04,2173           04457        POOH               TC       RELDSP                                #  RELEASE DISPLAY SYSTEM
009962,000871: 
009963,000872: 04,2174           35017                           CAF      PRIO5                                 #  SET VARIABLE RESTART PRIORITY FOR
009964,000873: 04,2175           55055                           TS       PHSPRDT2                              #  P00 INTEGRATION.
009965,000874: 
009966,000875: 04,2176           06011                           TC       CLRADMOD                              #  CLRADMOD DOES AN INHINT.
009967,000876: 
009968,000877: 04,2177           44753                           CS       NODOBIT                               #  TURN OFF NODOFLAG.
009969,000878: 04,2200           70076                           MASK     FLAGWRD2                              
009970,000879: 04,2201           54076                           TS       FLAGWRD2                              
009971,000880: 
009972,000881: 04,2202           34756                           CA       FIVE                                  #  SET RESTART FOR STATEINT1
009973,000882: 04,2203           54001                           TS       L                                     
009974,000883: 04,2204           40000                           COM                                            
009975,000884: 04,2205           52754                           DXCH     -PHASE2                               
009976,000885: 
009977,000886: 04,2206           42402                           CS       OCT700                                #  TURN OFF P20,P25,IMU IN USE FLAG
009978,000887: 04,2207           70074                           MASK     FLAGWRD0                              

Page 237

009980,000889: 04,2210           54074                           TS       FLAGWRD0                              #                         RENDFLG
009981,000890: 
009982,000891: 04,2211           34755                           CAF      DNLADP00                              
009983,000892: 
009984,000893: 04,2212           54333        SEUDOPOO           TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST CODE
009985,000894: 04,2213           55321                           TS       AGSWORD                               #   (CURRENT LIST WILL BE COMPLETED BEFORE
009986,000895:                                                                                                  #    NEW ONE IS STARTED)
009987,000896: 04,2214           44741                           CS       NOP07BIT                              
009988,000897: 04,2215           70077                           MASK     FLAGWRD3                              
009989,000898: 04,2216           64741                           AD       NOP07BIT                              
009990,000899: 04,2217           54077                           TS       FLAGWRD3                              
009991,000900: 
009992,000901: 04,2220           04674                           TC       IBNKCALL                              #  INSURE ALLCOAST.
009993,000902: 04,2221           40205                           CADR     ALLCOAST                              #  DOES A RESTORDB.
009994,000903: 
009995,000904: 04,2222           44775                           CS       OCT120                                #  TURN OFF TRACK, UPDATE FLAGS
009996,000905: 04,2223           55071                           TS       EBANKTEM                              
009997,000906: 04,2224           70075                           MASK     FLAGWRD1                              
009998,000907: 04,2225           54075                           TS       FLAGWRD1                              
009999,000908: 
010000,000909: 04,2226           04674                           TC       IBNKCALL                              #  KILL GROUPS 1,3,5,6
010001,000910: 04,2227           12664                           CADR     V37KLEAN                              
010002,000911: 
010003,000912: 04,2230           10774                           CCS      MMNUMBER                              #  IS IT POOH
010004,000913: 04,2231           12240                           TCF      RENDVOO                               #  NO
010005,000914: 04,2232           04674        GOMOD              TC       IBNKCALL                              #  REDUNDANT EXCEPT FOR GROUP 4
010006,000915: 04,2233           12661                           CADR     POOKLEAN                              
010007,000916: 
010008,000917: 04,2234           30774                           CA       MMNUMBER                              
010009,000918: 04,2235           55010                           TS       MODREG                                
010010,000919: 
010011,000920: 04,2236           04635        GOGOPROG           TC       POSTJUMP                              
010012,000921: 04,2237           13002                           CADR     GOPROG2                               
010013,000922: 
010014,000923: 04,2240           41010        RENDVOO            CS       MODREG                                #  IS CURRENT PROGRAM 22
010015,000924: 04,2241           62340                           AD       OCT26                                 
010016,000925: 04,2242           00006                           EXTEND                                         
010017,000926: 04,2243           12262                           BZF      RESET22                               #  YES - CLEAR RENDEZVOUS FLAG
010018,000927: 
010019,000928: 
010020,000929: 04,2244           40774                           CS       MMNUMBER                              #  IS NEW PROGRAM P22
010021,000930: 04,2245           62340                           AD       OCT26                                 
010022,000931: 04,2246           00006                           EXTEND                                         
010023,000932: 04,2247           12262                           BZF      RESET22                               
010024,000933: 
010025,000934: 
010026,000935: 04,2250           67751                           AD       NEG2                                  #  IS NEW PROGRAM = P20 OR P25
010027,000936: 04,2251           00006                           EXTEND                                         
010028,000937: 04,2252           12274                           BZF      RENDNOO                               #  YES
010029,000938: 04,2253           64756                           AD       FIVE                                  #  25

Page 238

010031,000940: 04,2254           00006                           EXTEND                                         
010032,000941: 04,2255           12274                           BZF      RENDNOO                               #  YES
010033,000942: 
010034,000943: 04,2256           32336                           CA       OCT500                                #  NO, IS EITHER P20 OR P25 RUNNING
010035,000944: 04,2257           70074                           MASK     FLAGWRD0                              
010036,000945: 04,2260           10000                           CCS      A                                     
010037,000946: 04,2261           12271                           TCF      POOFIZZ                               #  YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
010038,000947: 
010039,000948: 04,2262           42402        RESET22            CS       OCT700                                #  CLEAR RENDEZVOUS,P25
010040,000949: 04,2263           70074                           MASK     FLAGWRD0                              #  AND IMU IN USE FLAGS
010041,000950: 04,2264           54074                           TS       FLAGWRD0                              
010042,000951: 04,2265           06011                           TC       CLRADMOD                              
010043,000952: 
010044,000953: 04,2266           00006        KILL2              EXTEND                                         #  NO, KILL 2
010045,000954: 04,2267           34755                           DCA      NEG0                                  
010046,000955: 04,2270           52754                           DXCH     -PHASE2                               
010047,000956: 
010048,000957: 04,2271           32376        POOFIZZ            CAF      V37QCAD                               #  RESTART POINT FOR V37XEQ
010049,000958: 04,2272           54374                           TS       TEMPFLSH                              
010050,000959: 
010051,000960: 04,2273           12236                           TCF      GOGOPROG                              
010052,000961: 
010053,000962: 04,2274           41010        RENDNOO            CS       MODREG                                
010054,000963: 04,2275           66007                           AD       OCT24                                 
010055,000964: 04,2276           00006                           EXTEND                                         
010056,000965: 04,2277           12266                           BZF      KILL2                                 #  P20 OR P25 ON TOP OF P20 OR P25 -
010057,000966: 
010058,000967: 04,2300           64756                           AD       FIVE                                  
010059,000968: 04,2301           00006                           EXTEND                                         
010060,000969: 04,2302           12266                           BZF      KILL2                                 
010061,000970: 
010062,000971: 04,2303           32336                           CA       OCT500                                
010063,000972: 04,2304           70074                           MASK     FLAGWRD0                              
010064,000973: 04,2305           60774                           AD       MMNUMBER                              
010065,000974: 04,2306           40000                           COM                                            
010066,000975: 04,2307           62341                           AD       P20REG                                #  IS IT 20 AND IS RENDEZVOUS FLAG ON
010067,000976: 04,2310           00006                           EXTEND                                         
010068,000977: 04,2311           12316                           BZF      STATQUO                               #  YES
010069,000978: 04,2312           62337                           AD       OCT305                                #  IS IT 25 AND IS P25 BIT ON
010070,000979: 04,2313           00006                           EXTEND                                         
010071,000980: 04,2314           12316                           BZF      STATQUO                               #  YES, LEAVE AS IS
010072,000981: 04,2315           12266                           TCF      KILL2                                 
010073,000982: 
010074,000983: 04,2316           40075        STATQUO            CS       FLAGWRD1                              #  SET TRACKFLAG
010075,000984: 04,2317           74775                           MASK     OCT120                                #      UPDATE FLAG
010076,000985: 04,2320           26075                           ADS      FLAGWRD1                              
010077,000986: 
010078,000987: 04,2321           12232                           TCF      GOMOD                                 
010079,000988: 
010080,000989: 04,2322           32336        NOUVEAU            CAF      OCT500                                #  IS P20 OR P25 FLAG SET

Page 239

010082,000991: 04,2323           70074                           MASK     FLAGWRD0                              
010083,000992: 04,2324           10000                           CCS      A                                     
010084,000993: 04,2325           12330                           TCF      +3                                    #  YES
010085,000994: 04,2326           05527                           TC       DOWNFLAG                              #  NO,RESET IMUINUSE FLAG
010086,000995: 04,2327           00007                           ADRES    IMUSE                                 
010087,000996: 
010088,000997: 04,2330           50773                           INDEX    MINDEX                                
010089,000998: 04,2331           32477                           CAF      DNLADMM1                              #  OBTAIN APPROPRIATE DOWNLIST ADDRESS
010090,000999: 
010091,001000: 04,2332           00004                           INHINT                                         
010092,001001: 04,2333           12212                           TCF      SEUDOPOO                              
010093,001002: 
010094,001003: 04,2334           04364        V37NONO            TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST
010095,001004: 
010096,001005: 04,2335           12067                           TCF      V37BAD                                
010097,001006: 
010098,001007: 04,2336     4750               OCT00010           EQUALS   BIT4                                  
010099,001008: 04,2336           00500        OCT500             OCT      500                                   #  BITS 7 AND 9
010100,001009: 04,2337           00305        OCT305             OCT      305                                   
010101,001010: 04,2340           00026        OCT26              OCT      26                                    
010102,001011: 04,2341           00124        P20REG             OCT      124                                   
010103,001012: 
010104,001013: 04,2342           00004        V37XEQ             INHINT                                         
010105,001014: 04,2343           50773                           INDEX    MINDEX                                
010106,001015: 04,2344           32445                           CAF      PREMM1                                #  OBTAIN PRIO, EBANK, AND MM
010107,001016: 04,2345           55057                           TS       MMTEMP                                
010108,001017: 04,2346           54020                           TS       CYR                                   #  SHIFT RIGHT TO BITS 14 - 10
010109,001018: 
010110,001019: 04,2347           30020                           CA       CYR                                   
010111,001020: 04,2350           77730                           MASK     PRIO37                                
010112,001021: 04,2351           55061                           TS       PHSPRDT4                              #  PRESET GROUP 4 RESTART PRIORITY
010113,001022: 04,2352           54063                           TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
010114,001023: 
010115,001024: 04,2353           31057                           CA       MMTEMP                                #  OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
010116,001025: 04,2354           00006                           EXTEND                                         
010117,001026: 04,2355           74744                           MP       BIT8                                  
010118,001027: 04,2356           74757                           MASK     LOW3                                  
010119,001028: 04,2357           54001                           TS       L                                     
010120,001029: 
010121,001030: 04,2360           50773                           INDEX    MINDEX                                
010122,001031: 04,2361           32414                           CAF      FCADRMM1                              
010123,001032: 04,2362           55060                           TS       BASETEMP                              #  MAKE BBCON BY ADDING HI5 OF FCADR
010124,001033: 04,2363           74350                           MASK     HI5                                   
010125,001034: 04,2364           26001                           ADS      L                                     
010126,001035: 
010127,001036: 04,2365           31060                           CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
010128,001037: 04,2366           75012                           MASK     LOW10                                 
010129,001038: 04,2367           64741                           AD       BIT11                                 
010130,001039: 
010131,001040: 04,2370           05116                           TC       SPVAC                                 
010132,001041: 

Page 240

010134,001043: 04,2371           31057        V37XEQC            CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
010135,001044: 04,2372           76077                           MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
010136,001045: 04,2373           05325                           TC       NEWMODEA                              #  PHSPRDT1)
010137,001046: 
010138,001047: 04,2374           04457                           TC       RELDSP                                #  RELEASE DISPLAY
010139,001048: 04,2375           05155                           TC       ENDOFJOB                              #  AND EXIT
010140,001049: 
010141,001050: 04,2376     5661               NEG7               EQUALS   OCT77770                              
010142,001051: 
010143,001052: 04,2376     1057               MMTEMP             EQUALS   PHSPRDT3                              
010144,001053: 04,2376     1060               BASETEMP           EQUALS   TBASE4                                
010145,001054: 04,2376           10345        V37QCAD            CADR     V37XEQ     +3                         
010146,001055: 04,2377           10150        ROOAD              CADR     DUMMYAD                               
010147,001056: 04,2400           37667        OCT37667           OCT      37667                                 
010148,001057: 04,2401           40072        OCT40072           OCT      40072                                 
010149,001058: 04,2402           00700        OCT700             OCT      700                                   
010150,001059: 
010151,001060: 04,2403           36250        SETUP71            CAF      THREE                                 
010152,001061: 04,2404           54002        SETUP70            TS       Q                                     
010153,001062: 04,2405           00006                           EXTEND                                         
010154,001063: 04,2406           32413                           DCA      P70CADR                               
010155,001064: 04,2407           60002                           AD       Q                                     
010156,001065: 04,2410           52006                           DTCB                                           
010157,001066: 
010158,001067: 04,2411           00106        DEC70              DEC      70         B-14                       
010159,001068: 04,2412  E7,1520                                  EBANK=   R                                     
010160,001069: 04,2412           02072 42067  P70CADR            2CADR    P70                                   
010161,001070:                                                                                                  #  FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
010162,001071:                                                                                                  #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
010163,001072:                                                                                                  #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
010164,001073: 
010165,001074:                                                                                                  #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
010166,001075: 
010167,001076:                                                                                                  #           THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
010168,001077:                                                                                                  #  THE MAJOR MODE.   FOR EXAMPLE,
010169,001078: 
010170,001079:                                                                                                  #                                          FCADRMM1 FCADR   P79             START OF P 79
010171,001080:                                                                                                  #                                                   FCADR   PROG18          START OF P 18
010172,001081:                                                                                                  #                                                   FCADR   P01             START OF P 01
010173,001082: 
010174,001083:                                                                                                  #  NOTE,    THE FIRST ENTRY MUST BE LABLED FCADRMM1.
010175,001084:                                                                                                  #  ----
010176,001085: 
010177,001086: 04,2414           26207        FCADRMM1           FCADR    P76                                   
010178,001087: 04,2415           72641                           FCADR    P75                                   
010179,001088: 04,2416           72457                           FCADR    P74                                   
010180,001089: 04,2417           72225                           FCADR    P73                                   
010181,001090: 04,2420           72036                           FCADR    P72                                   
010182,001091: 04,2421           71271                           FCADR    LANDJUNK                              

Page 241

010184,001093: 04,2422           64562                           FCADR    P63LM                                 
010185,001094: 04,2423           33271                           FCADR    P57                                   
010186,001095: 04,2424           32050                           FCADR    PROG52                                
010187,001096: 04,2425           31421                           FCADR    P51                                   
010188,001097: 04,2426           75445                           FCADR    P47LM                                 
010189,001098: 04,2427           75417                           FCADR    P42LM                                 
010190,001099: 04,2430           75277                           FCADR    P41LM                                 
010191,001100: 04,2431           75154                           FCADR    P40LM                                 
010192,001101: 04,2432           72635                           FCADR    P35                                   
010193,001102: 04,2433           72455                           FCADR    P34                                   
010194,001103: 04,2434           72223                           FCADR    P33                                   
010195,001104: 04,2435           72034                           FCADR    P32                                   
010196,001105: 04,2436           72000                           FCADR    P30                                   
010197,001106: 04,2437           50462                           FCADR    PROG25                                
010198,001107: 04,2440           50000                           FCADR    PROG22                                
010199,001108: 04,2441           51440                           FCADR    PROG21                                
010200,001109: 04,2442           50000                           FCADR    PROG20                                
010201,001110: 04,2443           60061                           FCADR    P12LM                                 
010202,001111: 04,2444           77654                           FCADR    P06                                   
010203,001112:                                                                                                  #           THE PREMM TABLE CONTAINS THE E-BANK,MAJOR MODE, AND PRIORITY
010204,001113:                                                                                                  #  INFORMATION, IT IS IN THE FOLLOWING FORM,
010205,001114: 
010206,001115:                                                                                                  #           PPP PPE EEM MMM MMM
010207,001116: 
010208,001117:                                                                                                  #           WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER
010209,001118:                                                                                                  #                      3 E BITS CONTAIN THE E-BANK NUMBER
010210,001119:                                                                                                  #                      5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
010211,001120:                                                                                                  #                          TO BE STARTED
010212,001121: 
010213,001122:                                                                                                  #           FOR EXAMPLE,
010214,001123: 
010215,001124:                                                                                                  #                                          PREMM1   OCT     67213           PRIORITY      33
010216,001125:                                                                                                  #                                                                           E-BANK         5
010217,001126:                                                                                                  #                                                                           MAJOR MODE    11
010218,001127:                                                                                                  #                                                   OCT     25437           PRIORITY       12
010219,001128:                                                                                                  #                                                                           E-BANK         6
010220,001129:                                                                                                  #                                                                           MAJOR MODE    31
010221,001130: 
010222,001131:                                                                                                  #  NOTE,     THE FIRST ENTRY MUST BE LABELED PREMM1
010223,001132: 04,2445           27714        PREMM1             OCT      27714                                 #  MM 76  EBANK 7  PRIO 13
010224,001133: 04,2446           27713                           OCT      27713                                 #  MM 75  EBANK 7  PRIO 13
010225,001134: 04,2447           27712                           OCT      27712                                 #  MM 74  EBANK 7  PRIO 13
010226,001135: 04,2450           27711                           OCT      27711                                 #  MM 73  EBANK 7  PRIO 13
010227,001136: 04,2451           27710                           OCT      27710                                 #  MM 72  EBANK 7  PRIO 13
010228,001137: 04,2452           27704                           OCT      27704                                 #  MM 68  EBANK 7  PRIO 13
010229,001138: 04,2453           27677                           OCT      27677                                 #  MM 63  EBANK 7  PRIO 13
010230,001139: 04,2454           27271                           OCT      27271                                 #  MM 57  EBANK 5  PRIO 13
010231,001140: 04,2455           27264                           OCT      27264                                 #  MM 52  EBANK 5  PRIO 13
010232,001141: 04,2456           27263                           OCT      27263                                 #  MM 51  EBANK 5  PRIO 13
010233,001142: 04,2457           27657                           OCT      27657                                 #  MM 47  EBANK 7  PRIO 13

Page 242

010235,001144: 04,2460           27652                           OCT      27652                                 #  MM 42  EBANK 7  PRIO 13
010236,001145: 04,2461           27651                           OCT      27651                                 #  MM 41  EBANK 7  PRIO 13
010237,001146: 04,2462           27650                           OCT      27650                                 #  MM 40  EBANK 7  PRIO 13
010238,001147: 04,2463           27643                           OCT      27643                                 #  MM 35  EBANK 7  PRIO 13
010239,001148: 04,2464           27642                           OCT      27642                                 #  MM 34  EBANK 7  PRIO 13
010240,001149: 04,2465           27641                           OCT      27641                                 #  MM 33  EBANK 7  PRIO 13
010241,001150: 04,2466           27640                           OCT      27640                                 #  MM 32  EBANK 7  PRIO 13
010242,001151: 04,2467           27636                           OCT      27636                                 #  MM 30  EBANK 7  PRIO 13
010243,001152: 04,2470           27631                           OCT      27631                                 #  MM 25  EBANK 7  PRIO 13
010244,001153: 04,2471           27626                           OCT      27626                                 #  MM 22  EBANK 7  PRIO 13
010245,001154: 04,2472           27625                           OCT      27625                                 #  MM 21  EBANK 7  PRIO 13
010246,001155: 04,2473           27624                           OCT      27624                                 #  MM 20  EBANK 7  PRIO 13
010247,001156: 04,2474           27614                           OCT      27614                                 #  MM 12  EBANK 7  PRIO 13
010248,001157: 04,2475           27006                           OCT      27006                                 #  MM 06  EBANK 4  PRIO 13
010249,001158:                                                                                                  #  NOTE,     THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
010250,001159:                                                                                                  #  ----      THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
010251,001160:                                                                                                  #            THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
010252,001161: 
010253,001162: 04,2476           00030        NOV37MM            DEC      24         B-14                       #  MM'S -1
010254,001163: 
010255,001164: 04,2477           00002        DNLADMM1           ADRES    RENDEZVL                              #  P76
010256,001165: 04,2500           00002                           ADRES    RENDEZVL                              #  P75
010257,001166: 04,2501           00002                           ADRES    RENDEZVL                              #  P74
010258,001167: 04,2502           00002                           ADRES    RENDEZVL                              #  P73
010259,001168: 04,2503           00002                           ADRES    RENDEZVL                              #  P72
010260,001169: 04,2504           00004                           ADRES    DESASCNT                              #  P68
010261,001170: 04,2505           00004                           ADRES    DESASCNT                              #  P63
010262,001171: 04,2506           00005                           ADRES    LUNRSALN                              #  P57
010263,001172: 04,2507           00000                           ADRES    COSTALIL                              #  P52
010264,001173: 04,2510           00000                           ADRES    COSTALIL                              #  P51
010265,001174: 04,2511           00003                           ADRES    ORBMANUL                              #  P47
010266,001175: 04,2512           00003                           ADRES    ORBMANUL                              #  P42
010267,001176: 04,2513           00003                           ADRES    ORBMANUL                              #  P41
010268,001177: 04,2514           00003                           ADRES    ORBMANUL                              #  P40
010269,001178: 04,2515           00002                           ADRES    RENDEZVL                              #  P35
010270,001179: 04,2516           00002                           ADRES    RENDEZVL                              #  P34
010271,001180: 04,2517           00002                           ADRES    RENDEZVL                              #  P33
010272,001181: 04,2520           00002                           ADRES    RENDEZVL                              #  P32
010273,001182: 04,2521           00002                           ADRES    RENDEZVL                              #  P30
010274,001183: 04,2522           00002                           ADRES    RENDEZVL                              #  P25
010275,001184: 04,2523           00005                           ADRES    LUNRSALN                              #  P22
010276,001185: 04,2524           00002                           ADRES    RENDEZVL                              #  P21
010277,001186: 04,2525           00002                           ADRES    RENDEZVL                              #  P20
010278,001187: 04,2526           00004                           ADRES    DESASCNT                              #  P12
010279,001188: 04,2527           00000                           ADRES    COSTALIL                              #  P06
010280,001189: 04,2530     4755               DNLADP00           =        ZERO                                  
010281,001190: 04,2530                        COSTALIL           =        0                                     
010282,001191: 04,2530                        AGSUPDAT           =        1                                     
010283,001192: 04,2530                        RENDEZVL           =        2                                     
010284,001193: 04,2530                        ORBMANUL           =        3                                     

Page 243

010286,001195: 04,2530                        DESASCNT           =        4                                     
010287,001196: 04,2530                        LUNRSALN           =        5                                     
010288,001197: 13,2026                                           BANK     13                                    
010289,001198: 13,2000                                           SETLOC   INTINIT                               
010290,001199: 13,2000                                           BANK                                           
010291,001200: 
010292,001201: 13,2026                                           COUNT*   $$/INTIN                              
010293,001202: 
010294,001203: 13,2026  E3,1554                                  EBANK=   RRECTCSM                              
010295,001204: 
010296,001205:                                                                                                  #  THIS ROUTINE DOES THE POO INTEGRATION
010297,001206: 
010298,001207: 13,2026           43014        STATEUP            SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
010299,001208: 13,2027           01474                                    VINTFLAG                              
010300,001209: 13,2030           04347                                    SURFFLAG                              #  ALSO 6X6 W-MATRIX IF LM ON LUNAR
010301,001210: 13,2031           26036                                    DOINT                                 #       SURFACE AND W-MATRIX VALID
010302,001211: 13,2032           43014                           BOF      SET                                   #       FOR RENDEZVOUS NAVIGATION.
010303,001212: 13,2033           02756                                    RENDWFLG                              
010304,001213: 13,2034           26036                                    DOINT                                 
010305,001214: 13,2035           01476                                    DIM0FLAG                              
010306,001215: 13,2036           45014        DOINT              CLEAR    CALL                                  
010307,001216: 13,2037           01667                                    PRECIFLG                              #  ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
010308,001217: 13,2040           27133                                    INTEGRV                               #  WHEN MODREG = 0
010309,001218: 
010310,001219: 13,2041           71214                           BON      DLOAD                                 
010311,001220: 13,2042           04307                                    SURFFLAG                              
010312,001221: 13,2043           26063                                    NO-INT                                
010313,001222: 13,2044           01571                                    TETCSM                                
010314,001223: 13,2045           34041                           STCALL   TDEC1                                 
010315,001224: 13,2046           27410                                    INTSTALL                              
010316,001225: 13,2047           45014                           CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
010317,001226: 13,2050           01674                                    VINTFLAG                              
010318,001227: 13,2051           26643                                    SETIFLGS                              
010319,001228: 13,2052           77614                           BOF                                            #  ALSO 9X9 W-MATRIX IF W IS VALID
010320,001229: 13,2053           02756                                    RENDWFLG                              
010321,001230: 13,2054           26060                                    DOINT2                                
010322,001231: 13,2055           43014                           SET      SET                                   
010323,001232: 13,2056           01476                                    DIM0FLAG                              
010324,001233: 13,2057           01475                                    D6OR9FLG                              
010325,001234: 13,2060           45014        DOINT2             SET      CALL                                  
010326,001235: 13,2061           01467                                    PRECIFLG                              #  DISENGAGE 4 TIME STEP LOGIC IN INTEG.
010327,001236: 13,2062           27133                                    INTEGRV                               
010328,001237: 13,2063           77614        NO-INT             CLRGO                                          
010329,001238: 13,2064           01236                                    NODOFLAG                              
010330,001239: 13,2065           26631                                    ENDINT                                
010331,001240: 
010332,001241: 
010333,001242:                                                                                                  #  THISVINT IS CALLED BY MIDTOAV1 AND2
010334,001243: 
010335,001244: 13,2066           43414        THISVINT           CLEAR    RVQ                                   

Page 244

010337,001246: 13,2067           01674                                    VINTFLAG                              

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