Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

008518,000002:                                                                                                  ## Copyright:   Public domain.
008519,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
008520,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
008521,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
008522,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
008523,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
008524,000008:                                                                                                  ##              that the code format has been changed to conform to the
008525,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the 
008526,000010:                                                                                                  ##              original YUL assembler.
008527,000011:                                                                                                  ## Reference:   pp. 213-238
008528,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
008529,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
008530,000014:                                                                                                  ## Mod history: 05/06/03 RSB.   Began transcribing.
008531,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
008532,000016:                                                                                                  ##              2010-10-25 JL   Added missing # to comment. Indentation fixes.
008533,000017:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
008534,000018:                                                                                                  ##                              original harcopy, as opposed to the PDF page
008535,000019:                                                                                                  ##                              numbers in 1701.pdf.
008536,000020:                                                                                                  ##              2017-02-22 RSB  Proofed comment text using octopus/ProoferComments.
008537,000021:                                                                                                  ##                              Changed P00H to POOH.
008538,000022:                                                                                                  ##              2017-02-28 RSB  Fixed lingering typos.
008539,000023:                                                                                                  ##              2017-03-02 RSB  P00HFLAG --> POOHFLAG.
008540,000024:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
008541,000025:                                                                                                  ##                              GOP00FIX -> GOPOOFIX.
008542,000026:                                                                                                  ##              2017-08-15 RSB  Comment-text fixes identified in proofing vs AP11ROPE.
008543,000027:                                                                                                  ##              2017-08-19 MAS  Fixed label errors found transcribing Zerlina 56.
008544,000028: 

Page 213

008546,000030: 10,2000                                           BANK     10                                    
008547,000031: 05,2000                                           SETLOC   FRANDRES                              
008548,000032: 05,2000                                           BANK                                           
008549,000033: 
008550,000034: 05,2447  E3,1400                                  EBANK=   LST1                                  
008551,000035: 
008552,000036: 05,2447                                           COUNT*   $$/START                              #  FRESH AND RESTART
008553,000037: 05,2447           00004        SLAP1              INHINT                                         #  FRESH START.  COMES HERE FROM PINBALL.
008554,000038: 05,2450           03105                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
008555,000039: 
008556,000040: 05,2451           12456        STARTSW            TCF      SKIPSIM                               #  PATCH....TCF STARTSIM...FOR SIMULATION
008557,000041: 05,2452           34736        STARTSIM           CAF      BIT14                                 
008558,000042: 05,2453           05105                           TC       FINDVAC                               
008559,000043: 05,2454           77777        SIM2CADR           OCT      77777                                 #  PATCH 2CADR (AND EBANK DESIGNATION) OF
008560,000044: 05,2455           77777                           OCT      77777                                 #  SIMULATION START ADDRESS.
008561,000045: 
008562,000046: 05,2456           31035        SKIPSIM            CA       DSPTAB     +11D                       #  TURN OFF ALL DSPTAB +11D LAMPS
008563,000047: 05,2457           74771                           MASK     BITS4&6                               #  EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
008564,000048: 05,2460           64735                           AD       BIT15                                 #  REQUESTED FRESH START.
008565,000049: 05,2461           55035                           TS       DSPTAB     +11D                       
008566,000050: 
008567,000051: 05,2462           34755                           CA       ZERO                                  
008568,000052: 05,2463           55365                           TS       ERCOUNT                               
008569,000053: 05,2464           54375                           TS       FAILREG                               
008570,000054: 05,2465           54376                           TS       FAILREG    +1                         
008571,000055: 05,2466           54377                           TS       FAILREG    +2                         
008572,000056: 05,2467           54320                           TS       REDOCTR                               
008573,000057: 
008574,000058: 05,2470           44644                           CS       PRIO12                                
008575,000059: 05,2471           55310                           TS       DSRUPTSW                              
008576,000060: 
008577,000061: 05,2472           34736        DOFSTART           CAF      BIT14                                 #  INSURE ENGINE IS OFF.
008578,000062: 05,2473           00006                           EXTEND                                         
008579,000063: 05,2474           01011                           WRITE    DSALMOUT                              
008580,000064: 05,2475           44755                           CS       ZERO                                  
008581,000065: 05,2476           54055                           TS       THRUST                                
008582,000066: 
008583,000067: 05,2477           34751        DOFSTRT1           CAF      FOUR                                  
008584,000068: 05,2500           55262                           TS       RCSFLAGS                              #  INITIALIZE ATTITUDE ERROR DISPLAYS.
008585,000069: 05,2501           34355                           CA       PRIO30                                
008586,000070: 05,2502           54366                           TS       RESTREG                               #  SUPER BANK PRIORITY FOR DISPLAYS.
008587,000071: 
008588,000072: 05,2503           34755                           CA       ZERO                                  
008589,000073: 05,2504           55245                           TS       ABDELV                                #  DAP INITIALIZATION
008590,000074: 05,2505           54371                           TS       NVSAVE                                
008591,000075: 05,2506           55071                           TS       EBANKTEM                              
008592,000076: 05,2507           55257                           TS       CH5MASK                               
008593,000077: 05,2510           55260                           TS       CH6MASK                               
008594,000078: 05,2511           55273                           TS       PVALVEST                              #  FOR RCS FAILURE MONITOR

Page 214

008596,000080: 05,2512           55360                           TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
008597,000081: 05,2513           55362                           TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
008598,000082: 05,2514           54333                           TS       DNLSTCOD                              #  SELECT POO DOWNLIST
008599,000083: 05,2515           55321                           TS       AGSWORD                               #  ALLOW AGS INITIALIZATION
008600,000084: 05,2516           55501                           TS       UPSVFLAG                              #  ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
008601,000085: 05,2517           00006                           EXTEND                                         
008602,000086: 05,2520           01005                           WRITE    CHAN5                                 #  TURN OFF RCS JETS.
008603,000087: 05,2521           00006                           EXTEND                                         
008604,000088: 05,2522           01006                           WRITE    CHAN6                                 #  TURN OFF RCS JETS.
008605,000089: 05,2523           00006                           EXTEND                                         
008606,000090: 05,2524           01012                           WRITE    CHAN12                                
008607,000091: 05,2525           00006                           EXTEND                                         
008608,000092: 05,2526           01013                           WRITE    CHAN13                                
008609,000093: 05,2527           00006                           EXTEND                                         
008610,000094: 05,2530           01014                           WRITE    CHAN14                                
008611,000095: 05,2531           41035                           CS       DSPTAB     +11D                       
008612,000096: 05,2532           74771                           MASK     BITS4&6                               
008613,000097: 05,2533           10000                           CCS      A                                     
008614,000098: 05,2534           02540                           TC       +4                                    
008615,000099: 05,2535           34771                           CA       BITS4&6                               
008616,000100: 05,2536           00006                           EXTEND                                         #  THE IMU WAS IN COARSE ALIGN IN GIMBAL
008617,000101: 05,2537           05012                           WOR      CHAN12                                #  LOCK, SO PUT IT BACK INTO COARSE ALIGN.
008618,000102: 05,2540           02641                 +4        TC       MR.KLEAN                              
008619,000103: 
008620,000104: 05,2541           44755                           CS       ZERO                                  
008621,000105: 05,2542           55010                           TS       MODREG                                
008622,000106: 
008623,000107: 05,2543           33373                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
008624,000108: 05,2544           55277                           TS       IMODES30                              
008625,000109: 
008626,000110: 05,2545           33065                           CAF      MAXDB                                 
008627,000111: 05,2546           55343                           TS       DB                                    
008628,000112: 05,2547           34751                           CAF      FOUR                                  
008629,000113: 05,2550           55322                           TS       RATEINDX                              #  INITIALIZE KALCMANU RATE
008630,000114: 05,2551           33061                           CA       BOOLSTRT                              
008631,000115: 05,2552           54111                           TS       DAPBOOLS                              
008632,000116: 05,2553           35015                           CAF      EBANK6                                
008633,000117: 05,2554           54003                           TS       EBANK                                 
008634,000118: 05,2555  E6,1400                                  EBANK=   HIASCENT                              
008635,000119: 
008636,000120: 05,2555           33056                           CA       STIKSTRT                              
008637,000121: 05,2556           55444                           TS       STIKSENS                              
008638,000122: 05,2557           33057                           CA       RATESTRT                              
008639,000123: 05,2560           55476                           TS       -RATEDB                               
008640,000124: 05,2561           32000                           CAF      FULLAPS                               #  INITIALIZE MAXIMUM ASCENT MASS FOR USE
008641,000125: 05,2562           55400                           TS       HIASCENT                              #    BY 1/ACCS UNTIL THE PAD LOAD IS DONE.
008642,000126: 05,2563           33062                           CA       77001OCT                              #      LOAD DAP FILTER GAINS PAD LOAD
008643,000127: 05,2564           55403                           TS       DKTRAP                                #        TO BEST PRESENT ESTIMATE OF GOODIES
008644,000128: 05,2565           55406                           TS       LMTRAP                                #  .14 DEG
008645,000129: 05,2566           33063                           CA       60DEC                                 

Page 215

008647,000131: 05,2567           55405                           TS       DKKAOSN                               
008648,000132: 05,2570           55410                           TS       LMKAOSN                               #  6 SEC GAIN FOR ALPHA
008649,000133: 05,2571           34755                           CA       ZERO                                  
008650,000134: 05,2572           55407                           TS       LMOMEGAN                              #  UNITY GAIN
008651,000135: 05,2573           34363                           CA       TEN                                   
008652,000136: 05,2574           55404                           TS       DKOMEGAN                              #  1 SEC GAIN FOR OMEGA
008653,000137: 05,2575           34744                           CAF      BIT8                                  #  SET DOCKED DB TO 1.4 DEG.  MAY OVERWRITE
008654,000138: 05,2576           55411                           TS       DKDB                                  #        WITH PAD LOAD.
008655,000139: 05,2577           35026                           CAF      IM33INIT                              
008656,000140: 05,2600           64746                           AD       BIT6                                  #  KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
008657,000141: 05,2601           55300                           TS       IMODES33                              #        OFF UNTIL ICDU ZERO IS FINISHED.
008658,000142: 
008659,000143: 05,2602           00006                           EXTEND                                         #  INITIALIZE SWITCHES ONLY ON FRESH START.
008660,000144: 05,2603           33400                           DCA      SWINIT                                
008661,000145: 05,2604           52075                           DXCH     STATE                                 
008662,000146: 05,2605           33401                           CA       SWINIT     +2                         
008663,000147: 05,2606           54076                           TS       STATE      +2                         
008664,000148: 05,2607           34737                           CA       REFSMBIT                              #  DO NOT ALTER REFSMFLG ON FRESH START.
008665,000149: 05,2610           70077                           MASK     STATE      +3                         
008666,000150: 05,2611           63402                           AD       SWINIT     +3                         
008667,000151: 05,2612           54077                           TS       STATE      +3                         
008668,000152: 05,2613           00006                           EXTEND                                         
008669,000153: 05,2614           33404                           DCA      SWINIT     +4                         
008670,000154: 05,2615           52101                           DXCH     STATE      +4                         
008671,000155: 05,2616           00006                           EXTEND                                         
008672,000156: 05,2617           33406                           DCA      SWINIT     +6                         
008673,000157: 05,2620           52103                           DXCH     STATE      +6                         
008674,000158: 05,2621           34744                           CA       SURFFBIT                              #  DO NOT ALTER  SURFFLAG ON FRESH START.
008675,000159: 05,2622           64740                           AD       CMOONBIT                              #                CMOONFLG
008676,000160: 05,2623           64741                           AD       LMOONBIT                              #                LMOONFLG
008677,000161: 05,2624           70104                           MASK     STATE      +8D                        
008678,000162: 05,2625           63407                           AD       SWINIT     +8D                        
008679,000163: 05,2626           54104                           TS       STATE      +8D                        
008680,000164: 05,2627           33410                           CA       SWINIT     +9D                        
008681,000165: 05,2630           54105                           TS       STATE      +9D                        
008682,000166: 05,2631           34737                           CA       APSFLBIT                              #  DO NOT ALTER APSFLAG ON FRESH START.
008683,000167: 05,2632           70106                           MASK     STATE      +10D                       
008684,000168: 05,2633           63411                           AD       SWINIT     +10D                       
008685,000169: 05,2634           54106                           TS       STATE      +10D                       
008686,000170: 05,2635           33412                           CAF      SWINIT     +11D                       
008687,000171: 05,2636           54107                           TS       STATE      +11D                       
008688,000172: 
008689,000173: 05,2637           04635        ENDRSTRT           TC       POSTJUMP                              #  NOW IN ANOTHER BANK.
008690,000174: 05,2640           03211                           CADR     DUMMYJOB   +2                         #  PICKS UP AT RELINT.   (DONT ZERO NEWJOB)
008691,000175: 
008692,000176: 05,2641           00004        MR.KLEAN           INHINT                                         
008693,000177: 05,2642           00006                           EXTEND                                         
008694,000178: 05,2643           34755                           DCA      NEG0                                  
008695,000179: 05,2644           52754                           DXCH     -PHASE2                               
008696,000180: 

Page 216

008698,000182: 05,2645           00006        P00KLEAN           EXTEND                                         
008699,000183: 05,2646           34755                           DCA      NEG0                                  
008700,000184: 05,2647           52760                           DXCH     -PHASE4                               
008701,000185: 05,2650           00006        V37KLEAN           EXTEND                                         
008702,000186: 05,2651           34755                           DCA      NEG0                                  
008703,000187: 05,2652           52762                           DXCH     -PHASE5                               
008704,000188: 05,2653           00006        ABTKLEAN           EXTEND                                         
008705,000189: 05,2654           34755                           DCA      NEG0                                  
008706,000190: 05,2655           52756                           DXCH     -PHASE3                               
008707,000191: 05,2656           00006                           EXTEND                                         
008708,000192: 05,2657           34755                           DCA      NEG0                                  
008709,000193: 05,2660           52752                           DXCH     -PHASE1                               
008710,000194: 05,2661           00006                           EXTEND                                         
008711,000195: 05,2662           34755                           DCA      NEG0                                  
008712,000196: 05,2663           52764                           DXCH     -PHASE6                               
008713,000197: 05,2664           00002                           TC       Q                                     
008714,000198: 

Page 217

008716,000200:                                                                                                  #  COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME
008717,000201: 
008718,000202: 05,2665  E3,1400                                  EBANK=   LST1                                  
008719,000203: 05,2665           24320        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
008720,000204: 
008721,000205: 05,2666           22002                           LXCH     Q                                     
008722,000206: 05,2667           00006                           EXTEND                                         
008723,000207: 05,2670           04007                           ROR      SUPERBNK                              
008724,000208: 05,2671           53433                           DXCH     RSBBQ                                 
008725,000209: 05,2672           31035                           CA       DSPTAB     +11D                       
008726,000210: 05,2673           74750                           MASK     BIT4                                  
008727,000211: 05,2674           00006                           EXTEND                                         
008728,000212: 05,2675           12701                           BZF      +4                                    
008729,000213: 05,2676           64746                           AD       BIT6                                  #  SET ERROR COUNTER ENABLE
008730,000214: 05,2677           00006                           EXTEND                                         

In the printout, there is a red hyphen hand-written to the right of CHAN12 below.

008732,000216: 05,2700           05012                           WOR      CHAN12                                #  ISS WAS IN COARS ALIGN SO GO BACK TO
008733,000217: 05,2701           03066        BUTTONS            TC       LIGHTSET                              
008734,000218: 
008735,000219:                                                                                                  #  ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
008736,000220:                                                                                                  #  AND X+1 INTO SKEEP5 AND SKEEP6.  IT ALSO STORES X INTO SKEEP7 AND
008737,000221:                                                                                                  #  ERESTORE.  IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
008738,000222:                                                                                                  #  EQUAL C(SKEEP7), AND BE A + NUMBER LESS THAN 2000 OCT.  OTHERWISE
008739,000223:                                                                                                  #  C(ERESTORE) SHOULD EQUAL +0.
008740,000224: 
008741,000225: 05,2702           34350                           CAF      HI5                                   
008742,000226: 05,2703           71360                           MASK     ERESTORE                              
008743,000227: 05,2704           00006                           EXTEND                                         
008744,000228: 05,2705           12707                           BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
008745,000229: 05,2706           13103                           TCF      NONAVKEY   +3                         #  DO FRESH START - E MEMORY MIGHT BE BAD
008746,000230: 05,2707           41360                           CS       ERESTORE                              
008747,000231: 05,2710           00006                           EXTEND                                         
008748,000232: 05,2711           12726                           BZF      DORSTART                              #  = +0 CONTINUE WITH RESTART.
008749,000233: 05,2712           61377                           AD       SKEEP7                                
008750,000234: 05,2713           00006                           EXTEND                                         
008751,000235: 05,2714           12716                           BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
008752,000236: 05,2715           13103                           TCF      NONAVKEY   +3                         #  DO FRESH START - E MEMORY MIGHT BE BAD
008753,000237: 05,2716           31374                           CA       SKEEP4                                
008754,000238: 05,2717           54003                           TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
008755,000239: 05,2720           00006                           EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
008756,000240: 05,2721           31376                           DCA      SKEEP5                                
008757,000241: 05,2722           51377                           INDEX    SKEEP7                                
008758,000242: 05,2723           52001                           DXCH     0000                                  #  E MEMORY RESTORED.
008759,000243: 05,2724           34755                           CA       ZERO                                  
008760,000244: 05,2725           55360                           TS       ERESTORE                              
008761,000245: 05,2726           03105        DORSTART           TC       STARTSUB                              #  DO INITIALIZATION AFTER ERASE RESTORE.
008762,000246: 
008763,000247: 05,2727           44736        SETINFL            CS       INTFLBIT                              
008764,000248: 05,2730           70106                           MASK     FLGWRD10                              
008765,000249: 05,2731           54106                           TS       FLGWRD10                              

Page 218

008767,000251: 05,2732           33375                           CA       9,6,4                                 #  LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
008768,000252: 05,2733           71035                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
008769,000253: 05,2734           64735                           AD       BIT15                                 
008770,000254: 05,2735           57035                           XCH      DSPTAB     +11D                       
008771,000255: 05,2736           33361                           CAF      IFAILINH                              #  LEAVE IMU FAILURE INHIBITS INTACT ON
008772,000256: 05,2737           71277                           MASK     IMODES30                              #  HARDWARE RESTART. RESET ALL FAILURE
008773,000257: 05,2740           63374                           AD       IM30INIR                              #  CODES.
008774,000258: 05,2741           55277                           TS       IMODES30                              
008775,000259: 
008776,000260: 05,2742           31321                           CA       AGSWORD                               #  BE SURE OF CORRECT DOWNLIST
008777,000261: 05,2743           54333                           TS       DNLSTCOD                              
008778,000262: 
008779,000263: 05,2744           34750                           CA       BIT4                                  #  TURN ON THROTTLE COUNTER
008780,000264: 05,2745           00006                           EXTEND                                         
008781,000265: 05,2746           05014                           WOR      CHAN14                                #  TURN ON THRUST DRIVE
008782,000266: 05,2747           40101                           CS       FLAGWRD5                              
008783,000267: 05,2750           74745                           MASK     ENGONBIT                              
008784,000268: 05,2751           10000                           CCS      A                                     
008785,000269: 05,2752           12757                           TCF      +5                                    
008786,000270: 05,2753           34737                           CAF      BIT13                                 
008787,000271: 05,2754           00006                           EXTEND                                         
008788,000272: 05,2755           05011                           WOR      DSALMOUT                              #  TURN ENGINE ON
008789,000273: 05,2756           12773                           TCF      GOPROG3                               
008790,000274: 05,2757           34736                 +5        CAF      BIT14                                 
008791,000275: 05,2760           00006                           EXTEND                                         
008792,000276: 05,2761           05011                           WOR      DSALMOUT                              #  TURN ENGINE OFF.
008793,000277: 05,2762           12773                           TCF      GOPROG3                               
008794,000278: 
008795,000279: 05,2763           00004        ENEMA              INHINT                                         
008796,000280: 05,2764           03114                           TC       STARTSB1                              
008797,000281: 05,2765           12767                           TCF      GOPROG2A                              
008798,000282: 05,2766           03157        GOPROG2            TC       STARTSB2                              
008799,000283: 05,2767           03066        GOPROG2A           TC       LIGHTSET                              
008800,000284: 05,2770           43064                           CS       RSFLGBTS                              #  CLEAR BITS 7 AND 14.
008801,000285: 05,2771           70106                           MASK     FLGWRD10                              
008802,000286: 05,2772           54106                           TS       FLGWRD10                              
008803,000287: 
008804,000288: 05,2773           34756        GOPROG3            CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
008805,000289: 05,2774           54161        PCLOOP             TS       MPAC       +5                         
008806,000290: 05,2775           60000                           DOUBLE                                         
008807,000291: 05,2776           00006                           EXTEND                                         
008808,000292: 05,2777           50000                           INDEX    A                                     
008809,000293: 05,3000           30752                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
008810,000294: 05,3001           00006                           EXTEND                                         
008811,000295: 05,3002           06001                           RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
008812,000296: 05,3003           10000                           CCS      A                                     
008813,000297: 05,3004           13052                           TCF      PTBAD                                 #  RESTART FAILURE.
008814,000298: 05,3005           13052                           TCF      PTBAD                                 
008815,000299: 05,3006           13052                           TCF      PTBAD                                 

Page 219

008817,000301: 05,3007           10161                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
008818,000302: 05,3010           12774                           TCF      PCLOOP                                
008819,000303: 
008820,000304: 05,3011           54162                           TS       MPAC       +6                         #  SET TO +0.
008821,000305: 05,3012           05315                           TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
008822,000306: 
008823,000307: 05,3013           00004                           INHINT                                         #  RELINT DONE IN MMDSPLAY
008824,000308: 
008825,000309: 05,3014           44736                           CS       DIDFLBIT                              #  CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
008826,000310: 05,3015           70075                           MASK     FLAGWRD1                              #  RE-INITIALIZE ITSELF IF IT HAD BEEN
008827,000311: 05,3016           54075                           TS       FLAGWRD1                              #  OPERATING AT THE TIME OF THE RESTART.
008828,000312: 
008829,000313: 05,3017           44740                           CS       RODFLBIT                              #  CLEAR RODFLAG.  IF P66 IS IN OPERATION
008830,000314: 05,3020           70075                           MASK     FLAGWRD1                              #        IT WILL RE-INITIALIZE ITSELF AND
008831,000315: 05,3021           54075                           TS       FLAGWRD1                              #        CONTINUE.
008832,000316: 
008833,000317: 05,3022           44741                           CS       P21FLBIT                              #  CLEAR P21 FLAG SO THAT P21 WILL COMPUTE
008834,000318: 05,3023           70074                           MASK     FLAGWRD0                              #  NEW BASE STATE VECTORS.
008835,000319: 05,3024           54074                           TS       FLAGWRD0                              
008836,000320: 
008837,000321: 05,3025           34756                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
008838,000322: 05,3026           54161        NXTRST             TS       MPAC       +5                         
008839,000323: 05,3027           60000                           DOUBLE                                         
008840,000324: 05,3030           50000                           INDEX    A                                     
008841,000325: 05,3031           10752                           CCS      PHASE1                                
008842,000326: 05,3032           13034                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
008843,000327: 05,3033           13041                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
008844,000328: 
008845,000329: 05,3034           54154        PACTIVE            TS       MPAC                                  
008846,000330: 05,3035           24154                           INCR     MPAC                                  #  ABS OF PHASE.
008847,000331: 05,3036           24162                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
008848,000332: 05,3037           33060                           CA       RACTCADR                              
008849,000333: 05,3040           04622                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
008850,000334: 
008851,000335: 05,3041           10161        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
008852,000336: 05,3042           13026                           TCF      NXTRST                                
008853,000337: 
008854,000338: 05,3043           10162                           CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
008855,000339: 05,3044           12637                           TCF      ENDRSTRT                              #  PHASE ACTIVE
008856,000340: 05,3045           34735                           CAF      BIT15                                 #  IS MODE -0
008857,000341: 05,3046           71010                           MASK     MODREG                                
008858,000342: 05,3047           00006                           EXTEND                                         
008859,000343: 05,3050           16001                           BZF      GOTOPOOH                              #  NO
008860,000344: 05,3051           12637                           TCF      ENDRSTRT                              #  YES
008861,000345: 05,3052           05567        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
008862,000346: 05,3053           01107                           OCT      1107                                  
008863,000347: 
008864,000348: 05,3054           12477                           TCF      DOFSTRT1                              
008865,000349: 
008866,000350:                                                                                                  #  ******** ****** ******

Page 220

008868,000352:                                                                                                  #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
008869,000353: 
008870,000354: 05,3055     4737               OCT10000           =        BIT13                                 
008871,000355: 05,3055     4355               OCT30000           =        PRIO30                                
008872,000356: 05,3055           07777        OCT7777            OCT      7777                                  
008873,000357: 05,3056           32321        STIKSTRT           DEC      0.825268                              #  20 D/S MAXIMUM COMMANDED RATE
008874,000358: 05,3057           77445        RATESTRT           DEC      -218       B-14                       
008875,000359: 05,3060           03527        RACTCADR           CADR     RESTARTS                              
008876,000360: 05,3061           21322        BOOLSTRT           OCT      21322                                 
008877,000361: 05,3062           77001        77001OCT           OCT      77001                                 #  .14 DEG SCALED AT 4.5 DEG
008878,000362: 05,3063           00074        60DEC              DEC      60         B-14                       
008879,000363: 05,3064           20100        RSFLGBTS           OCT      20100                                 
008880,000364: 05,3065           03434        MAXDB              OCTAL    03434                                 #  5 DEG ATTITUDE DEADBAND, SCALED AT 45.
008881,000365: 
008882,000366: 05,3066           34747        LIGHTSET           CAF      BIT5                                  #  CHECK FOR MARK REJECT AND ERROR RESET
008883,000367: 05,3067           00006                           EXTEND                                         
008884,000368: 05,3070           02016                           RAND     NAVKEYIN                              
008885,000369: 05,3071           00006                           EXTEND                                         
008886,000370: 05,3072           13100                           BZF      NONAVKEY                              #  NO MARK REJECT
008887,000371: 05,3073           00006                           EXTEND                                         
008888,000372: 05,3074           00015                           READ     MNKEYIN                               #  CHECK IF KEYS 2M AND 5M ON
008889,000373: 05,3075           63372                           AD       -ELR                                  #  MAIN DSKY KEYCODE (BITS 1-5)
008890,000374: 05,3076           00006                           EXTEND                                         
008891,000375: 05,3077           13101                           BZF      +2                                    
008892,000376: 
008893,000377: 05,3100           00002        NONAVKEY           TC       Q                                     
008894,000378: 
008895,000379: 05,3101           03105                           TC       STARTSUB                              
008896,000380: 05,3102           12472                           TCF      DOFSTART                              
008897,000381: 05,3103           03105                 +3        TC       STARTSUB                              
008898,000382: 05,3104           12477                           TCF      DOFSTRT1                              #  DO FRESH START BUT DON'T TOUCH ENGINE
008899,000383: 

Page 221

008901,000385:                                                                                                  #  INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
008902,000386: 
008903,000387: 05,3105  E6,1536                                  EBANK=   AOSQ                                  
008904,000388: 05,3105           33362        STARTSUB           CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
008905,000389: 05,3106           54335                           TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE
008906,000390:                                                                                                  #  INTERRUPTED AND START SENDING FROM THE
008907,000391:                                                                                                  #  BEGINNING OF THE CURRENT DOWNLIST.
008908,000392: 05,3107           34746                           CAF      BIT6                                  
008909,000393: 05,3110           00006                           EXTEND                                         
008910,000394: 05,3111           02033                           RAND     CHAN33                                
008911,000395: 05,3112           63376                           AD       RMODINIT                              
008912,000396: 05,3113           54110                           TS       RADMODES                              
008913,000397: 
008914,000398: 05,3114           34733        STARTSB1           CAF      POSMAX                                
008915,000399: 05,3115           54026                           TS       TIME3                                 
008916,000400: 05,3116           67751                           AD       MINUS2                                
008917,000401: 05,3117           54027                           TS       TIME4                                 
008918,000402: 05,3120           67752                           AD       NEGONE                                
008919,000403: 05,3121           54030                           TS       TIME5                                 
008920,000404: 
008921,000405: 05,3122           35015                           CAF      EBANK6                                
008922,000406: 05,3123           54003                           TS       EBANK                                 
008923,000407: 
008924,000408: 05,3124           44737                           CS       BIT13                                 #  CAUSE DAPIDLER TO CALL 1/ACCS
008925,000409: 05,3125           71262                           MASK     RCSFLAGS                              
008926,000410: 05,3126           55262                           TS       RCSFLAGS                              #  ZERO BIT 13
008927,000411: 05,3127           34733                           CAF      POSMAX                                #  DISABLE TIME6 CLOCK.  JUST IN CASE A T6
008928,000412: 05,3130           55466                           TS       T6NEXT                                #        RUPT IS ALREADY IN THE PRIORITY CHAIN,
008929,000413: 05,3131           00006                           EXTEND                                         #        ENSURE THAT IT'S INPUTS WILL RENDER IT
008930,000414: 05,3132           03013                           WAND     CHAN13                                #        INEFFECTUAL.
008931,000415: 05,3133           34755                           CAF      ZERO                                  
008932,000416: 05,3134           55465                           TS       NXT6ADR                               
008933,000417: 05,3135           55472                           TS       NEXTP                                 
008934,000418: 
008935,000419: 05,3136           44751                           CS       ACCSOKAY                              
008936,000420: 05,3137           70111                           MASK     DAPBOOLS                              
008937,000421: 05,3140           54111                           TS       DAPBOOLS                              
008938,000422: 
008939,000423: 05,3141           00006                           EXTEND                                         #  SET T5RUPT FOR DAPIDLER PROGRAM.
008940,000424: 05,3142           33360                           DCA      IDLEADR                               
008941,000425: 05,3143           53264                           DXCH     T5ADR                                 
008942,000426: 
008943,000427: 05,3144           40107                           CS       FLGWRD11                              #  IF R12 IS PERMITTED, ENSURE THAT NEXT
008944,000428: 05,3145           74735                           MASK     LRBYBIT                               #        RADAR READS ARE NOT USED
008945,000429: 05,3146           00006                           EXTEND                                         
008946,000430: 05,3147           13157                           BZF      STARTSB2                              #  R12 OFF
008947,000431: 
008948,000432: 05,3150           24006                           INCR     BBANK                                 #  SET EBANK TO 7
008949,000433: 05,3151  E7,1674                                  EBANK=   STILBADH                              
008950,000434: 05,3151           11674                           CCS      STILBADH                              #  IF STILBADH>0, NEXT READ WILL BE IGNORED

Page 222

008952,000436: 05,3152           13154                           TCF      +2                                    
008953,000437: 05,3153           25674                           INCR     STILBADH                              #  SET STILBADH TO IGNORE NEXT READ
008954,000438: 
008955,000439: 05,3154           11675                 +2        CCS      STILBADV                              
008956,000440: 05,3155           13157                           TCF      STARTSB2                              #  IF STILBADV>0, NEXT READ WILL BE IGNORED
008957,000441: 05,3156           25675                           INCR     STILBADV                              #  SET STILBADV TO IGNORE NEXT READ
008958,000442: 
008959,000443: 05,3157           33371        STARTSB2           CAF      OCT30001                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
008960,000444: 05,3160           00006                           EXTEND                                         #  ENGINE ON, OFF AND ISS WARNING.
008961,000445: 05,3161           03011                           WAND     DSALMOUT                              
008962,000446: 
008963,000447: 05,3162           44743                           CS       READRBIT                              #  CLEAR READRFLG FOR R29.
008964,000448: 05,3163           70077                           MASK     FLAGWRD3                              
008965,000449: 05,3164           54077                           TS       FLAGWRD3                              
008966,000450: 
008967,000451: 05,3165           40077                           CS       FLAGWRD3                              #  DURING SOFTWARE RESTART, CLEAR TURNON,
008968,000452: 05,3166           74741                           MASK     NR29FBIT                              #  REPOSITION, CDU ZERO AND REMODE BITS
008969,000453: 05,3167           00006                           EXTEND                                         #  IN RADMODES, SINCE TASKS ASSOCIATED
008970,000454: 05,3170           13172                           BZF      +2                                    #  WITH THESE BITS HAVE BEEN KILLED
008971,000455: 05,3171           34742                           CAF      BIT10                                 #  ALSO IF R29 HAD BEEN REQUESTED,
008972,000456: 05,3172           63365                           AD       OCT32001                              #  (NOR29FLG = 0) CLEAR BIT 10 RADMODES
008973,000457: 05,3173           40000                           COM                                            #  TO MAKE R29 FORGET IT HAD STARTED
008974,000458: 05,3174           70110                           MASK     RADMODES                              #  DESIGNATING
008975,000459: 05,3175           54110                           TS       RADMODES                              
008976,000460: 05,3176           33367                           CAF      OCT27470                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
008977,000461: 05,3177           00006                           EXTEND                                         #  IMU FLAGS.  (COURSE ALIGN ENABLE, ZERO
008978,000462: 05,3200           03012                           WAND     CHAN12                                #  IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
008979,000463:                                                                                                  #  TRIM DRIVES.  LEAVE RR LOCKON ENABLE
008980,000464:                                                                                                  #  ALONE.
008981,000465: 
008982,000466: 05,3201           44750                           CS       NORRMBIT                              #  ENABLE R25.
008983,000467: 05,3202           70101                           MASK     FLAGWRD5                              
008984,000468: 05,3203           54101                           TS       FLAGWRD5                              
008985,000469: 
008986,000470: 05,3204           44741                           CS       R77FLBIT                              #  CLEAR R77FLAG
008987,000471: 05,3205           70101                           MASK     FLAGWRD5                              
008988,000472: 05,3206           54101                           TS       FLAGWRD5                              
008989,000473: 05,3207           33370                           CAF      OCT74160                              #  DURING SOFTWARE RESTART, DO NOT DUSTURB
008990,000474: 05,3210           00006                           EXTEND                                         #  TELEMETRY FLAGS, RESET TRAP FLAGS, AND
008991,000475: 05,3211           03013                           WAND     CHAN13                                #  ENABLE T6RUPT FLAG.
008992,000476: 
008993,000477: 05,3212           34740                           CAF      BIT12                                 #  REENABLE RUPT10 (RUPT QUICKLY
008994,000478: 05,3213           00006                           EXTEND                                         #        RESUMES EXCEPT DURING P64)
008995,000479: 05,3214           05013                           WOR      CHAN13                                
008996,000480: 
008997,000481: 05,3215           34746                           CAF      BIT6                                  #  DURING SOFTWARE RESTART, DO NOT DISTURB
008998,000482: 05,3216           00006                           EXTEND                                         #  GYRO ENABLE FLAG.
008999,000483: 05,3217           03014                           WAND     CHAN14                                
009000,000484: 
009001,000485: 05,3220  E3,1400                                  EBANK=   LST1                                  

Page 223

009003,000487: 05,3220           35007                           CAF      STARTEB                               
009004,000488: 05,3221           54003                           TS       EBANK                                 #  SET FOR E3
009005,000489: 
009006,000490: 05,3222           34734                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
009007,000491: 05,3223           55407                           TS       LST1       +7                         
009008,000492: 05,3224           55406                           TS       LST1       +6                         
009009,000493: 05,3225           55405                           TS       LST1       +5                         
009010,000494: 05,3226           55404                           TS       LST1       +4                         
009011,000495: 05,3227           55403                           TS       LST1       +3                         
009012,000496: 05,3230           55402                           TS       LST1       +2                         
009013,000497: 05,3231           55401                           TS       LST1       +1                         
009014,000498: 05,3232           55400                           TS       LST1                                  
009015,000499: 
009016,000500: 05,3233           45236                           CS       ENDTASK                               
009017,000501: 05,3234           55410                           TS       LST2                                  
009018,000502: 05,3235           55412                           TS       LST2       +2                         
009019,000503: 05,3236           55414                           TS       LST2       +4                         
009020,000504: 05,3237           55416                           TS       LST2       +6                         
009021,000505: 05,3240           55420                           TS       LST2       +8D                        
009022,000506: 05,3241           55422                           TS       LST2       +10D                       
009023,000507: 05,3242           55424                           TS       LST2       +12D                       
009024,000508: 05,3243           55426                           TS       LST2       +14D                       
009025,000509: 05,3244           55430                           TS       LST2       +16D                       
009026,000510: 05,3245           45237                           CS       ENDTASK    +1                         
009027,000511: 05,3246           55411                           TS       LST2       +1                         
009028,000512: 05,3247           55413                           TS       LST2       +3                         
009029,000513: 05,3250           55415                           TS       LST2       +5                         
009030,000514: 05,3251           55417                           TS       LST2       +7                         
009031,000515: 05,3252           55421                           TS       LST2       +9D                        
009032,000516: 05,3253           55423                           TS       LST2       +11D                       
009033,000517: 05,3254           55425                           TS       LST2       +13D                       
009034,000518: 05,3255           55427                           TS       LST2       +15D                       
009035,000519: 05,3256           55431                           TS       LST2       +17D                       
009036,000520: 
009037,000521: 05,3257           44755                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
009038,000522: 05,3260           54167                           TS       PRIORITY                              #  AVAILABLE.
009039,000523: 05,3261           54203                           TS       PRIORITY   +12D                       
009040,000524: 05,3262           54217                           TS       PRIORITY   +24D                       
009041,000525: 05,3263           54233                           TS       PRIORITY   +36D                       
009042,000526: 05,3264           54247                           TS       PRIORITY   +48D                       
009043,000527: 05,3265           54263                           TS       PRIORITY   +60D                       
009044,000528: 05,3266           54277                           TS       PRIORITY   +72D                       
009045,000529: 05,3267           54313                           TS       PRIORITY   +84D                       
009046,000530: 
009047,000531: 05,3270           55310                           TS       DSRUPTSW                              
009048,000532: 05,3271           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
009049,000533: 
009050,000534: 05,3272           33364                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
009051,000535: 05,3273           54400                           TS       VAC1USE                               
009052,000536: 05,3274           63366                           AD       LTHVACA                               

Page 224

009054,000538: 05,3275           54454                           TS       VAC2USE                               
009055,000539: 05,3276           63366                           AD       LTHVACA                               
009056,000540: 05,3277           54530                           TS       VAC3USE                               
009057,000541: 05,3300           63366                           AD       LTHVACA                               
009058,000542: 05,3301           54604                           TS       VAC4USE                               
009059,000543: 05,3302           63366                           AD       LTHVACA                               
009060,000544: 05,3303           54660                           TS       VAC5USE                               
009061,000545: 
009062,000546: 05,3304           34363                           CAF      TEN                                   
009063,000547: 05,3305           54154        DSPOFF             TS       MPAC                                  #  R1,R2,R3).
009064,000548: 05,3306           44740                           CS       BIT12                                 
009065,000549: 05,3307           50154                           INDEX    MPAC                                  
009066,000550: 05,3310           55022                           TS       DSPTAB                                
009067,000551: 05,3311           10154                           CCS      MPAC                                  
009068,000552: 05,3312           13305                           TCF      DSPOFF                                
009069,000553: 
009070,000554: 05,3313           55323                           TS       DELAYLOC                              
009071,000555: 05,3314           55324                           TS       DELAYLOC   +1                         
009072,000556: 05,3315           55325                           TS       DELAYLOC   +2                         
009073,000557: 05,3316           55073                           TS       R1SAVE                                
009074,000558: 05,3317           54045                           TS       INLINK                                
009075,000559: 05,3320           54775                           TS       DSPCNT                                
009076,000560: 05,3321           55041                           TS       CADRSTOR                              
009077,000561: 05,3322           55012                           TS       REQRET                                
009078,000562: 05,3323           55014                           TS       CLPASS                                
009079,000563: 05,3324           55011                           TS       DSPLOCK                               
009080,000564: 05,3325           55017                           TS       MONSAVE                               #  KILL MONITOR
009081,000565: 05,3326           55020                           TS       MONSAVE1                              
009082,000566: 05,3327           55000                           TS       VERBREG                               
009083,000567: 05,3330           55001                           TS       NOUNREG                               
009084,000568: 05,3331           55042                           TS       DSPLIST                               
009085,000569: 05,3332           55307                           TS       MARKSTAT                              
009086,000570: 05,3333           55043                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
009087,000571: 05,3334           55301                           TS       IMUCADR                               
009088,000572: 05,3335           55302                           TS       OPTCADR                               
009089,000573: 05,3336           55303                           TS       RADCADR                               
009090,000574: 05,3337           55304                           TS       ATTCADR                               
009091,000575: 05,3340           55311                           TS       LGYRO                                 
009092,000576: 05,3341           54100                           TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
009093,000577: 05,3342           34760                           CAF      NOUTCON                               
009094,000578: 05,3343           55015                           TS       NOUT                                  
009095,000579: 
009096,000580: 05,3344           44753                           CS       ONE                                   
009097,000581: 05,3345           55077                           TS       SAMPLIM                               
009098,000582: 05,3346           34746                           CAF      BIT6                                  
009099,000583: 05,3347           71300                           MASK     IMODES33                              #  LEAVE BIT 6 UNCHANGED
009100,000584: 05,3350           65026                           AD       IM33INIT                              #  NO PIP OR TM FAILS.BIT6=0 IN THIS WORD.
009101,000585: 05,3351           55300                           TS       IMODES33                              
009102,000586: 
009103,000587: 05,3352           33363                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.

Page 225

009105,000589: 05,3353           55361                           TS       SELFRET                               
009106,000590: 
009107,000591: 05,3354           44360                           CS       VD1                                   
009108,000592: 05,3355           54776                           TS       DSPCOUNT                              
009109,000593: 
009110,000594: 05,3356           00002                           TC       Q                                     
009111,000595: 05,3357  E6,1536                                  EBANK=   AOSQ                                  
009112,000596: 05,3357           02024 34066  IDLEADR            2CADR    DAPIDLER                              
009113,000597: 
009114,000598: 05,3361           00435        IFAILINH           OCT      435                                   
009115,000599: 05,3362           03522        LDNPHAS1           GENADR   DNPHASE1                              
009116,000600: 05,3363           03363        LESCHK             GENADR   SELFCHK                               
009117,000601: 05,3364           00400        VAC1ADRC           ADRES    VAC1USE                               
009118,000602: 05,3365           32001        OCT32001           OCT      32001                                 
009119,000603: 05,3366           00054        LTHVACA            DEC      44         B-14                       
009120,000604: 
009121,000605: 05,3367           27470        OCT27470           OCT      27470                                 
009122,000606: 05,3370           74160        OCT74160           OCT      74160                                 
009123,000607: 05,3371           30001        OCT30001           OCT      30001                                 
009124,000608: 05,3372     5007               STARTEB            EQUALS   EBANK3                                
009125,000609: 05,3372     4756               NUMGRPS            EQUALS   FIVE                                  
009126,000610: 05,3372           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
009127,000611: 05,3373           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
009128,000612: 05,3374           37000        IM30INIR           OCT      37000                                 
009129,000613: 05,3375     5026               IM33INIT           =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
009130,000614: 05,3375           00450        9,6,4              OCT      450                                   
009131,000615: 05,3376           00102        RMODINIT           OCT      00102                                 
009132,000616: 05,3377           00000        SWINIT             OCT      0                                     
009133,000617: 05,3400           00000                           OCT      0                                     
009134,000618: 05,3401           00000                           OCT      0                                     
009135,000619: 05,3402           02000                           OCT      02000                                 #  BIT 11 = NOR29FLG
009136,000620: 05,3403           00000                           OCT      0                                     
009137,000621: 05,3404           00000                           OCT      0                                     
009138,000622: 05,3405           00000                           OCT      0                                     
009139,000623: 05,3406           00100                           OCT      00100                                 
009140,000624: 
009141,000625: 05,3407           00000                           OCT      0                                     
009142,000626: 05,3410           00000                           OCT      0                                     
009143,000627: 05,3411           00000                           OCT      0                                     
009144,000628: 05,3412           40000                           OCT      40000                                 #  BIT 15 = LRBYPASS.
009145,000629: 

Page 226

009147,000631:                                                                                                  #  PROGRAM NAME          GOTOPOOH                ASSEMBLY SUNDANCE
009148,000632:                                                                                                  #  LOG SECTION           FRESH START AND RESTART
009149,000633: 
009150,000634:                                                                                                  #  FUNCTIONAL DESCRIPTION
009151,000635: 
009152,000636:                                                                                                  #        FLASH V 37 ON DSKY %MM CHANGE REQUEST "
009153,000637: 
009154,000638:                                                                                                  #  INPUT/OUTPUT INFORMATION
009155,000639: 
009156,000640:                                                                                                  #        A. CALLING SEQUENCE                     TC GOTOPOOH
009157,000641:                                                                                                  #        B. ERASABLE INITIALIZATION              NONE
009158,000642:                                                                                                  #        C. OUTPUT FLASH V 37 ON DSKY
009159,000643:                                                                                                  #        D. DEBRIS                               L
009160,000644: 
009161,000645:                                                                                                  #  PROGRAM ANALYSIS
009162,000646: 
009163,000647:                                                                                                  #        A. SUBROUTINES CALLED                   PRIODSPR, LINUS
009164,000648:                                                                                                  #        B. NORMAL EXIT                          TCF ENDOFJOB
009165,000649:                                                                                                  #        C. ALARM AND ABORT EXITS                NONE
009166,000650: 
009167,000651:    6001                                           BLOCK    03                                    
009168,000652:    6000                                           SETLOC   FFTAG5                                
009169,000653:    6000                                           BANK                                           
009170,000654: 
009171,000655:    6001                                           COUNT*   $$/P00                                
009172,000656:    6001           34764        GOTOPOOH           CAF      OCT33                                 #  4.33 SPOT FOR GOPOOFIX
009173,000657:    6002           54001                           TS       L                                     
009174,000658:    6003           40000                           COM                                            
009175,000659:    6004           52760                           DXCH     -PHASE4                               
009176,000660: 
009177,000661:    6005           04635                           TC       POSTJUMP                              
009178,000662:    6006           10024                           CADR     GOPOOFIX                              
009179,000663:    6007           00024        OCT24              MM       20         B-14                       
009180,000664:    6010           00031        OCT31              MM       25         B-14                       
009181,000665: 
009182,000666: 20,2004                                           BANK     20                                    
009183,000667: 04,2000                                           SETLOC   VERB37                                
009184,000668: 04,2000                                           BANK                                           
009185,000669: 
009186,000670: 04,2024                                           COUNT*   $$/P00                                #  VERB 37 AND P00 IN BANK 4.
009187,000671: 04,2024           05516        GOPOOFIX           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE
009188,000672: 04,2025           00311                           ADRES    XOVINFLG                              
009189,000673: 
009190,000674: 04,2026           05516                           TC       DOWNFLAG                              #  INSURE THAT ULLAGE IS OFF
009191,000675: 04,2027           00314                           ADRES    ULLAGFLG                              

Page 227

009193,000677: 04,2030           05476                           TC       CLEARMRK   +2                         #  RELEASE MARK DISPLAY SYSTEM.
009194,000678: 04,2031           32037                           CAF      V37N99                                
009195,000679: 04,2032           04616                           TC       BANKCALL                              
009196,000680: 04,2033           20477                           CADR     GOFLASH                               
009197,000681: 04,2034           12031                           TCF      -3                                    
009198,000682: 04,2035           12031                           TCF      -4                                    
009199,000683: 04,2036           12031                           TCF      -5                                    
009200,000684: 
009201,000685: 04,2037           11343        V37N99             VN       3799                                  
009202,000686: 

Page 228

009204,000688:                                                                                                  #  PROGRAM NAME          V37                     ASSEMBLY SUNDANCE
009205,000689: 
009206,000690:                                                                                                  #  LOG SECTION           FRESH START AND RESTART
009207,000691: 
009208,000692:                                                                                                  #  FUNCTIONAL DESCRIPTION
009209,000693: 
009210,000694:                                                                                                  #        1. CHECK IF NEW PROGRAM ALLOWED.  IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
009211,000695:                                                                                                  #        2. CHECK FOR VALIDITY OF PROGRAM SELECTED.  IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
009212,000696:                                                                                                  #           SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
009213,000697:                                                                                                  #        3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
009214,000698:                                                                                                  #        4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
009215,000699:                                                                                                  #        5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
009216,000700:                                                                                                  #        6. TRACK AND UPDATE FLAGS ARE SET TO ZERO.
009217,000701:                                                                                                  #        7. DISPLAY SYSTEM IS RELEASED.
009218,000702:                                                                                                  #        8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
009219,000703:                                                                                                  #                A. PROGRAM SELECTED IS P00.
009220,000704:                                                                                                  #                        1. RENDEZVOUS AND P25 FLAGS ARE RESET.  (KILL P20 AND P25)
009221,000705:                                                                                                  #                        2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
009222,000706:                                                                                                  #                        3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
009223,000707:                                                                                                  #                        4. SUPERBANK 3 IS SELECTED.
009224,000708:                                                                                                  #                        5. NODOFLAG IS RESET.
009225,000709:                                                                                                  #                        6. ALL RESTART GROUPS EXCEPT GROUP2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2)
009226,000710:                                                                                                  #                           WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
009227,000711:                                                                                                  #                           INITIATED.
009228,000712:                                                                                                  #                B. PROGRAM SELECTED IS P20 OR P25.
009229,000713:                                                                                                  #                        1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
009230,000714:                                                                                                  #                           VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
009231,000715:                                                                                                  #                        2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
009232,000716:                                                                                                  #                           ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
009233,000717:                                                                                                  #                           AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
009234,000718:                                                                                                  #                           P20 OR P25 IS RESTARTED TO CONTINUE, AND ITS MM IS SET.
009235,000719:                                                                                                  #                        3. CONTROL IS TRANSFERRED TO GOPROG2.
009236,000720:                                                                                                  #                C. PROGRAM SELECTED IS NEITHER P00, P20, NOR P25
009237,000721:                                                                                                  #                        1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
009238,000722:                                                                                                  #                        2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
009239,000723:                                                                                                  #                           GROUPS.  IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP2 IS NOT CLEARED, ALLOWING THESE PROGRAMS
009240,000724:                                                                                                  #                           TO CONTINUE.
009241,000725: 
009242,000726:                                                                                                  #  INPUT/OUTPUT INFORMATION
009243,000727: 
009244,000728:                                                                                                  #        A. CALLING SEQUENCE
009245,000729:                                                                                                  #                CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
009246,000730:                                                                                                  #                VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
009247,000731:                                                                                                  #                MMCHANG EXECUTES A   TC POSTJUMP, CADR V37.
009248,000732: 
009249,000733:                                                                                                  #        B. ERASABLE INITIALIZATION              NONE
009250,000734: 
009251,000735:                                                                                                  #        C. OUTPUT

Page 229

009253,000737:                                                                                                  #                MAJOR MODE CHANGE
009254,000738: 
009255,000739:                                                                                                  #        D. DEBRIS
009256,000740:                                                                                                  #                MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
009257,000741:                                                                                                  #                GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
009258,000742: 
009259,000743:                                                                                                  #  PROGRAM ANALYSIS
009260,000744: 
009261,000745:                                                                                                  #        A. SUBROUTINES CALLED
009262,000746:                                                                                                  #                ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
009263,000747:                                                                                                  #                DSPMM
009264,000748: 
009265,000749:                                                                                                  #        B. NORMAL EXIT                          TC ENDOFJOB
009266,000750: 
009267,000751:                                                                                                  #        C. ALARMS                               1520 (MAJOR MODE CHANGE NOT PERMITTED)
009268,000752: 
009269,000753: 04,2040           54774        V37                TS       MMNUMBER                              #  SAVE MAJOR MODE
009270,000754: 04,2041           34355                           CAF      PRIO30                                #  RESTART AT PINBALL PRIORITY
009271,000755: 04,2042           54366                           TS       RESTREG                               
009272,000756: 
009273,000757: 04,2043           31277                           CA       IMODES30                              #  IS IMU BEINB INITIALIZED
009274,000758: 04,2044           74746                           MASK     BIT6                                  
009275,000759: 04,2045           10000                           CCS      A                                     
009276,000760: 04,2046           12065                           TCF      CANTROD                               
009277,000761: 
009278,000762: 04,2047           40774                           CS       MMNUMBER                              #  IS P70 REQUESTED?
009279,000763: 04,2050           62403                           AD       DEC70                                 
009280,000764: 04,2051           00006                           EXTEND                                         
009281,000765: 04,2052           12376                           BZF      SETUP70                               #  YES
009282,000766: 04,2053           64753                           AD       ONE                                   #  IS P71 REQUESTED?
009283,000767: 04,2054           00006                           EXTEND                                         
009284,000768: 04,2055           12375                           BZF      SETUP71                               #  YES
009285,000769: 
009286,000770: 04,2056           30774                           CA       MMNUMBER                              #  IS NEW REQUEST POO
009287,000771: 04,2057           00006                           EXTEND                                         
009288,000772: 04,2060           12107                           BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
009289,000773: 
009290,000774: 04,2061           40076                           CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
009291,000775: 04,2062           74753                           MASK     NODOBIT                               
009292,000776: 04,2063           10000                           CCS      A                                     
009293,000777: 04,2064           12072                           TCF      CHECKTAB                              #  NO
009294,000778: 04,2065           05567        CANTROD            TC       ALARM                                 
009295,000779: 04,2066           01520                           OCT      1520                                  
009296,000780: 
009297,000781: 04,2067           04457        V37BAD             TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
009298,000782: 
009299,000783: 04,2070           04635                           TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
009300,000784: 04,2071           21051                           CADR     PINBRNCH                              #  WAS ONE.  OTHERWISE DO AN EOJ.
009301,000785: 
009302,000786: 04,2072           32470        CHECKTAB           CA       NOV37MM                               #  INDEX FOR MM TABLES.
009303,000787: 

Page 230

009305,000789: 04,2073           54155        AGAINMM            TS       MPAC       +1                         
009306,000790: 04,2074           50155                           NDX      MPAC       +1                         
009307,000791: 04,2075           32437                           CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
009308,000792: 04,2076           76077                           MASK     LOW7                                  
009309,000793: 04,2077           40000                           COM                                            
009310,000794: 04,2100           60774                           AD       MMNUMBER                              
009311,000795: 04,2101           10000                           CCS      A                                     
009312,000796: 04,2102           10155                           CCS      MPAC       +1                         #  IF GR, SEE IF ANY MORE IN LIST
009313,000797: 04,2103           12073                           TCF      AGAINMM                               #  YES, GET NEXT ONE
009314,000798: 04,2104           12326                           TCF      V37NONO                               #  LAST TIME OR PASSED MM
009315,000799: 
009316,000800: 04,2105           30155                           CA       MPAC       +1                         
009317,000801: 04,2106           54773                           TS       MINDEX                                #  SAVE INDEX FOR LATER
009318,000802: 
009319,000803: 04,2107           40103        ISSERVON           CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
009320,000804: 04,2110           74746                           MASK     V37FLBIT                              
009321,000805: 04,2111           10000                           CCS      A                                     
009322,000806: 04,2112           12132                           TCF      CANV37                                #  NO
009323,000807: 
009324,000808: 04,2113           05516                           TC       DOWNFLAG                              #  YES, TURN OFF THE AVERAGE FLAG AND
009325,000809: 04,2114           00163                           ADRES    AVEGFLAG                              #  WAIT FOR SERVICER TO RETURN TO V37RET.
009326,000810: 
009327,000811: 04,2115           15155                           TCF      ENDOFJOB                              
009328,000812: 
009329,000813: 04,2116           40074        V37RET             CS       FLAGWRD0                              #  IS P20 OR P22 RUNNING?
009330,000814: 04,2117           74745                           MASK     RNDVZBIT                              
009331,000815: 04,2120           10000                           CCS      A                                     
009332,000816: 04,2121           12123                           TCF      +2                                    #  NO. CHECK FOR P25.
009333,000817: 04,2122           12130                           TCF      2.7SPT                                #  YES. DO 2.7SPOT
009334,000818: 04,2123           40074                           CS       FLAGWRD0                              #  IS P25 RUNNING?
009335,000819: 04,2124           74743                           MASK     P25FLBIT                              
009336,000820: 04,2125           10000                           CCS      A                                     
009337,000821: 04,2126           32372        2.0SPT             CA       OCT37667                              
009338,000822: 04,2127           64747        2.11SPT            AD       BIT5                                  
009339,000823: 04,2130           62373        2.7SPT             AD       OCT40072                              
009340,000824: 04,2131           05357                           TC       PHSCHNGA                              
009341,000825: 
009342,000826: 04,2132           34755        CANV37             CAF      ZERO                                  
009343,000827: 04,2133           00006                           EXTEND                                         
009344,000828: 04,2134           01007                           WRITE    SUPERBNK                              
009345,000829: 
009346,000830: 04,2135           32371                           CAF      R00AD                                 
009347,000831: 04,2136           54374                           TS       TEMPFLSH                              
009348,000832: 
009349,000833: 04,2137           05353                           TC       PHASCHNG                              
009350,000834: 04,2140           00014                           OCT      14                                    
009351,000835: 
009352,000836: 04,2141           06042        ROC                TC       INTPRET                               
009353,000837: 
009354,000838: 04,2142           77624                           CALL                                           #  WAIT FOR INTEGRATION TO FINISH

Page 231

009356,000840: 04,2143           27410                                    INTSTALL                              
009357,000841: 04,2144           77776        DUMMYAD            EXIT                                           
009358,000842: 
009359,000843: 04,2145           05516                           TC       DOWNFLAG                              
009360,000844: 04,2146           00124                           ADRES    3AXISFLG                              #  RESET 3-AXIS FLAG
009361,000845: 
009362,000846: 04,2147           05516                           TC       DOWNFLAG                              
009363,000847: 04,2150           00055                           ADRES    POOHFLAG                              
009364,000848: 
009365,000849: 04,2151           34735                           CAF      LRBYBIT                               #  CLEAN UP THE R12 FLAGWORD.
009366,000850: 04,2152           54107                           TS       FLGWRD11                              
009367,000851: 
009368,000852: 04,2153           05516                           TC       DOWNFLAG                              #  INSURE THAT THE R04FLAG IS CLEAR.
009369,000853: 04,2154           00063                           ADRES    R04FLAG                               
009370,000854: 
009371,000855: 04,2155           05516                           TC       DOWNFLAG                              
009372,000856: 04,2156           00056                           ADRES    GLOKFAIL                              #  FLAGWORD 3 BIT 14
009373,000857: 
009374,000858: 04,2157           05516                           TC       DOWNFLAG                              #  INSURE MUNFLAG IS CLEAR.
009375,000859: 04,2160           00141                           ADRES    MUNFLAG                               
009376,000860: 
009377,000861: 04,2161           05516                           TC       DOWNFLAG                              #  RESET ABORT TARGETING FLAG (USE
009378,000862: 04,2162           00217                           ADRES    ABTTGFLG                              #        PARAMETERS J1 AND KU)
009379,000863: 
009380,000864: 04,2163           05516                           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE.
009381,000865: 04,2164           00311                           ADRES    XOVINFLG                              
009382,000866: 04,2165           10774                           CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
009383,000867: 04,2166           12314                           TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
009384,000868: 
009385,000869: 04,2167           04457        POOH               TC       RELDSP                                #  RELEASE DISPLAY SYSTEM
009386,000870: 
009387,000871: 04,2170           35017                           CAF      PRIO5                                 #  SET VARIABLE RESTART PRIORITY FOR
009388,000872: 04,2171           55055                           TS       PHSPRDT2                              #  P00 INTEGRATION.
009389,000873: 
009390,000874: 04,2172           06011                           TC       CLRADMOD                              #  CLRADMOD DOES AN INHINT.
009391,000875: 
009392,000876: 04,2173           44753                           CS       NODOBIT                               #  TURN OFF NODOFLAG.
009393,000877: 04,2174           70076                           MASK     FLAGWRD2                              
009394,000878: 04,2175           54076                           TS       FLAGWRD2                              
009395,000879: 
009396,000880: 04,2176           34756                           CA       FIVE                                  #  SET RESTART FOR STATEINT1
009397,000881: 04,2177           54001                           TS       L                                     
009398,000882: 04,2200           40000                           COM                                            
009399,000883: 04,2201           52754                           DXCH     -PHASE2                               
009400,000884: 
009401,000885: 04,2202           42374                           CS       OCT700                                #  TURN OFF P20, P25, IMU IN USE FLAG
009402,000886: 04,2203           70074                           MASK     FLAGWRD0                              
009403,000887: 04,2204           54074                           TS       FLAGWRD0                              #                         RENDFLG
009404,000888: 
009405,000889: 04,2205           34755                           CAF      DNLADP00                              

Page 232

009407,000891: 04,2206           54333        SEUDOP00           TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST CODE
009408,000892: 04,2207           55321                           TS       AGSWORD                               #    (CURRENT LIST WILL BE COMPLETED BEFORE
009409,000893:                                                                                                  #      NEW ONE IS STARTED)
009410,000894: 
009411,000895: 04,2210           04674                           TC       IBNKCALL                              
009412,000896: 04,2211           75561                           CADR     ENGINOF1                              
009413,000897: 
009414,000898: 04,2212           04674                           TC       IBNKCALL                              #  INSURE ALLCOAST.
009415,000899: 04,2213           40205                           CADR     ALLCOAST                              #  DOES A RESTORDB.
009416,000900: 
009417,000901: 04,2214           44775                           CS       OCT120                                #  TURN OFF TRACK, UPDATE FLAGS
009418,000902: 04,2215           55071                           TS       EBANKTEM                              
009419,000903: 04,2216           70075                           MASK     FLAGWRD1                              
009420,000904: 04,2217           54075                           TS       FLAGWRD1                              
009421,000905: 
009422,000906: 04,2220           04674                           TC       IBNKCALL                              #  KILL GROUPS 1,3,5,6
009423,000907: 04,2221           12650                           CADR     V37KLEAN                              
009424,000908: 
009425,000909: 04,2222           10774                           CCS      MMNUMBER                              #  IS IT POOH
009426,000910: 04,2223           12232                           TCF      RENDVOO                               #  NO
009427,000911: 04,2224           04674        GOMOD              TC       IBNKCALL                              #  REDUNDANT EXCEPT FOR GROUP 4
009428,000912: 04,2225           12645                           CADR     P00KLEAN                              
009429,000913: 
009430,000914: 04,2226           30774                           CA       MMNUMBER                              
009431,000915: 04,2227           55010                           TS       MODREG                                
009432,000916: 
009433,000917: 04,2230           04635        GOGOPROG           TC       POSTJUMP                              
009434,000918: 04,2231           12766                           CADR     GOPROG2                               
009435,000919: 
009436,000920: 04,2232           41010        RENDVOO            CS       MODREG                                #  IS CURRENT PROGRAM 22
009437,000921: 04,2233           62332                           AD       OCT26                                 
009438,000922: 04,2234           00006                           EXTEND                                         
009439,000923: 04,2235           12254                           BZF      RESET22                               #  YES - CLEAR RENDEZVOUS FLAG
009440,000924: 
009441,000925: 04,2236           40774                           CS       MMNUMBER                              #  IS NEW PROGRAM P22
009442,000926: 04,2237           62332                           AD       OCT26                                 
009443,000927: 04,2240           00006                           EXTEND                                         
009444,000928: 04,2241           12254                           BZF      RESET22                               
009445,000929: 
009446,000930: 04,2242           67751                           AD       NEG2                                  #  IS NEW PROGRAM = P20 OR P25
009447,000931: 04,2243           00006                           EXTEND                                         
009448,000932: 04,2244           12266                           BZF      RENDNOO                               #  YES
009449,000933: 04,2245           64756                           AD       FIVE                                  #  25
009450,000934: 04,2246           00006                           EXTEND                                         
009451,000935: 04,2247           12266                           BZF      RENDNOO                               #  YES
009452,000936: 
009453,000937: 04,2250           32330                           CA       OCT500                                #  NO, IS EITHER P20 OR P25 RUNNING
009454,000938: 04,2251           70074                           MASK     FLAGWRD0                              
009455,000939: 04,2252           10000                           CCS      A                                     

Page 233

009457,000941: 04,2253           12263                           TCF      P00FIZZ                               #  YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
009458,000942: 
009459,000943: 04,2254           42374        RESET22            CS       OCT700                                #  CLEAR RENDEZVOUS, P25
009460,000944: 04,2255           70074                           MASK     FLAGWRD0                              #  AND IMU IN USE FLAGS
009461,000945: 04,2256           54074                           TS       FLAGWRD0                              
009462,000946: 04,2257           06011                           TC       CLRADMOD                              
009463,000947: 
009464,000948: 04,2260           00006        KILL2              EXTEND                                         #  NO, KILL 2
009465,000949: 04,2261           34755                           DCA      NEG0                                  
009466,000950: 04,2262           52754                           DXCH     -PHASE2                               
009467,000951: 
009468,000952: 04,2263           32370        P00FIZZ            CAF      V37QCAD                               #  RESTART POINT FOR V37XEQ
009469,000953: 04,2264           54374                           TS       TEMPFLSH                              
009470,000954: 
009471,000955: 04,2265           12230                           TCF      GOGOPROG                              
009472,000956: 
009473,000957: 04,2266           41010        RENDNOO            CS       MODREG                                
009474,000958: 04,2267           66007                           AD       OCT24                                 
009475,000959: 04,2270           00006                           EXTEND                                         
009476,000960: 04,2271           12260                           BZF      KILL2                                 #  P20 OR P25 ON TOP OF P20 OR P25 -
009477,000961: 
009478,000962: 04,2272           64756                           AD       FIVE                                  
009479,000963: 04,2273           00006                           EXTEND                                         
009480,000964: 04,2274           12260                           BZF      KILL2                                 
009481,000965: 
009482,000966: 04,2275           32330                           CA       OCT500                                
009483,000967: 04,2276           70074                           MASK     FLAGWRD0                              
009484,000968: 04,2277           60774                           AD       MMNUMBER                              
009485,000969: 04,2300           40000                           COM                                            
009486,000970: 04,2301           62333                           AD       P20REG                                #  IS IT 20 AND IS RENDEZVOUS FLAG ON
009487,000971: 04,2302           00006                           EXTEND                                         
009488,000972: 04,2303           12310                           BZF      STATQUO                               #  YES
009489,000973: 04,2304           62331                           AD       OCT305                                #  IS IT 25 AND IS P25 BIT ON
009490,000974: 04,2305           00006                           EXTEND                                         
009491,000975: 04,2306           12310                           BZF      STATQUO                               #  YES, LEAVE AS IS
009492,000976: 04,2307           12260                           TCF      KILL2                                 
009493,000977: 
009494,000978: 04,2310           40075        STATQUO            CS       FLAGWRD1                              #  SET TRACKFLAG
009495,000979: 04,2311           74775                           MASK     OCT120                                #        UPDATE FLAG
009496,000980: 04,2312           26075                           ADS      FLAGWRD1                              
009497,000981: 
009498,000982: 04,2313           12224                           TCF      GOMOD                                 
009499,000983: 
009500,000984: 04,2314           32330        NOUVEAU            CAF      OCT500                                #  IS P20 OR P25 FLAG SET
009501,000985: 04,2315           70074                           MASK     FLAGWRD0                              
009502,000986: 04,2316           10000                           CCS      A                                     
009503,000987: 04,2317           12322                           TCF      +3                                    #  YES
009504,000988: 04,2320           05516                           TC       DOWNFLAG                              #  NO, RESET IMUINUSE FLAG
009505,000989: 04,2321           00007                           ADRES    IMUSE                                 

Page 234

009507,000991: 04,2322           50773                           INDEX    MINDEX                                
009508,000992: 04,2323           32471                           CAF      DNLADMM1                              #  OBTAIN APPROPRIATE DOWNLIST ADDRESS
009509,000993: 
009510,000994: 04,2324           00004                           INHINT                                         
009511,000995: 04,2325           12206                           TCF      SEUDOP00                              
009512,000996: 
009513,000997: 04,2326           04364        V37NONO            TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST
009514,000998: 
009515,000999: 04,2327           12067                           TCF      V37BAD                                
009516,001000: 
009517,001001: 04,2330     4750               OCT00010           EQUALS   BIT4                                  
009518,001002: 04,2330           00500        OCT500             OCT      500                                   #  BITS 7 AND 9
009519,001003: 04,2331           00305        OCT305             OCT      305                                   
009520,001004: 04,2332           00026        OCT26              OCT      26                                    
009521,001005: 04,2333           00124        P20REG             OCT      124                                   
009522,001006: 
009523,001007: 04,2334           00004        V37XEQ             INHINT                                         
009524,001008: 04,2335           50773                           INDEX    MINDEX                                
009525,001009: 04,2336           32437                           CAF      PREMM1                                #  OBTAIN PRIO, EBANK, AND MM
009526,001010: 04,2337           55057                           TS       MMTEMP                                
009527,001011: 04,2340           54020                           TS       CYR                                   #  SHIFT RIGHT TO BITS 14-10
009528,001012: 
009529,001013: 04,2341           30020                           CA       CYR                                   
009530,001014: 04,2342           77730                           MASK     PRIO37                                
009531,001015: 04,2343           55061                           TS       PHSPRDT4                              #  PRESET GROUP 4 RESTART PRIORITY
009532,001016: 04,2344           54063                           TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
009533,001017: 
009534,001018: 04,2345           31057                           CA       MMTEMP                                #  OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
009535,001019: 04,2346           00006                           EXTEND                                         
009536,001020: 04,2347           74744                           MP       BIT8                                  
009537,001021: 04,2350           74757                           MASK     LOW3                                  
009538,001022: 04,2351           54001                           TS       L                                     
009539,001023: 
009540,001024: 04,2352           50773                           INDEX    MINDEX                                
009541,001025: 04,2353           32406                           CAF      FCADRMM1                              
009542,001026: 04,2354           55060                           TS       BASETEMP                              #  MAKE BBCON BY ADDING HI5 OF FCADR
009543,001027: 04,2355           74350                           MASK     HI5                                   
009544,001028: 04,2356           26001                           ADS      L                                     
009545,001029: 
009546,001030: 04,2357           31060                           CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
009547,001031: 04,2360           75012                           MASK     LOW10                                 
009548,001032: 04,2361           64741                           AD       BIT11                                 
009549,001033: 
009550,001034: 04,2362           05116                           TC       SPVAC                                 
009551,001035: 
009552,001036: 04,2363           31057        V37XEQC            CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
009553,001037: 04,2364           76077                           MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
009554,001038: 04,2365           05314                           TC       NEWMODEA                              #  PHSPRDT1)
009555,001039: 
009556,001040: 04,2366           04457                           TC       RELDSP                                #  RELEASE DISPLAY

Page 235

009558,001042: 04,2367           05155                           TC       ENDOFJOB                              #  AND EXIT
009559,001043: 
009560,001044: 04,2370     5650               NEG7               EQUALS   OCT77770                              
009561,001045: 
009562,001046: 04,2370     1057               MMTEMP             EQUALS   PHSPRDT3                              
009563,001047: 04,2370     1060               BASETEMP           EQUALS   TBASE4                                
009564,001048: 04,2370           10337        V37QCAD            CADR     V37XEQ     +3                         
009565,001049: 04,2371           10144        R00AD              CADR     DUMMYAD                               
009566,001050: 04,2372           37667        OCT37667           OCT      37667                                 
009567,001051: 04,2373           40072        OCT40072           OCT      40072                                 
009568,001052: 04,2374           00700        OCT700             OCT      700                                   
009569,001053: 
009570,001054: 04,2375           36250        SETUP71            CAF      THREE                                 
009571,001055: 04,2376           54002        SETUP70            TS       Q                                     
009572,001056: 04,2377           00006                           EXTEND                                         
009573,001057: 04,2400           32405                           DCA      P70CADR                               
009574,001058: 04,2401           60002                           AD       Q                                     
009575,001059: 04,2402           52006                           DTCB                                           
009576,001060: 
009577,001061: 04,2403           00106        DEC70              DEC      70         B-14                       
009578,001062: 04,2404  E7,1520                                  EBANK=   R                                     
009579,001063: 04,2404           02067 42067  P70CADR            2CADR    P70                                   
009580,001064: 
009581,001065:                                                                                                  #  FOR VERB 37 TWO TABLES ARE MAINTAINED.  EACH TABLE HAS AN ENTRY FOR EACH
009582,001066:                                                                                                  #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD.  THE ENTRIES ARE PUT
009583,001067:                                                                                                  #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
009584,001068:                                                                                                  #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
009585,001069: 
009586,001070:                                                                                                  #  THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
009587,001071:                                                                                                  #  THE MAJOR MODE.  FOR EXAMPLE, 
009588,001072: 
009589,001073:                                                                                                  #        FCADRMM1        FCADR   P79             START OF P 79
009590,001074:                                                                                                  #                        FCADR   PROG18          START OF P 18
009591,001075:                                                                                                  #                        FCADR   P01             START OF P 01
009592,001076: 
009593,001077:                                                                                                  #  NOTE,         THE FIRST ENTRY MUST BE LABLED FCADRMM1.
009594,001078:                                                                                                  #  ----
009595,001079: 
009596,001080: 04,2406           26207        FCADRMM1           FCADR    P76                                   
009597,001081: 04,2407           72641                           FCADR    P75                                   
009598,001082: 04,2410           72457                           FCADR    P74                                   
009599,001083: 04,2411           72225                           FCADR    P73                                   
009600,001084: 04,2412           72036                           FCADR    P72                                   
009601,001085: 04,2413           71271                           FCADR    LANDJUNK                              
009602,001086: 04,2414           65000                           FCADR    P63LM                                 
009603,001087: 04,2415           33277                           FCADR    P57                                   
009604,001088: 04,2416           32050                           FCADR    PROG52                                
009605,001089: 04,2417           31421                           FCADR    P51                                   
009606,001090: 04,2420           75442                           FCADR    P47LM                                 

Page 236

009608,001092: 04,2421           75414                           FCADR    P42LM                                 
009609,001093: 04,2422           75276                           FCADR    P41LM                                 
009610,001094: 04,2423           75153                           FCADR    P40LM                                 
009611,001095: 04,2424           72635                           FCADR    P35                                   
009612,001096: 04,2425           72455                           FCADR    P34                                   
009613,001097: 04,2426           72223                           FCADR    P33                                   
009614,001098: 04,2427           72034                           FCADR    P32                                   
009615,001099: 04,2430           72000                           FCADR    P30                                   
009616,001100: 04,2431           50400                           FCADR    PROG25                                
009617,001101: 04,2432           50000                           FCADR    PROG22                                
009618,001102: 04,2433           51506                           FCADR    PROG21                                
009619,001103: 04,2434           50000                           FCADR    PROG20                                
009620,001104: 04,2435           60061                           FCADR    P12LM                                 
009621,001105: 04,2436           77652                           FCADR    P06                                   
009622,001106: 
009623,001107:                                                                                                  #  THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND PRIORITY
009624,001108:                                                                                                  #  INFORMATION, IT IS IN THE FOLLOWING FORM,
009625,001109: 
009626,001110:                                                                                                  #        PPP PPE EEM MMM MMM
009627,001111: 
009628,001112:                                                                                                  #        WHERE THE       7 M BITS CONTAIN THE MAJOR MODE NUMBER
009629,001113:                                                                                                  #                        3 E BITS CONTAIN THE E-BANK NUMBER
009630,001114:                                                                                                  #                        5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
009631,001115:                                                                                                  #                            TO BE STARTED
009632,001116: 
009633,001117:                                                                                                  #        FOR EXAMPLE,
009634,001118: 
009635,001119:                                                                                                  #                PREMM1          OCT     67213           PRIORITY        33
009636,001120:                                                                                                  #                                                        E-BANK           5
009637,001121:                                                                                                  #                                                        MAJOR MODE      11
009638,001122:                                                                                                  #                                OCT     25437           PRIORITY        12
009639,001123:                                                                                                  #                                                        E-BANK           6
009640,001124:                                                                                                  #                                                        MAJOR MODE      31
009641,001125: 
009642,001126:                                                                                                  #  NOTE,     THE FIRST ENTRY MUST BE LABELED PREMM1
009643,001127: 
009644,001128: 04,2437           27714        PREMM1             OCT      27714                                 #  MM 76         EBANK 7         PRIO 13
009645,001129: 04,2440           27713                           OCT      27713                                 #  MM 75         EBANK 7         PRIO 13
009646,001130: 04,2441           27712                           OCT      27712                                 #  MM 74         EBANK 7         PRIO 13
009647,001131: 04,2442           27711                           OCT      27711                                 #  MM 73         EBANK 7         PRIO 13
009648,001132: 04,2443           27710                           OCT      27710                                 #  MM 72         EBANK 7         PRIO 13
009649,001133: 04,2444           27704                           OCT      27704                                 #  MM 68         EBANK 7         PRIO 13
009650,001134: 04,2445           27677                           OCT      27677                                 #  MM 63         EBANK 7         PRIO 13
009651,001135: 04,2446           27271                           OCT      27271                                 #  MM 57         EBANK 5         PRIO 13
009652,001136: 04,2447           27264                           OCT      27264                                 #  MM 52         EBANK 5         PRIO 13
009653,001137: 04,2450           27263                           OCT      27263                                 #  MM 51         EBANK 5         PRIO 13
009654,001138: 04,2451           27657                           OCT      27657                                 #  MM 47         EBANK 7         PRIO 13
009655,001139: 04,2452           27652                           OCT      27652                                 #  MM 42         EBANK 7         PRIO 13
009656,001140: 04,2453           27651                           OCT      27651                                 #  MM 41         EBANK 7         PRIO 13
009657,001141: 04,2454           27650                           OCT      27650                                 #  MM 40         EBANK 7         PRIO 13
009658,001142: 04,2455           27643                           OCT      27643                                 #  MM 35         EBANK 7         PRIO 13
009659,001143: 04,2456           27642                           OCT      27642                                 #  MM 34         EBANK 7         PRIO 13

Page 237

009661,001145: 04,2457           27641                           OCT      27641                                 #  MM 33         EBANK 7         PRIO 13
009662,001146: 04,2460           27640                           OCT      27640                                 #  MM 32         EBANK 7         PRIO 13
009663,001147: 04,2461           27636                           OCT      27636                                 #  MM 30         EBANK 7         PRIO 13
009664,001148: 04,2462           27631                           OCT      27631                                 #  MM 25         EBANK 7         PRIO 13
009665,001149: 04,2463           27626                           OCT      27626                                 #  MM 22         EBANK 7         PRIO 13
009666,001150: 04,2464           27625                           OCT      27625                                 #  MM 21         EBANK 7         PRIO 13
009667,001151: 04,2465           27624                           OCT      27624                                 #  MM 20         EBANK 7         PRIO 13
009668,001152: 04,2466           27614                           OCT      27614                                 #  MM 12         EBANK 7         PRIO 13
009669,001153: 04,2467           27006                           OCT      27006                                 #  MM 06         EBANK 4         PRIO 13
009670,001154: 
009671,001155:                                                                                                  #  NOTE,         THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
009672,001156:                                                                                                  #  ----          THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
009673,001157:                                                                                                  #                THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
009674,001158: 
009675,001159: 04,2470           00030        NOV37MM            DEC      24         B-14                       #  MM'S -1
009676,001160: 
009677,001161: 04,2471           00002        DNLADMM1           ADRES    RENDEZVU                              #  P76
009678,001162: 04,2472           00002                           ADRES    RENDEZVU                              #  P75
009679,001163: 04,2473           00002                           ADRES    RENDEZVU                              #  P74
009680,001164: 04,2474           00002                           ADRES    RENDEZVU                              #  P73
009681,001165: 04,2475           00002                           ADRES    RENDEZVU                              #  P72
009682,001166: 04,2476           00004                           ADRES    DESASCNT                              #  P68
009683,001167: 04,2477           00004                           ADRES    DESASCNT                              #  P63
009684,001168: 04,2500           00005                           ADRES    LUNRSALN                              #  P57
009685,001169: 04,2501           00000                           ADRES    COSTALIN                              #  P52
009686,001170: 04,2502           00000                           ADRES    COSTALIN                              #  P51
009687,001171: 04,2503           00003                           ADRES    ORBMANUV                              #  P47
009688,001172: 04,2504           00003                           ADRES    ORBMANUV                              #  P42
009689,001173: 04,2505           00003                           ADRES    ORBMANUV                              #  P41
009690,001174: 04,2506           00003                           ADRES    ORBMANUV                              #  P40
009691,001175: 04,2507           00002                           ADRES    RENDEZVU                              #  P35
009692,001176: 04,2510           00002                           ADRES    RENDEZVU                              #  P34
009693,001177: 04,2511           00002                           ADRES    RENDEZVU                              #  P33
009694,001178: 04,2512           00002                           ADRES    RENDEZVU                              #  P32
009695,001179: 04,2513           00002                           ADRES    RENDEZVU                              #  P30
009696,001180: 04,2514           00002                           ADRES    RENDEZVU                              #  P25
009697,001181: 04,2515           00005                           ADRES    LUNRSALN                              #  P22
009698,001182: 04,2516           00002                           ADRES    RENDEZVU                              #  P21
009699,001183: 04,2517           00002                           ADRES    RENDEZVU                              #  P20
009700,001184: 04,2520           00004                           ADRES    DESASCNT                              #  P12
009701,001185: 04,2521           00000                           ADRES    COSTALIN                              #  P06
009702,001186: 
009703,001187: 04,2522     4755               DNLADP00           =        ZERO                                  
009704,001188: 04,2522                        COSTALIN           =        0                                     
009705,001189: 04,2522                        AGSUPDAT           =        1                                     
009706,001190: 04,2522                        RENDEZVU           =        2                                     
009707,001191: 04,2522                        ORBMANUV           =        3                                     
009708,001192: 04,2522                        DESASCNT           =        4                                     
009709,001193: 04,2522                        LUNRSALN           =        5                                     
009710,001194: 
009711,001195: 13,2026                                           BANK     13                                    
009712,001196: 13,2000                                           SETLOC   INTINIT                               
009713,001197: 13,2000                                           BANK                                           
009714,001198: 

Page 238

009716,001200: 13,2026                                           COUNT*   $$/INTIN                              
009717,001201: 
009718,001202: 13,2026  E3,1554                                  EBANK=   RRECTCSM                              
009719,001203: 
009720,001204:                                                                                                  #  THIS ROUTINE DOES THE POO INTEGRATION
009721,001205: 
009722,001206: 13,2026           43014        STATEUP            SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
009723,001207: 13,2027           01474                                    VINTFLAG                              
009724,001208: 13,2030           04347                                    SURFFLAG                              #  ALSO 6X6 W-MATRIX IF LM ON LUNAR
009725,001209: 13,2031           26036                                    DOINT                                 #        SURFACE AND W-MATRIX VALID
009726,001210: 13,2032           43014                           BOF      SET                                   #        FOR RENDEZVOUS NAVIGATION.
009727,001211: 13,2033           02756                                    RENDWFLG                              
009728,001212: 13,2034           26036                                    DOINT                                 
009729,001213: 13,2035           01476                                    DIM0FLAG                              
009730,001214: 13,2036           45014        DOINT              CLEAR    CALL                                  
009731,001215: 13,2037           01667                                    PRECIFLG                              #  ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
009732,001216: 13,2040           27133                                    INTEGRV                               #  WHEN MODREG = 0
009733,001217: 
009734,001218: 13,2041           71214                           BON      DLOAD                                 
009735,001219: 13,2042           04307                                    SURFFLAG                              
009736,001220: 13,2043           26063                                    NO-INT                                
009737,001221: 13,2044           01571                                    TETCSM                                
009738,001222: 13,2045           34041                           STCALL   TDEC1                                 
009739,001223: 13,2046           27410                                    INTSTALL                              
009740,001224: 13,2047           45014                           CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
009741,001225: 13,2050           01674                                    VINTFLAG                              
009742,001226: 13,2051           26643                                    SETIFLGS                              
009743,001227: 13,2052           77614                           BOF                                            #  ALSO 9X9 W-MATRIX IF W IS VALID
009744,001228: 13,2053           02756                                    RENDWFLG                              
009745,001229: 13,2054           26060                                    DOINT2                                
009746,001230: 13,2055           43014                           SET      SET                                   
009747,001231: 13,2056           01476                                    DIM0FLAG                              
009748,001232: 13,2057           01475                                    D6OR9FLG                              
009749,001233: 13,2060           45014        DOINT2             SET      CALL                                  
009750,001234: 13,2061           01467                                    PRECIFLG                              #  DISENGAGE 4 TIME STEP LOGIC IN INTEG.
009751,001235: 13,2062           27133                                    INTEGRV                               
009752,001236: 13,2063           77614        NO-INT             CLRGO                                          
009753,001237: 13,2064           01236                                    NODOFLAG                              
009754,001238: 13,2065           26631                                    ENDINT                                
009755,001239: 
009756,001240:                                                                                                  #  THISVINT IS CALLED BY MIDTOAV1 AND 2
009757,001241: 
009758,001242: 13,2066           43414        THISVINT           CLEAR    RVQ                                   
009759,001243: 13,2067           01674                                    VINTFLAG                              
009760,001244: 
009761,001245: 

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