Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

009556,000002:                                                                                                  ## Copyright:   Public domain.
009557,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
009558,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
009559,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
009560,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
009561,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
009562,000008:                                                                                                  ##              that the code format has been changed to conform to the
009563,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
009564,000010:                                                                                                  ##              original YUL assembler.
009565,000011:                                                                                                  ## Reference:   pp. 222-248
009566,000012:                                                                                                  ## Assembler:   yaYUL
009567,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009568,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009569,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
009570,000016:                                                                                                  ##              2016-11-22 HG   Transcribed
009571,000017:                                                                                                  ##              2016-12-07 HG   fix P00 -> POO
009572,000018:                                                                                                  ##                              Change DNLADPOO -> DNLADP00
009573,000019:                                                                                                  ##                                     COUNT* $$/POO -> COUNT* $$/P00
009574,000020:                                                                                                  ##                                     R00 -> ROO
009575,000021:                                                                                                  ##                                     R00AD -> ROOAD 
009576,000022:                                                                                                  ##                                     RENDN00 -> RENDNOO
009577,000023:                                                                                                  ##                                     change POO -> P00 in some comments
009578,000024:                                                                                                  ##              2016-12-11 HG  Fix operator CA BANKCALL -> TC BANKCALL
009579,000025:                                                                                                  ##              2016-12-23 RSB  Proofed comment text with octopus/ProoferComments
009580,000026:                                                                                                  ##                              and fixed all errors found.
009581,000027:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
009582,000028:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
009583,000029:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
009584,000030:                                                                                                  ##              2017-08-19 MAS  Fixed a label error found transcribing Zerlina 56.
009585,000031: 

Page 222

009587,000033: 10,2000                                           BANK     10                                    
009588,000034: 05,2000                                           SETLOC   FRANDRES                              
009589,000035: 05,2000                                           BANK                                           
009590,000036: 
009591,000037: 05,2454  E3,1400                                  EBANK=   LST1                                  
009592,000038: 
009593,000039: 05,2454                                           COUNT*   $$/START                              #  FRESH AND RESTART
009594,000040: 05,2454           00004        SLAP1              INHINT                                         #  FRESH START.  COMES HERE FROM PINBALL.
009595,000041: 05,2455           03107                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
009596,000042: 
009597,000043: 05,2456           12463        STARTSW            TCF      SKIPSIM                               #  PATCH....TCF STARTSIM...FOR SIMULATION
009598,000044: 05,2457           34727        STARTSIM           CAF      BIT14                                 
009599,000045: 05,2460           05076                           TC       FINDVAC                               
009600,000046: 05,2461           77777        SIM2CADR           OCT      77777                                 #  PATCH 2CADR (AND EBANK DESIGNATION) OF
009601,000047: 05,2462           77777                           OCT      77777                                 #  SIMULATION START ADDRESS.
009602,000048: 
009603,000049: 05,2463           31035        SKIPSIM            CA       DSPTAB     +11D                       #  TURN OFF ALL DSPTAB +11D LAMPS
009604,000050: 05,2464           74762                           MASK     BITS4&6                               #  EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
009605,000051: 05,2465           64726                           AD       BIT15                                 #  REQUESTED FRESH START.
009606,000052: 05,2466           55035                           TS       DSPTAB     +11D                       
009607,000053: 
009608,000054: 05,2467           34746                           CA       ZERO                                  
009609,000055: 05,2470           55365                           TS       ERCOUNT                               
009610,000056: 05,2471           54375                           TS       FAILREG                               
009611,000057: 05,2472           54376                           TS       FAILREG    +1                         
009612,000058: 05,2473           54377                           TS       FAILREG    +2                         
009613,000059: 05,2474           54320                           TS       REDOCTR                               
009614,000060: 
009615,000061: 05,2475           00006                           EXTEND                                         
009616,000062: 05,2476           01077                           WRITE    CHAN77                                #  ZERO CHANNEL 77
009617,000063: 
009618,000064: 05,2477           44635                           CS       PRIO12                                
009619,000065: 05,2500           55310                           TS       DSRUPTSW                              
009620,000066: 
009621,000067: 05,2501           34727        DOFSTART           CAF      BIT14                                 #  INSURE ENGINE IS OFF.
009622,000068: 05,2502           00006                           EXTEND                                         
009623,000069: 05,2503           01011                           WRITE    DSALMOUT                              
009624,000070: 05,2504           44746                           CS       ZERO                                  
009625,000071: 05,2505           54055                           TS       THRUST                                
009626,000072: 
009627,000073: 05,2506           34346        DOFSTRT1           CA       PRIO30                                
009628,000074: 05,2507           55264                           TS       RESTREG                               #  SUPER BANK PRIORITY FOR DISPLAYS.
009629,000075: 
009630,000076: 05,2510           34746                           CA       ZERO                                  
009631,000077: 05,2511           55245                           TS       ABDELV                                #  DAP INITIALIZATION
009632,000078: 05,2512           54370                           TS       NVSAVE                                
009633,000079: 05,2513           55071                           TS       EBANKTEM                              
009634,000080: 05,2514           55257                           TS       CH5MASK                               
009635,000081: 05,2515           55260                           TS       CH6MASK                               
009636,000082: 

Page 223

009638,000084: 05,2516           55273                           TS       PVALVEST                              #  FOR RCS FAILURE MONITOR
009639,000085: 05,2517           55360                           TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
009640,000086: 05,2520           55362                           TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
009641,000087: 05,2521           54333                           TS       DNLSTCOD                              #  SELECT POO DOWNLIST
009642,000088: 05,2522           55321                           TS       AGSWORD                               #  ALLOW AGS INITIALIZATION
009643,000089: 05,2523           55501                           TS       UPSVFLAG                              #  ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
009644,000090: 05,2524           00006                           EXTEND                                         
009645,000091: 05,2525           01005                           WRITE    CHAN5                                 #  TURN OFF RCS JETS.
009646,000092: 05,2526           00006                           EXTEND                                         
009647,000093: 05,2527           01006                           WRITE    CHAN6                                 #  TURN OFF RCS JETS.
009648,000094: 05,2530           00006                           EXTEND                                         
009649,000095: 05,2531           01012                           WRITE    CHAN12                                
009650,000096: 05,2532           00006                           EXTEND                                         
009651,000097: 05,2533           01013                           WRITE    CHAN13                                
009652,000098: 05,2534           00006                           EXTEND                                         
009653,000099: 05,2535           01014                           WRITE    CHAN14                                
009654,000100: 05,2536           41035                           CS       DSPTAB     +11D                       
009655,000101: 05,2537           74762                           MASK     BITS4&6                               
009656,000102: 05,2540           10000                           CCS      A                                     
009657,000103: 05,2541           02545                           TC       +4                                    
009658,000104: 05,2542           34762                           CA       BITS4&6                               
009659,000105: 05,2543           00006                           EXTEND                                         #  THE IMU WAS IN COARSE ALIGN IN GIMBAL
009660,000106: 05,2544           05012                           WOR      CHAN12                                #  LOCK, SO PUT IT BACK INTO COARSE ALIGN.
009661,000107: 05,2545           02645                 +4        TC       MR.KLEAN                              
009662,000108: 
009663,000109: 05,2546           44746                           CS       ZERO                                  
009664,000110: 05,2547           55010                           TS       MODREG                                
009665,000111: 
009666,000112: 05,2550           33377                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
009667,000113: 05,2551           55277                           TS       IMODES30                              
009668,000114: 
009669,000115: 05,2552           33067                           CAF      MAXDB                                 
009670,000116: 05,2553           55343                           TS       DB                                    
009671,000117: 05,2554           34742                           CAF      FOUR                                  
009672,000118: 05,2555           55322                           TS       RATEINDX                              #  INITIALIZE KALCMANU RATE
009673,000119: 05,2556           33064                           CA       BOOLSTRT                              
009674,000120: 05,2557           54111                           TS       DAPBOOLS                              
009675,000121: 05,2560           35006                           CAF      EBANK6                                
009676,000122: 05,2561           54003                           TS       EBANK                                 
009677,000123: 05,2562  E6,1400                                  EBANK=   HIASCENT                              
009678,000124: 
009679,000125: 05,2562           33062                           CA       STIKSTRT                              
009680,000126: 05,2563           55444                           TS       STIKSENS                              
009681,000127: 05,2564           33063                           CA       RATESTRT                              
009682,000128: 05,2565           55476                           TS       -RATEDB                               
009683,000129: 05,2566           32000                           CAF      FULLAPS                               #  INITIALIZE MAXIMUM ASCENT MASS FOR USE
009684,000130: 05,2567           55400                           TS       HIASCENT                              #    BY 1/ACCS UNTIL THE PAD LOAD IS DONE.
009685,000131: 05,2570           44775                           CS       LOW9                                  #  LOAD DAP FILTER GAINS (PAD LOAD)
009686,000132: 05,2571           55403                           TS       DKTRAP                                #     TO BEST PRESENT ESTIMATE OF GOODIES
009687,000133: 05,2572           55406                           TS       LMTRAP                                #  .14 DEG
009688,000134: 

Page 224

009690,000136: 05,2573           33065                           CA       60DEC                                 
009691,000137: 05,2574           55405                           TS       DKKAOSN                               
009692,000138: 05,2575           55410                           TS       LMKAOSN                               #  6 SEC GAIN FOR ALPHA
009693,000139: 05,2576           34746                           CA       ZERO                                  
009694,000140: 05,2577           55407                           TS       LMOMEGAN                              #  UNITY GAIN
009695,000141: 05,2600           34354                           CA       TEN                                   
009696,000142: 05,2601           55404                           TS       DKOMEGAN                              #  1 SEC GAIN FOR OMEGA
009697,000143: 05,2602           34735                           CAF      BIT8                                  #  SET DOCKED DB TO 1.4 DEG.  MAY OVERWRITE
009698,000144: 05,2603           55411                           TS       DKDB                                  #        WITH PAD LOAD.
009699,000145: 05,2604           35017                           CAF      IM33INIT                              
009700,000146: 05,2605           64737                           AD       BIT6                                  #  KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
009701,000147: 05,2606           55300                           TS       IMODES33                              #    OFF UNTIL ICDU ZERO IS FINISHED.
009702,000148: 
009703,000149: 05,2607           00006                           EXTEND                                         #  INITIALIZE SWITCHES ONLY ON FRESH START.
009704,000150: 05,2610           33404                           DCA      SWINIT                                
009705,000151: 05,2611           52075                           DXCH     STATE                                 
009706,000152: 05,2612           33405                           CA       SWINIT     +2                         
009707,000153: 05,2613           54076                           TS       STATE      +2                         
009708,000154: 05,2614           34730                           CA       REFSMBIT                              #  DO NOT ALTER REFSMFLG ON FRESH START.
009709,000155: 05,2615           64732                           AD       NOP07BIT                              #               NODOP07
009710,000156: 05,2616           70077                           MASK     STATE      +3                         
009711,000157: 05,2617           63406                           AD       SWINIT     +3                         
009712,000158: 05,2620           54077                           TS       STATE      +3                         
009713,000159: 05,2621           00006                           EXTEND                                         
009714,000160: 05,2622           33410                           DCA      SWINIT     +4                         
009715,000161: 05,2623           52101                           DXCH     STATE      +4                         
009716,000162: 05,2624           00006                           EXTEND                                         
009717,000163: 05,2625           33412                           DCA      SWINIT     +6                         
009718,000164: 05,2626           52103                           DXCH     STATE      +6                         
009719,000165: 05,2627           33061                           CA       OCT6200                               #  CMOONFLG, LMOONFLG, SURFFLAG
009720,000166: 05,2630           70104                           MASK     STATE      +8D                        
009721,000167: 05,2631           63413                           AD       SWINIT     +8D                        
009722,000168: 05,2632           54104                           TS       STATE      +8D                        
009723,000169: 05,2633           33414                           CA       SWINIT     +9D                        
009724,000170: 05,2634           54105                           TS       STATE      +9D                        
009725,000171: 05,2635           34730                           CA       APSFLBIT                              #  DO NOT ALTER APSFLAG ON FRESH START.
009726,000172: 05,2636           70106                           MASK     STATE      +10D                       
009727,000173: 05,2637           63415                           AD       SWINIT     +10D                       
009728,000174: 05,2640           54106                           TS       STATE      +10D                       
009729,000175: 05,2641           33416                           CAF      SWINIT     +11D                       
009730,000176: 05,2642           54107                           TS       STATE      +11D                       
009731,000177: 
009732,000178: 05,2643           04626        ENDRSTRT           TC       POSTJUMP                              #  NOW IN ANOTHER BANK.
009733,000179: 05,2644           03212                           CADR     DUMMYJOB   +2                         #  PICKS UP AT RELINT.   (DONT ZERO NEWJOB)
009734,000180: 
009735,000181: 05,2645           00004        MR.KLEAN           INHINT                                         
009736,000182: 05,2646           00006                           EXTEND                                         
009737,000183: 05,2647           34746                           DCA      NEG0                                  
009738,000184: 05,2650           52754                           DXCH     -PHASE2                               
009739,000185: 

Page 225

009741,000187: 05,2651           00006        POOKLEAN           EXTEND                                         
009742,000188: 05,2652           34746                           DCA      NEG0                                  
009743,000189: 05,2653           52760                           DXCH     -PHASE4                               
009744,000190: 05,2654           00006        V37KLEAN           EXTEND                                         
009745,000191: 05,2655           34746                           DCA      NEG0                                  
009746,000192: 05,2656           52762                           DXCH     -PHASE5                               
009747,000193: 05,2657           00006        ABTKLEAN           EXTEND                                         
009748,000194: 05,2660           34746                           DCA      NEG0                                  
009749,000195: 05,2661           52756                           DXCH     -PHASE3                               
009750,000196: 05,2662           00006                           EXTEND                                         
009751,000197: 05,2663           34746                           DCA      NEG0                                  
009752,000198: 05,2664           52752                           DXCH     -PHASE1                               
009753,000199: 05,2665           00006                           EXTEND                                         
009754,000200: 05,2666           34746                           DCA      NEG0                                  
009755,000201: 05,2667           52764                           DXCH     -PHASE6                               
009756,000202: 05,2670           00002                           TC       Q                                     
009757,000203: 

Page 226

009759,000205:                                                                                                  #           COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME
009760,000206: 
009761,000207: 05,2671  E3,1400                                  EBANK=   LST1                                  
009762,000208: 05,2671           24320        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
009763,000209: 
009764,000210: 05,2672           22002                           LXCH     Q                                     
009765,000211: 05,2673           00006                           EXTEND                                         
009766,000212: 05,2674           04007                           ROR      SUPERBNK                              
009767,000213: 05,2675           53433                           DXCH     RSBBQ                                 
009768,000214: 05,2676           31035                           CA       DSPTAB     +11D                       
009769,000215: 05,2677           74741                           MASK     BIT4                                  
009770,000216: 05,2700           00006                           EXTEND                                         
009771,000217: 05,2701           12705                           BZF      +4                                    
009772,000218: 05,2702           64737                           AD       BIT6                                  #  SET ERROR COUNTER ENABLE
009773,000219: 05,2703           00006                           EXTEND                                         
009774,000220: 05,2704           05012                           WOR      CHAN12                                #  ISS WAS IN COARS ALIGN SO GO BACK TO
009775,000221: 05,2705           03070        BUTTONS            TC       LIGHTSET                              
009776,000222: 
009777,000223:                                                                                                  #                                             ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
009778,000224:                                                                                                  #                                             AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
009779,000225:                                                                                                  #                                             ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
009780,000226:                                                                                                  #                                             EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE
009781,000227:                                                                                                  #                                             C(ERESTORE) SHOULD EQUAL +0.
009782,000228: 
009783,000229: 05,2706           34341                           CAF      HI5                                   
009784,000230: 05,2707           71360                           MASK     ERESTORE                              
009785,000231: 05,2710           00006                           EXTEND                                         
009786,000232: 05,2711           12713                           BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
009787,000233: 05,2712           13105                           TCF      NONAVKEY   +3                         #  DO FRESH START - E MEMORY MIGHT BE BAD
009788,000234: 05,2713           41360                           CS       ERESTORE                              
009789,000235: 05,2714           00006                           EXTEND                                         
009790,000236: 05,2715           12732                           BZF      DORSTART                              #  = +0 CONTINUE WITH RESTART.
009791,000237: 05,2716           61377                           AD       SKEEP7                                
009792,000238: 05,2717           00006                           EXTEND                                         
009793,000239: 05,2720           12722                           BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
009794,000240: 05,2721           13105                           TCF      NONAVKEY   +3                         #  DO FRESH START - E MEMORY MIGHT BE BAD
009795,000241: 05,2722           31374                           CA       SKEEP4                                
009796,000242: 05,2723           54003                           TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
009797,000243: 05,2724           00006                           EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
009798,000244: 05,2725           31376                           DCA      SKEEP5                                
009799,000245: 05,2726           51377                           INDEX    SKEEP7                                
009800,000246: 05,2727           52001                           DXCH     0000                                  #  E MEMORY RESTORED.
009801,000247: 05,2730           34746                           CA       ZERO                                  
009802,000248: 05,2731           55360                           TS       ERESTORE                              
009803,000249: 05,2732           03107        DORSTART           TC       STARTSUB                              #  DO INITIALIZATION AFTER ERASE RESTORE.
009804,000250: 
009805,000251: 05,2733           44727        SETINFL            CS       INTFLBIT                              
009806,000252: 05,2734           70106                           MASK     FLGWRD10                              
009807,000253: 05,2735           54106                           TS       FLGWRD10                              

Page 227

009809,000255: 05,2736           33401                           CA       9,6,4                                 #  LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
009810,000256: 05,2737           71035                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
009811,000257: 05,2740           64726                           AD       BIT15                                 
009812,000258: 05,2741           57035                           XCH      DSPTAB     +11D                       
009813,000259: 05,2742           33365                           CAF      IFAILINH                              #  LEAVE IMU FAILURE INHIBITS INTACT ON
009814,000260: 05,2743           71277                           MASK     IMODES30                              #  HARDWARE RESTART. RESET ALL FAILURE
009815,000261: 05,2744           63400                           AD       IM30INIR                              #  CODES.
009816,000262: 05,2745           55277                           TS       IMODES30                              
009817,000263: 
009818,000264: 05,2746           31321                           CA       AGSWORD                               #  BE SURE OF CORRECT DOWNLIST
009819,000265: 05,2747           54333                           TS       DNLSTCOD                              
009820,000266: 
009821,000267: 05,2750           34741                           CA       BIT4                                  #  TURN ON THROTTLE COUNTER
009822,000268: 05,2751           00006                           EXTEND                                         
009823,000269: 05,2752           05014                           WOR      CHAN14                                #  TURN ON THRUST DRIVE
009824,000270: 05,2753           40101                           CS       FLAGWRD5                              
009825,000271: 05,2754           74736                           MASK     ENGONBIT                              
009826,000272: 05,2755           10000                           CCS      A                                     
009827,000273: 05,2756           12763                           TCF      +5                                    
009828,000274: 05,2757           34730                           CAF      BIT13                                 
009829,000275: 05,2760           00006                           EXTEND                                         
009830,000276: 05,2761           05011                           WOR      DSALMOUT                              #  TURN ENGINE ON
009831,000277: 05,2762           12777                           TCF      GOPROG3                               
009832,000278: 05,2763           34727                 +5        CAF      BIT14                                 
009833,000279: 05,2764           00006                           EXTEND                                         
009834,000280: 05,2765           05011                           WOR      DSALMOUT                              #  TURN ENGINE OFF.
009835,000281: 05,2766           12777                           TCF      GOPROG3                               
009836,000282: 
009837,000283: 05,2767           00004        ENEMA              INHINT                                         
009838,000284: 05,2770           03116                           TC       STARTSB1                              
009839,000285: 05,2771           12773                           TCF      GOPROG2A                              
009840,000286: 05,2772           03156        GOPROG2            TC       STARTSB2                              
009841,000287: 05,2773           03070        GOPROG2A           TC       LIGHTSET                              
009842,000288: 05,2774           44727                           CS       INTFLBIT                              #  CLEAR INTEGR IN PROGRESS BIT
009843,000289: 05,2775           70106                           MASK     FLGWRD10                              
009844,000290: 05,2776           54106                           TS       FLGWRD10                              
009845,000291: 
009846,000292: 05,2777           34747        GOPROG3            CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
009847,000293: 05,3000           54161        PCLOOP             TS       MPAC       +5                         
009848,000294: 05,3001           60000                           DOUBLE                                         
009849,000295: 05,3002           00006                           EXTEND                                         
009850,000296: 05,3003           50000                           INDEX    A                                     
009851,000297: 05,3004           30752                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
009852,000298: 05,3005           00006                           EXTEND                                         
009853,000299: 05,3006           06001                           RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
009854,000300: 05,3007           10000                           CCS      A                                     
009855,000301: 05,3010           13056                           TCF      PTBAD                                 #  RESTART FAILURE.
009856,000302: 05,3011           13056                           TCF      PTBAD                                 
009857,000303: 05,3012           13056                           TCF      PTBAD                                 
009858,000304: 

Page 228

009860,000306: 05,3013           10161                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
009861,000307: 05,3014           13000                           TCF      PCLOOP                                
009862,000308: 
009863,000309: 05,3015           54162                           TS       MPAC       +6                         #  SET TO +0.
009864,000310: 05,3016           05317                           TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
009865,000311: 
009866,000312: 05,3017           00004                           INHINT                                         #  RELINT DONE IN MMDSPLAY
009867,000313: 
009868,000314: 05,3020           44727                           CS       DIDFLBIT                              #  CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
009869,000315: 05,3021           70075                           MASK     FLAGWRD1                              #  RE-INITIALIZE ITSELF IF IT HAD BEEN
009870,000316: 05,3022           54075                           TS       FLAGWRD1                              #  OPERATING AT THE TIME OF THE RESTART.
009871,000317: 
009872,000318: 05,3023           44731                           CS       RODFLBIT                              #  CLEAR RODFLAG.  IF P66 IS IN OPERATION
009873,000319: 05,3024           70075                           MASK     FLAGWRD1                              #       IT WILL RE-INITIALIZE ITSELF AND
009874,000320: 05,3025           54075                           TS       FLAGWRD1                              #       CONTINUE.
009875,000321: 
009876,000322: 05,3026           44732                           CS       P21FLBIT                              #  CLEAR P21FLAG SO THAT P21 WILL COMPUTE
009877,000323: 05,3027           70074                           MASK     FLAGWRD0                              #  NEW BASE STATE VECTORS.
009878,000324: 05,3030           54074                           TS       FLAGWRD0                              
009879,000325: 
009880,000326: 05,3031           34747                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
009881,000327: 05,3032           54161        NXTRST             TS       MPAC       +5                         
009882,000328: 05,3033           60000                           DOUBLE                                         
009883,000329: 05,3034           50000                           INDEX    A                                     
009884,000330: 05,3035           10752                           CCS      PHASE1                                
009885,000331: 05,3036           13040                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
009886,000332: 05,3037           13045                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
009887,000333: 
009888,000334: 05,3040           54154        PACTIVE            TS       MPAC                                  
009889,000335: 05,3041           24154                           INCR     MPAC                                  #  ABS OF PHASE.
009890,000336: 05,3042           24162                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
009891,000337: 05,3043           04607                           TC       BANKCALL                              
009892,000338: 05,3044           03530                           CADR     RESTARTS                              
009893,000339: 05,3045           10161        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
009894,000340: 05,3046           13032                           TCF      NXTRST                                
009895,000341: 
009896,000342: 05,3047           10162                           CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
009897,000343: 05,3050           12643                           TCF      ENDRSTRT                              #  PHASE ACTIVE
009898,000344: 05,3051           34726                           CAF      BIT15                                 #  IS MODE -0
009899,000345: 05,3052           71010                           MASK     MODREG                                
009900,000346: 05,3053           00006                           EXTEND                                         
009901,000347: 05,3054           16011                           BZF      CALGOPOO                              #  NO
009902,000348: 05,3055           12643                           TCF      ENDRSTRT                              #  YES
009903,000349: 05,3056           05571        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
009904,000350: 05,3057           01107                           OCT      1107                                  
009905,000351: 
009906,000352: 05,3060           12506                           TCF      DOFSTRT1                              
009907,000353: 
009908,000354:                                                                                                  #  ******** ****** ******

Page 229

009910,000356:                                                                                                  #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
009911,000357: 
009912,000358: 05,3061     4730               OCT10000           =        BIT13                                 
009913,000359: 05,3061     4346               OCT30000           =        PRIO30                                
009914,000360: 05,3061           06200        OCT6200            OCT      6200                                  #  SURFBIT, CMOONBIT, LMOONBIT FOR SWINITS
009915,000361: 05,3062           32321        STIKSTRT           DEC      0.825268                              #  20 D/S MAXIMUM COMMANDED RATE
009916,000362: 05,3063           77445        RATESTRT           DEC      -218       B-14                       
009917,000363: 05,3064           21322        BOOLSTRT           OCT      21322                                 
009918,000364: 05,3065           00074        60DEC              DEC      60         B-14                       
009919,000365: 05,3066           20100        RSFLGBTS           OCT      20100                                 
009920,000366: 05,3067           03434        MAXDB              OCTAL    03434                                 #  5 DEG ATTITUDE DEADBAND, SCALED AT 45.
009921,000367: 
009922,000368: 05,3070           34740        LIGHTSET           CAF      BIT5                                  #  CHECK FOR MARK REJECT AND ERROR RESET
009923,000369: 05,3071           00006                           EXTEND                                         
009924,000370: 05,3072           02016                           RAND     NAVKEYIN                              
009925,000371: 05,3073           00006                           EXTEND                                         
009926,000372: 05,3074           13102                           BZF      NONAVKEY                              #  NO MARK REJECT
009927,000373: 05,3075           00006                           EXTEND                                         
009928,000374: 05,3076           00015                           READ     MNKEYIN                               #  CHECK IF KEYS 2M AND 5M ON
009929,000375: 05,3077           63376                           AD       -ELR                                  #  MAIN DSKY KEYCODE(BITS 1-5)
009930,000376: 05,3100           00006                           EXTEND                                         
009931,000377: 05,3101           13103                           BZF      +2                                    
009932,000378: 
009933,000379: 05,3102           00002        NONAVKEY           TC       Q                                     
009934,000380: 
009935,000381: 05,3103           03107                           TC       STARTSUB                              
009936,000382: 05,3104           12501                           TCF      DOFSTART                              
009937,000383: 05,3105           03107                 +3        TC       STARTSUB                              
009938,000384: 05,3106           12506                           TCF      DOFSTRT1                              #  DO FRESH START BUT DON'T TOUCH ENGINE
009939,000385: 

Page 230

009941,000387:                                                                                                  #           INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
009942,000388: 
009943,000389: 05,3107  E6,1536                                  EBANK=   AOSQ                                  
009944,000390: 05,3107           33366        STARTSUB           CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
009945,000391: 05,3110           54335                           TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE
009946,000392:                                                                                                  #  INTERRUPTED AND START SENDING FROM THE
009947,000393:                                                                                                  #  BEGINNING OF THE CURRENT DOWNLIST.
009948,000394: 05,3111           34737                           CAF      BIT6                                  
009949,000395: 05,3112           00006                           EXTEND                                         
009950,000396: 05,3113           02033                           RAND     CHAN33                                
009951,000397: 05,3114           63402                           AD       RMODINIT                              
009952,000398: 05,3115           54110                           TS       RADMODES                              
009953,000399: 
009954,000400: 05,3116           34724        STARTSB1           CAF      POSMAX                                
009955,000401: 05,3117           54026                           TS       TIME3                                 
009956,000402: 05,3120           67767                           AD       MINUS2                                
009957,000403: 05,3121           54027                           TS       TIME4                                 
009958,000404: 05,3122           67770                           AD       NEGONE                                
009959,000405: 05,3123           54030                           TS       TIME5                                 
009960,000406: 
009961,000407: 05,3124           35006                           CAF      EBANK6                                
009962,000408: 05,3125           54003                           TS       EBANK                                 
009963,000409: 
009964,000410: 05,3126           34724                           CAF      POSMAX                                #  DISABLE TIME6 CLOCK.  JUST IN CASE A T6
009965,000411: 05,3127           55466                           TS       T6NEXT                                #    RUPT IS ALREADY IN THE PRIORITY CHAIN,
009966,000412: 05,3130           00006                           EXTEND                                         #    ENSURE THAT IT'S INPUTS WILL RENDER IT
009967,000413: 05,3131           03013                           WAND     CHAN13                                #    INEFFECTUAL.
009968,000414: 05,3132           34746                           CAF      ZERO                                  
009969,000415: 05,3133           55465                           TS       NXT6ADR                               
009970,000416: 05,3134           55472                           TS       NEXTP                                 
009971,000417: 
009972,000418: 05,3135           44742                           CS       ACCSOKAY                              
009973,000419: 05,3136           70111                           MASK     DAPBOOLS                              
009974,000420: 05,3137           54111                           TS       DAPBOOLS                              
009975,000421: 
009976,000422: 05,3140           00006                           EXTEND                                         #  SET T5RUPT FOR DAPIDLER PROGRAM.
009977,000423: 05,3141           33364                           DCA      IDLEADR                               
009978,000424: 05,3142           53263                           DXCH     T5ADR                                 
009979,000425: 
009980,000426: 05,3143           40107                           CS       FLGWRD11                              #  IF R12 IS PERMITTED, ENSURE THAT NEXT
009981,000427: 05,3144           74726                           MASK     LRBYBIT                               #   RADAR READS ARE NOT USED
009982,000428: 05,3145           00006                           EXTEND                                         
009983,000429: 05,3146           13156                           BZF      STARTSB2                              #  R12 OFF
009984,000430: 
009985,000431: 05,3147           24006                           INCR     BBANK                                 #  SET EBANK TO 7
009986,000432: 05,3150  E7,1674                                  EBANK=   STILBADH                              
009987,000433: 05,3150           11674                           CCS      STILBADH                              #  IF STILBADH>0, NEXT READ WILL BE IGNORED
009988,000434: 05,3151           13153                           TCF      +2                                    
009989,000435: 05,3152           25674                           INCR     STILBADH                              #  SET STILBADH TO IGNORE NEXT READ
009990,000436: 

Page 231

009992,000438: 
009993,000439: 05,3153           11675                 +2        CCS      STILBADV                              
009994,000440: 05,3154           13156                           TCF      STARTSB2                              #  IF STILBADV>0, NEXT READ WILL BE IGNORED
009995,000441: 05,3155           25675                           INCR     STILBADV                              #  SET STILBADV TO IGNORE NEXT READ
009996,000442: 
009997,000443: 05,3156           33375        STARTSB2           CAF      OCT30001                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
009998,000444: 05,3157           00006                           EXTEND                                         #  ENGINE ON, OFF AND ISS WARNING.
009999,000445: 05,3160           03011                           WAND     DSALMOUT                              
010000,000446: 
010001,000447: 05,3161           43371                           CS       OCT32001                              
010002,000448: 05,3162           70110                           MASK     RADMODES                              
010003,000449: 05,3163           54110                           TS       RADMODES                              
010004,000450: 05,3164           33373                           CAF      OCT27470                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
010005,000451: 05,3165           00006                           EXTEND                                         #  IMU FLAGS. (COURSE ALIGN ENABLE, ZERO
010006,000452: 05,3166           03012                           WAND     CHAN12                                #  IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
010007,000453:                                                                                                  #  TRIM DRIVES. LEAVE RR LOCKON ENABLE
010008,000454:                                                                                                  #  ALONE.
010009,000455: 
010010,000456: 05,3167           44742                           CS       R12RDBIT                              #  R12RDFLG CLEARED TO ESCAPE FROM POSSIBLE
010011,000457: 05,3170           70107                           MASK     FLGWRD11                              #   "CCS NEWJOB" LOOP IN VUPDAT SEC. OF R12
010012,000458: 05,3171           54107                           TS       FLGWRD11                              
010013,000459: 
010014,000460: 05,3172           44741                           CS       NORRMBIT                              #  ENABLE R25.
010015,000461: 05,3173           70101                           MASK     FLAGWRD5                              
010016,000462: 05,3174           54101                           TS       FLAGWRD5                              
010017,000463: 
010018,000464: 05,3175           44732                           CS       R77FLBIT                              #  CLEAR R77FLAG
010019,000465: 05,3176           70101                           MASK     FLAGWRD5                              
010020,000466: 05,3177           54101                           TS       FLAGWRD5                              
010021,000467: 05,3200           33374                           CAF      OCT74160                              #  DURING SOFTWARE RESTART, DO NOT DUSTURB
010022,000468: 05,3201           00006                           EXTEND                                         #  TELEMETRY FLAGS, RESET TRAP FLAGS, AND
010023,000469: 05,3202           03013                           WAND     CHAN13                                #  ENABLE T6RUPT FLAG.
010024,000470: 
010025,000471: 05,3203           34731                           CAF      BIT12                                 #  REENABLE RUPT10 (RUPT QUICKLY
010026,000472: 05,3204           00006                           EXTEND                                         #    RESUMES EXCEPT DURING P64)
010027,000473: 05,3205           05013                           WOR      CHAN13                                
010028,000474: 
010029,000475: 05,3206           34762                           CAF      OCT50                                 #  DURING SOFTWARE RESTART, DO NOT DISTURB
010030,000476: 05,3207           00006                           EXTEND                                         #  GYRO ENABLE OR THRUST ENABLE
010031,000477: 05,3210           03014                           WAND     CHAN14                                
010032,000478: 
010033,000479: 05,3211           46130                           CS       OCT40001                              #  TO TURN OFF SUPER-KEYRELEASE LIGHT:
010034,000480: 05,3212           71035                           MASK     DSPTAB     +11D                       #  TURN OFF BITS 15 AND 1 IF THEY WERE ON;
010035,000481: 05,3213           64726                           AD       BIT15                                 #  NOW SET BIT 15 TO TRIGGER DSKY UPDATE
010036,000482: 05,3214           55035                           TS       DSPTAB     +11D                       
010037,000483: 
010038,000484: 05,3215  E3,1400                                  EBANK=   LST1                                  
010039,000485: 05,3215           35000                           CAF      STARTEB                               
010040,000486: 05,3216           54003                           TS       EBANK                                 #  SET FOR E3
010041,000487: 
010042,000488: 05,3217           34725                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
010043,000489: 

Page 232

010045,000491: 05,3220           55407                           TS       LST1       +7                         
010046,000492: 05,3221           55406                           TS       LST1       +6                         
010047,000493: 05,3222           55405                           TS       LST1       +5                         
010048,000494: 05,3223           55404                           TS       LST1       +4                         
010049,000495: 05,3224           55403                           TS       LST1       +3                         
010050,000496: 05,3225           55402                           TS       LST1       +2                         
010051,000497: 05,3226           55401                           TS       LST1       +1                         
010052,000498: 05,3227           55400                           TS       LST1                                  
010053,000499: 
010054,000500: 05,3230           45240                           CS       ENDTASK                               
010055,000501: 05,3231           55410                           TS       LST2                                  
010056,000502: 05,3232           55412                           TS       LST2       +2                         
010057,000503: 05,3233           55414                           TS       LST2       +4                         
010058,000504: 05,3234           55416                           TS       LST2       +6                         
010059,000505: 05,3235           55420                           TS       LST2       +8D                        
010060,000506: 05,3236           55422                           TS       LST2       +10D                       
010061,000507: 05,3237           55424                           TS       LST2       +12D                       
010062,000508: 05,3240           55426                           TS       LST2       +14D                       
010063,000509: 05,3241           55430                           TS       LST2       +16D                       
010064,000510: 05,3242           45241                           CS       ENDTASK    +1                         
010065,000511: 05,3243           55411                           TS       LST2       +1                         
010066,000512: 05,3244           55413                           TS       LST2       +3                         
010067,000513: 05,3245           55415                           TS       LST2       +5                         
010068,000514: 05,3246           55417                           TS       LST2       +7                         
010069,000515: 05,3247           55421                           TS       LST2       +9D                        
010070,000516: 05,3250           55423                           TS       LST2       +11D                       
010071,000517: 05,3251           55425                           TS       LST2       +13D                       
010072,000518: 05,3252           55427                           TS       LST2       +15D                       
010073,000519: 05,3253           55431                           TS       LST2       +17D                       
010074,000520: 
010075,000521: 05,3254           44746                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
010076,000522: 05,3255           54167                           TS       PRIORITY                              #  AVAILABLE.
010077,000523: 05,3256           54203                           TS       PRIORITY   +12D                       
010078,000524: 05,3257           54217                           TS       PRIORITY   +24D                       
010079,000525: 05,3260           54233                           TS       PRIORITY   +36D                       
010080,000526: 05,3261           54247                           TS       PRIORITY   +48D                       
010081,000527: 05,3262           54263                           TS       PRIORITY   +60D                       
010082,000528: 05,3263           54277                           TS       PRIORITY   +72D                       
010083,000529: 05,3264           54313                           TS       PRIORITY   +84D                       
010084,000530: 
010085,000531: 05,3265           55310                           TS       DSRUPTSW                              
010086,000532: 05,3266           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
010087,000533: 
010088,000534: 05,3267           33370                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
010089,000535: 05,3270           54400                           TS       VAC1USE                               
010090,000536: 05,3271           63372                           AD       LTHVACA                               
010091,000537: 05,3272           54454                           TS       VAC2USE                               
010092,000538: 05,3273           63372                           AD       LTHVACA                               
010093,000539: 05,3274           54530                           TS       VAC3USE                               
010094,000540: 05,3275           63372                           AD       LTHVACA                               
010095,000541: 

Page 233

010097,000543: 05,3276           54604                           TS       VAC4USE                               
010098,000544: 05,3277           63372                           AD       LTHVACA                               
010099,000545: 05,3300           54660                           TS       VAC5USE                               
010100,000546: 
010101,000547: 05,3301           34354                           CAF      TEN                                   
010102,000548: 05,3302           54154        DSPOFF             TS       MPAC                                  #  R1, R2, R3).
010103,000549: 05,3303           44731                           CS       BIT12                                 
010104,000550: 05,3304           50154                           INDEX    MPAC                                  
010105,000551: 05,3305           55022                           TS       DSPTAB                                
010106,000552: 05,3306           10154                           CCS      MPAC                                  
010107,000553: 05,3307           13302                           TCF      DSPOFF                                
010108,000554: 
010109,000555: 05,3310           55323                           TS       DELAYLOC                              
010110,000556: 05,3311           55324                           TS       DELAYLOC   +1                         
010111,000557: 05,3312           55325                           TS       DELAYLOC   +2                         
010112,000558: 05,3313           54045                           TS       INLINK                                
010113,000559: 05,3314           54775                           TS       DSPCNT                                
010114,000560: 05,3315           55041                           TS       CADRSTOR                              
010115,000561: 05,3316           55012                           TS       REQRET                                
010116,000562: 05,3317           55014                           TS       CLPASS                                
010117,000563: 05,3320           55011                           TS       DSPLOCK                               
010118,000564: 05,3321           55017                           TS       MONSAVE                               #  KILL MONITOR
010119,000565: 05,3322           55020                           TS       MONSAVE1                              
010120,000566: 05,3323           55000                           TS       VERBREG                               
010121,000567: 05,3324           55001                           TS       NOUNREG                               
010122,000568: 05,3325           55042                           TS       DSPLIST                               
010123,000569: 05,3326           55307                           TS       MARKSTAT                              
010124,000570: 05,3327           55043                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
010125,000571: 05,3330           55301                           TS       IMUCADR                               
010126,000572: 05,3331           55302                           TS       OPTCADR                               
010127,000573: 05,3332           55303                           TS       RADCADR                               
010128,000574: 05,3333           55304                           TS       ATTCADR                               
010129,000575: 05,3334           55311                           TS       LGYRO                                 
010130,000576: 05,3335           55776                           TS       OLDAGS                                #  ZERO OUT LAST MARKTIME SENT TO AGS
010131,000577: 05,3336           55777                           TS       OLDAGS     +1                         #  BY P20
010132,000578: 05,3337           54100                           TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
010133,000579: 05,3340           34751                           CAF      NOUTCON                               
010134,000580: 05,3341           55015                           TS       NOUT                                  
010135,000581: 
010136,000582: 05,3342           34727                           CAF      BIT14                                 
010137,000583: 05,3343           55073                           TS       AGSCODE                               #  AGSCODE DOWNLIST CODE = RESET CONFIG
010138,000584: 
010139,000585: 05,3344           34737                           CAF      BIT6                                  
010140,000586: 05,3345           71300                           MASK     IMODES33                              #  LEAVE BIT 6 UNCHANGED
010141,000587: 05,3346           65017                           AD       IM33INIT                              #  NO PIP OR TM FAILS.BIT6=0 IN THIS WORD.
010142,000588: 05,3347           55300                           TS       IMODES33                              
010143,000589: 
010144,000590: 05,3350           33367                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
010145,000591: 05,3351           55361                           TS       SELFRET                               
010146,000592: 

Page 234

010148,000594: 
010149,000595: 05,3352           44351                           CS       VD1                                   
010150,000596: 05,3353           54776                           TS       DSPCOUNT                              
010151,000597: 
010152,000598: 05,3354           00006                           EXTEND                                         #  SET UP A JOB TO DO 1/ACCS AND TO ZERO
010153,000599: 05,3355           22070                           QXCH     RUPTREG1                              #  THE OFFSET ACCELERATION ESTIMATE.
010154,000600: 
010155,000601: 05,3356           37736                           CAF      PRIO27                                
010156,000602: 05,3357           05063                           TC       NOVAC                                 
010157,000603: 05,3360  E6,1536                                  EBANK=   AOSQ                                  
010158,000604: 05,3360           03576 42066                     2CADR    1/ACCSET                              
010159,000605: 
010160,000606: 
010161,000607: 05,3362           00070                           TC       RUPTREG1                              #  RETURN TO CALLER.
010162,000608: 
010163,000609: 
010164,000610: 05,3363  E6,1536                                  EBANK=   AOSQ                                  
010165,000611: 05,3363           02037 34066  IDLEADR            2CADR    DAPIDLER                              
010166,000612: 
010167,000613: 05,3365           00435        IFAILINH           OCT      435                                   
010168,000614: 05,3366           03524        LDNPHAS1           GENADR   DNPHASE1                              
010169,000615: 05,3367           03341        LESCHK             GENADR   SELFCHK                               
010170,000616: 05,3370           00400        VAC1ADRC           ADRES    VAC1USE                               
010171,000617: 05,3371           32001        OCT32001           OCT      32001                                 
010172,000618: 05,3372           00054        LTHVACA            DEC      44         B-14                       
010173,000619: 
010174,000620: 05,3373           27470        OCT27470           OCT      27470                                 
010175,000621: 05,3374           74160        OCT74160           OCT      74160                                 
010176,000622: 05,3375           30001        OCT30001           OCT      30001                                 
010177,000623: 05,3376     5000               STARTEB            EQUALS   EBANK3                                
010178,000624: 05,3376     4747               NUMGRPS            EQUALS   FIVE                                  
010179,000625: 05,3376           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
010180,000626: 05,3377           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
010181,000627: 05,3400           37000        IM30INIR           OCT      37000                                 
010182,000628: 05,3401     5017               IM33INIT           =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
010183,000629: 05,3401           00450        9,6,4              OCT      450                                   
010184,000630: 05,3402           00102        RMODINIT           OCT      00102                                 
010185,000631: 05,3403           00000        SWINIT             OCT      0                                     
010186,000632: 05,3404           00000                           OCT      0                                     
010187,000633: 05,3405           00000                           OCT      0                                     
010188,000634: 05,3406           00000                           OCT      0                                     
010189,000635: 05,3407           00000                           OCT      0                                     
010190,000636: 05,3410           00000                           OCT      0                                     
010191,000637: 05,3411           00000                           OCT      0                                     
010192,000638: 05,3412           00100                           OCT      00100                                 
010193,000639: 
010194,000640: 05,3413           00000                           OCT      0                                     
010195,000641: 05,3414           00000                           OCT      0                                     
010196,000642: 05,3415           00000                           OCT      0                                     
010197,000643: 05,3416           40000                           OCT      40000                                 #  BIT 15 = LRBYPASS.
010198,000644: 

Page 235

010200,000646:                                                                                                  #  PROGRAM NAME    GOTOPOOH                   ASSEMBLY       SUNDANCE
010201,000647:                                                                                                  #  LOG SECTION     FRESH START AND RESTART
010202,000648: 
010203,000649:                                                                                                  #  FUNCTIONAL DESCRIPTION
010204,000650: 
010205,000651:                                                                                                  #        FLASH V 37 ON DSKY %MM CHANGE REQUEST "
010206,000652: 
010207,000653:                                                                                                  #  INPUT/OUTPUT INFORMATION
010208,000654: 
010209,000655:                                                                                                  #        A. CALLING SEQUENCE        TC GOTOPOOH
010210,000656: 
010211,000657:                                                                                                  #        B. ERASABLE INITIALIZATION       NONE
010212,000658: 
010213,000659:                                                                                                  #        C. OUTPUT FLASH V 37 ON DSKY
010214,000660: 
010215,000661:                                                                                                  #        D. DEBRIS       L
010216,000662: 
010217,000663:                                                                                                  #  PROGRAM ANALYSIS
010218,000664: 
010219,000665:                                                                                                  #        A. SUBROUTINES CALLED PRIODSPR,  LINUS
010220,000666: 
010221,000667:                                                                                                  #        B. NORMAL EXIT        TCF ENDOFJOB
010222,000668: 
010223,000669:                                                                                                  #        C. ALARM AND ABORT EXITS       NONE
010224,000670: 
010225,000671:    6001                                           BLOCK    03                                    
010226,000672:    6000                                           SETLOC   FFTAG5                                
010227,000673:    6000                                           BANK                                           
010228,000674: 
010229,000675:    6001                                           COUNT*   $$/P00                                
010230,000676:    6001           34755        GOTOPOOH           CAF      OCT33                                 #  4.33 SPOT FOR GOPOOFIX
010231,000677:    6002           54001                           TS       L                                     
010232,000678:    6003           40000                           COM                                            
010233,000679:    6004           52760                           DXCH     -PHASE4                               
010234,000680: 
010235,000681:    6005           04626                           TC       POSTJUMP                              
010236,000682:    6006           10040                           CADR     GOPOOFIX                              
010237,000683:    6007           00024        OCT24              MM       20         B-14                       
010238,000684:    6010           00031        OCT31              MM       25         B-14                       
010239,000685: 
010240,000686: 
010241,000687: 
010242,000688: 
010243,000689:    6011           34346        CALGOPOO           CAF      PRIO30                                
010244,000690:    6012           05063                           TC       NOVAC                                 
010245,000691:    6013  E7,1471                                  EBANK=   WHOCARES                              
010246,000692:    6013           06001 06067                     2CADR    GOTOPOOH                              
010247,000693:    6015           04626                           TC       POSTJUMP                              
010248,000694:    6016           03212                           CADR     DUMMYJOB   +2                         
010249,000695: 

Page 236

010251,000697: 20,2004                                           BANK     20                                    
010252,000698: 04,2000                                           SETLOC   VERB37                                
010253,000699: 04,2000                                           BANK                                           
010254,000700: 
010255,000701: 04,2040                                           COUNT*   $$/P00                                #  VERB 37 AND P00 IN BANK 4.
010256,000702: 04,2040           05520        GOPOOFIX           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE
010257,000703: 04,2041           00311                           ADRES    XOVINFLG                              
010258,000704: 
010259,000705: 04,2042           05520                           TC       DOWNFLAG                              #  INSURE THAT ULLAGE IS OFF
010260,000706: 04,2043           00314                           ADRES    ULLAGFLG                              
010261,000707: 
010262,000708: 04,2044           05500                           TC       CLEARMRK   +2                         #  RELEASE MARK DISPLAY SYSTEM.
010263,000709: 04,2045           32053                           CAF      V37N99                                
010264,000710: 04,2046           04607                           TC       BANKCALL                              
010265,000711: 04,2047           20471                           CADR     GOFLASH                               
010266,000712: 04,2050           12045                           TCF      -3                                    
010267,000713: 04,2051           12045                           TCF      -4                                    
010268,000714: 04,2052           12045                           TCF      -5                                    
010269,000715: 
010270,000716: 04,2053           11343        V37N99             VN       3799                                  
010271,000717: 

Page 237

010273,000719:                                                                                                  #  PROGRAM NAME          V37                     ASSEMBLY SUNDANCE
010274,000720: 
010275,000721:                                                                                                  #  LOG SECTION     FRESH START AND RESTART
010276,000722: 
010277,000723:                                                                                                  #  FUNCTIONAL DESCRIPTION
010278,000724: 
010279,000725:                                                                                                  #        1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2(NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
010280,000726:                                                                                                  #        2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM  IS SELECTED, THE OPERATOR ERROR LIGHT IS
010281,000727:                                                                                                  #           SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
010282,000728:                                                                                                  #        3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
010283,000729:                                                                                                  #        4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
010284,000730:                                                                                                  #        5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
010285,000731:                                                                                                  #        6. TRACK AND UPDATE FLAGS ARE SET TO ZERO.
010286,000732:                                                                                                  #        7. DISPLAY SYSTEM IS RELEASED.
010287,000733:                                                                                                  #        8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
010288,000734:                                                                                                  #           A. PROGRAM SELECTED IS P00.
010289,000735:                                                                                                  #              1. RENDEZVOUS AND P25 FLAGS ARE RESET.(KILL P20 AND P25)
010290,000736:                                                                                                  #              2. STATINT1     IS SCHEDULED BY SETTING RESTART GROUP 2.
010291,000737:                                                                                                  #              3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
010292,000738:                                                                                                  #              4. SUPERBANK 3 IS SELECTED.
010293,000739:                                                                                                  #              5. NODOFLAG IS RESET.
010294,000740:                                                                                                  #              6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL ISTRANSFERRED TO RESTART PROGRAM (GOPROG2)
010295,000741:                                                                                                  #                 WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
010296,000742:                                                                                                  #                 INITIATED.
010297,000743:                                                                                                  #           B. PROGRAM SELECTED IS P20 OR P25.
010298,000744:                                                                                                  #              1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
010299,000745:                                                                                                  #                 VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
010300,000746:                                                                                                  #              2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
010301,000747:                                                                                                  #                 ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
010302,000748:                                                                                                  #                 AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
010303,000749:                                                                                                  #                 P20 OR P25 IS RESTARTED TO CONTINUE, AND ITS M M IS SET.
010304,000750:                                                                                                  #              3. CONTROL IS TRANSFERRED TO GOPROG2.
010305,000751:                                                                                                  #           C. PROGRAM SELECTED IS NEITHER P00,P20, NOR P25
010306,000752:                                                                                                  #              1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
010307,000753:                                                                                                  #              2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
010308,000754:                                                                                                  #                 GROUPS. IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP 2 IS NOT CLEARED, ALLOWING THESE PROGRAMS
010309,000755:                                                                                                  #                 TO CONTINUE.
010310,000756: 
010311,000757:                                                                                                  #  INPUT/OUTPUT INFORMATION
010312,000758: 
010313,000759:                                                                                                  #        A. CALLING SEQUENCE
010314,000760: 
010315,000761:                                                                                                  #            CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
010316,000762:                                                                                                  #               VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
010317,000763:                                                                                                  #               MMCHANG EXECUTES A   TC POSTJUMP, CADR V37.
010318,000764: 
010319,000765:                                                                                                  #        B. ERASABLE INITIALIZATION      NONE
010320,000766: 
010321,000767:                                                                                                  #        C. OUTPUT
010322,000768: 

Page 238

010324,000770:                                                                                                  #            MAJOR MODE CHANGE
010325,000771: 
010326,000772:                                                                                                  #        D. DEBRIS
010327,000773:                                                                                                  #             MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
010328,000774:                                                                                                  #             GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
010329,000775: 
010330,000776:                                                                                                  #  PROGRAM ANALYSIS
010331,000777: 
010332,000778:                                                                                                  #        A. SUBROUTINES CALLED
010333,000779:                                                                                                  #             ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
010334,000780:                                                                                                  #             DSPMM
010335,000781: 
010336,000782:                                                                                                  #        B. NORMAL EXIT        TC ENDOFJOB
010337,000783: 
010338,000784:                                                                                                  #        C. ALARMS      1520 (MAJOR MODE CHANGE NOT PERMITTED)
010339,000785: 
010340,000786: 04,2054           54774        V37                TS       MMNUMBER                              #  SAVE MAJOR MODE
010341,000787: 04,2055           34346                           CAF      PRIO30                                #  RESTART AT PINBALL PRIORITY
010342,000788: 04,2056           55264                           TS       RESTREG                               
010343,000789: 
010344,000790: 04,2057           31277                           CA       IMODES30                              #  IS IMU BEINB INITIALIZED
010345,000791: 04,2060           74737                           MASK     BIT6                                  
010346,000792: 04,2061           10000                           CCS      A                                     
010347,000793: 04,2062           12105                           TCF      CANTROD                               
010348,000794: 
010349,000795: 04,2063           34740                           CA       BIT5                                  #  IS IMUZERO IN PROGRESS
010350,000796: 04,2064           71300                           MASK     IMODES33                              
010351,000797: 04,2065           10000                           CCS      A                                     #     IF SO DAP IS OFF
010352,000798: 04,2066           12105                           TCF      CANTROD                               
010353,000799: 
010354,000800: 04,2067           40774                           CS       MMNUMBER                              #  IS P70 REQUESTED?
010355,000801: 04,2070           62435                           AD       DEC70                                 
010356,000802: 04,2071           00006                           EXTEND                                         
010357,000803: 04,2072           12430                           BZF      SETUP70                               #  YES
010358,000804: 04,2073           64744                           AD       ONE                                   #  IS P71 REQUESTED?
010359,000805: 04,2074           00006                           EXTEND                                         
010360,000806: 04,2075           12427                           BZF      SETUP71                               #  YES
010361,000807: 
010362,000808: 04,2076           30774                           CA       MMNUMBER                              #  IS NEW REQUEST POO
010363,000809: 04,2077           00006                           EXTEND                                         
010364,000810: 04,2100           12127                           BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
010365,000811: 
010366,000812: 04,2101           40076                           CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
010367,000813: 04,2102           74744                           MASK     NODOBIT                               
010368,000814: 04,2103           10000                           CCS      A                                     
010369,000815: 04,2104           12112                           TCF      CHECKTAB                              #  NO
010370,000816: 04,2105           05571        CANTROD            TC       ALARM                                 
010371,000817: 04,2106           01520                           OCT      1520                                  
010372,000818: 
010373,000819: 04,2107           04450        V37BAD             TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
010374,000820: 

Page 239

010376,000822: 
010377,000823: 04,2110           04626                           TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
010378,000824: 04,2111           21062                           CADR     PINBRNCH                              #  WAS ONE. OTHERWISE DO AN EOJ.
010379,000825: 
010380,000826: 04,2112           32524        CHECKTAB           CA       NOV37MM                               #  INDEX FOR MM TABLES.
010381,000827: 04,2113           54155        AGAINMM            TS       MPAC       +1                         
010382,000828: 04,2114           50155                           NDX      MPAC       +1                         
010383,000829: 04,2115           32472                           CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
010384,000830: 04,2116           76115                           MASK     LOW7                                  
010385,000831: 04,2117           40000                           COM                                            
010386,000832: 04,2120           60774                           AD       MMNUMBER                              
010387,000833: 04,2121           10000                           CCS      A                                     
010388,000834: 04,2122           10155                           CCS      MPAC       +1                         #  IF GR, SEE IF ANY MORE IN LIST
010389,000835: 04,2123           12113                           TCF      AGAINMM                               #  YES, GET NEXT ONE
010390,000836: 04,2124           12360                           TCF      V37NONO                               #  LAST TIME OR PASSED MM
010391,000837: 
010392,000838: 04,2125           30155                           CA       MPAC       +1                         
010393,000839: 04,2126           54773                           TS       MINDEX                                #  SAVE INDEX FOR LATER
010394,000840: 
010395,000841: 04,2127           40103        ISSERVON           CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
010396,000842: 04,2130           74737                           MASK     V37FLBIT                              
010397,000843: 04,2131           10000                           CCS      A                                     
010398,000844: 04,2132           12160                           TCF      CANV37                                #  NO
010399,000845: 
010400,000846: 04,2133           04720                           TC       SUPERSW                               
010401,000847: 04,2134           00004                           INHINT                                         
010402,000848: 04,2135           04665                           TC       IBNKCALL                              #  YES, TURN ENGINE OFF
010403,000849: 04,2136           75556                           CADR     ENGINOF1                              
010404,000850: 04,2137           05520                           TC       DOWNFLAG                              #  NOW TURN OFF THE AVERAGE G FLAG AND
010405,000851: 04,2140           00163                           ADRES    AVEGFLAG                              #  WAIT FOR SERVICER TO RETURN TO V37RET.
010406,000852: 
010407,000853: 04,2141           06050                           TC       KILLTASK                              
010408,000854: 04,2142           74350                           CADR     ULLGTASK                              
010409,000855: 
010410,000856: 04,2143           15146                           TCF      ENDOFJOB                              
010411,000857: 
010412,000858: 04,2144           40074        V37RET             CS       FLAGWRD0                              #  IS P20 OR P22 RUNNING?
010413,000859: 04,2145           74736                           MASK     RNDVZBIT                              
010414,000860: 04,2146           10000                           CCS      A                                     
010415,000861: 04,2147           12151                           TCF      +2                                    #  NO. CHECK FOR P25.
010416,000862: 04,2150           12156                           TCF      2.7SPT                                #  YES.  DO 2.7SPOT
010417,000863: 04,2151           40074                           CS       FLAGWRD0                              #  IS P25 RUNNING?
010418,000864: 04,2152           74734                           MASK     P25FLBIT                              
010419,000865: 04,2153           10000                           CCS      A                                     
010420,000866: 04,2154           32424        2.0SPT             CA       OCT37667                              
010421,000867: 04,2155           64740        2.11SPT            AD       BIT5                                  
010422,000868: 04,2156           62425        2.7SPT             AD       OCT40072                              
010423,000869: 04,2157           05361                           TC       PHSCHNGA                              
010424,000870: 
010425,000871: 04,2160           34746        CANV37             CAF      ZERO                                  
010426,000872: 04,2161           00006                           EXTEND                                         
010427,000873: 

Page 240

010429,000875: 
010430,000876: 04,2162           01007                           WRITE    SUPERBNK                              
010431,000877: 
010432,000878: 04,2163           32423                           CAF      ROOAD                                 
010433,000879: 04,2164           54373                           TS       TEMPFLSH                              
010434,000880: 
010435,000881: 04,2165           05355                           TC       PHASCHNG                              
010436,000882: 04,2166           00014                           OCT      14                                    
010437,000883: 
010438,000884: 04,2167           06060        ROO                TC       INTPRET                               
010439,000885: 
010440,000886: 04,2170           77624                           CALL                                           #  WAIT FOR INTEGRATION TO FINISH
010441,000887: 04,2171           27447                                    INTSTALL                              
010442,000888: 04,2172           77776        DUMMYAD            EXIT                                           
010443,000889: 
010444,000890: 04,2173           05520                           TC       DOWNFLAG                              
010445,000891: 04,2174           00124                           ADRES    3AXISFLG                              #  RESET 3-AXIS FLAG
010446,000892: 
010447,000893: 04,2175           05520                           TC       DOWNFLAG                              
010448,000894: 04,2176           00055                           ADRES    POOHFLAG                              
010449,000895: 
010450,000896: 04,2177           05520                           TC       DOWNFLAG                              #  CLEAR FOR NORMAL INFLIGHT MARKING
010451,000897: 04,2200           00222                           ADRES    FLT59FLG                              
010452,000898: 
010453,000899: 04,2201           34726                           CAF      LRBYBIT                               #  CLEAN UP THE R12 FLAGWORD.
010454,000900: 04,2202           54107                           TS       FLGWRD11                              
010455,000901: 
010456,000902: 04,2203           05520                           TC       DOWNFLAG                              #  INSURE THAT THE R04FLAG IS CLEAR.
010457,000903: 04,2204           00063                           ADRES    R04FLAG                               
010458,000904: 
010459,000905: 04,2205           05520                           TC       DOWNFLAG                              
010460,000906: 04,2206           00056                           ADRES    GLOKFAIL                              #  FLAGWORD 3 BIT 14
010461,000907: 
010462,000908: 04,2207           05520                           TC       DOWNFLAG                              #  INSURE MUNFLAG IS CLEAR.
010463,000909: 04,2210           00141                           ADRES    MUNFLAG                               
010464,000910: 
010465,000911: 04,2211           05520                           TC       DOWNFLAG                              #  RESET ABORT TARGETING FLAG (USE
010466,000912: 04,2212           00217                           ADRES    ABTTGFLG                              #    PARAMETERS J1 AND KU)
010467,000913: 
010468,000914: 04,2213           05520                           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE.
010469,000915: 04,2214           00311                           ADRES    XOVINFLG                              
010470,000916: 04,2215           10774                           CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
010471,000917: 04,2216           12346                           TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
010472,000918: 
010473,000919: 04,2217           04450        POOH               TC       RELDSP                                #  RELEASE DISPLAY SYSTEM
010474,000920: 
010475,000921: 04,2220           35010                           CAF      PRIO5                                 #  SET VARIABLE RESTART PRIORITY FOR
010476,000922: 04,2221           55055                           TS       PHSPRDT2                              #  P00 INTEGRATION.
010477,000923: 
010478,000924: 04,2222           06027                           TC       CLRADMOD                              #  CLRADMOD DOES AN INHINT.
010479,000925: 

Page 241

010481,000927: 04,2223           44744                           CS       NODOBIT                               #  TURN OFF NODOFLAG.
010482,000928: 04,2224           70076                           MASK     FLAGWRD2                              
010483,000929: 04,2225           54076                           TS       FLAGWRD2                              
010484,000930: 
010485,000931: 04,2226           34747                           CA       FIVE                                  #  SET RESTART FOR STATEINT1
010486,000932: 04,2227           54001                           TS       L                                     
010487,000933: 04,2230           40000                           COM                                            
010488,000934: 04,2231           52754                           DXCH     -PHASE2                               
010489,000935: 
010490,000936: 04,2232           42426                           CS       OCT700                                #  TURN OFF P20,P25,IMU IN USE FLAG
010491,000937: 04,2233           70074                           MASK     FLAGWRD0                              
010492,000938: 04,2234           54074                           TS       FLAGWRD0                              #                         RENDFLG
010493,000939: 
010494,000940: 04,2235           34746                           CAF      DNLADP00                              
010495,000941: 
010496,000942: 04,2236           54333        SEUDOPOO           TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST CODE
010497,000943: 04,2237           55321                           TS       AGSWORD                               #   (CURRENT LIST WILL BE COMPLETED BEFORE
010498,000944:                                                                                                  #    NEW ONE IS STARTED)
010499,000945: 
010500,000946: 04,2240           44732                           CS       NOP07BIT                              
010501,000947: 04,2241           70077                           MASK     FLAGWRD3                              
010502,000948: 04,2242           64732                           AD       NOP07BIT                              
010503,000949: 04,2243           54077                           TS       FLAGWRD3                              
010504,000950: 
010505,000951: 04,2244           04665                           TC       IBNKCALL                              #  INSURE ALLCOAST.
010506,000952: 04,2245           40205                           CADR     ALLCOAST                              #  DOES A RESTORDB.
010507,000953: 
010508,000954: 04,2246           44766                           CS       OCT120                                #  TURN OFF TRACK, UPDATE FLAGS
010509,000955: 04,2247           55071                           TS       EBANKTEM                              
010510,000956: 04,2250           70075                           MASK     FLAGWRD1                              
010511,000957: 04,2251           54075                           TS       FLAGWRD1                              
010512,000958: 
010513,000959: 04,2252           04665                           TC       IBNKCALL                              #  KILL GROUPS 1,3,5,6
010514,000960: 04,2253           12654                           CADR     V37KLEAN                              
010515,000961: 
010516,000962: 04,2254           10774                           CCS      MMNUMBER                              #  IS IT POOH
010517,000963: 04,2255           12264                           TCF      RENDVOO                               #  NO
010518,000964: 04,2256           04665        GOMOD              TC       IBNKCALL                              #  REDUNDANT EXCEPT FOR GROUP 4
010519,000965: 04,2257           12651                           CADR     POOKLEAN                              
010520,000966: 
010521,000967: 04,2260           30774                           CA       MMNUMBER                              
010522,000968: 04,2261           55010                           TS       MODREG                                
010523,000969: 
010524,000970: 04,2262           04626        GOGOPROG           TC       POSTJUMP                              
010525,000971: 04,2263           12772                           CADR     GOPROG2                               
010526,000972: 
010527,000973: 04,2264           41010        RENDVOO            CS       MODREG                                #  IS CURRENT PROGRAM 22
010528,000974: 04,2265           62364                           AD       OCT26                                 
010529,000975: 04,2266           00006                           EXTEND                                         
010530,000976: 04,2267           12306                           BZF      RESET22                               #  YES - CLEAR RENDEZVOUS FLAG
010531,000977: 

Page 242

010533,000979: 04,2270           40774                           CS       MMNUMBER                              #  IS NEW PROGRAM P22
010534,000980: 04,2271           62364                           AD       OCT26                                 
010535,000981: 04,2272           00006                           EXTEND                                         
010536,000982: 04,2273           12306                           BZF      RESET22                               
010537,000983: 
010538,000984: 
010539,000985: 04,2274           67767                           AD       NEG2                                  #  IS NEW PROGRAM = P20 OR P25
010540,000986: 04,2275           00006                           EXTEND                                         
010541,000987: 04,2276           12320                           BZF      RENDNOO                               #  YES
010542,000988: 04,2277           64747                           AD       FIVE                                  #  25
010543,000989: 04,2300           00006                           EXTEND                                         
010544,000990: 04,2301           12320                           BZF      RENDNOO                               #  YES
010545,000991: 
010546,000992: 04,2302           32362                           CA       OCT500                                #  NO, IS EITHER P20 OR P25 RUNNING
010547,000993: 04,2303           70074                           MASK     FLAGWRD0                              
010548,000994: 04,2304           10000                           CCS      A                                     
010549,000995: 04,2305           12315                           TCF      POOFIZZ                               #  YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
010550,000996: 
010551,000997: 04,2306           42426        RESET22            CS       OCT700                                #  CLEAR RENDEZVOUS,P25
010552,000998: 04,2307           70074                           MASK     FLAGWRD0                              #  AND IMU IN USE FLAGS
010553,000999: 04,2310           54074                           TS       FLAGWRD0                              
010554,001000: 04,2311           06027                           TC       CLRADMOD                              
010555,001001: 
010556,001002: 04,2312           00006        KILL2              EXTEND                                         #  NO, KILL 2
010557,001003: 04,2313           34746                           DCA      NEG0                                  
010558,001004: 04,2314           52754                           DXCH     -PHASE2                               
010559,001005: 
010560,001006: 04,2315           32422        POOFIZZ            CAF      V37QCAD                               #  RESTART POINT FOR V37XEQ
010561,001007: 04,2316           54373                           TS       TEMPFLSH                              
010562,001008: 
010563,001009: 04,2317           12262                           TCF      GOGOPROG                              
010564,001010: 
010565,001011: 04,2320           41010        RENDNOO            CS       MODREG                                
010566,001012: 04,2321           66007                           AD       OCT24                                 
010567,001013: 04,2322           00006                           EXTEND                                         
010568,001014: 04,2323           12312                           BZF      KILL2                                 #  P20 OR P25 ON TOP OF P20 OR P25 -
010569,001015: 
010570,001016: 04,2324           64747                           AD       FIVE                                  
010571,001017: 04,2325           00006                           EXTEND                                         
010572,001018: 04,2326           12312                           BZF      KILL2                                 
010573,001019: 
010574,001020: 04,2327           32362                           CA       OCT500                                
010575,001021: 04,2330           70074                           MASK     FLAGWRD0                              
010576,001022: 04,2331           60774                           AD       MMNUMBER                              
010577,001023: 04,2332           40000                           COM                                            
010578,001024: 04,2333           62365                           AD       P20REG                                #  IS IT 20 AND IS RENDEZVOUS FLAG ON
010579,001025: 04,2334           00006                           EXTEND                                         
010580,001026: 04,2335           12342                           BZF      STATQUO                               #  YES
010581,001027: 04,2336           62363                           AD       OCT305                                #  IS IT 25 AND IS P25 BIT ON
010582,001028: 04,2337           00006                           EXTEND                                         
010583,001029: 

Page 243

010585,001031: 04,2340           12342                           BZF      STATQUO                               #  YES, LEAVE AS IS
010586,001032: 04,2341           12312                           TCF      KILL2                                 
010587,001033: 
010588,001034: 04,2342           40075        STATQUO            CS       FLAGWRD1                              #  SET TRACKFLAG
010589,001035: 04,2343           74766                           MASK     OCT120                                #      UPDATE FLAG
010590,001036: 04,2344           26075                           ADS      FLAGWRD1                              
010591,001037: 
010592,001038: 04,2345           12256                           TCF      GOMOD                                 
010593,001039: 
010594,001040: 04,2346           32362        NOUVEAU            CAF      OCT500                                #  IS P20 OR P25 FLAG SET
010595,001041: 04,2347           70074                           MASK     FLAGWRD0                              
010596,001042: 04,2350           10000                           CCS      A                                     
010597,001043: 04,2351           12354                           TCF      +3                                    #  YES
010598,001044: 04,2352           05520                           TC       DOWNFLAG                              #  NO, RESET IMUINUSE FLAG
010599,001045: 04,2353           00007                           ADRES    IMUSE                                 
010600,001046: 
010601,001047: 04,2354           50773                           INDEX    MINDEX                                
010602,001048: 04,2355           32525                           CAF      DNLADMM1                              #  OBTAIN APPROPRIATE DOWNLIST ADDRESS
010603,001049: 
010604,001050: 04,2356           00004                           INHINT                                         
010605,001051: 04,2357           12236                           TCF      SEUDOPOO                              
010606,001052: 
010607,001053: 04,2360           04355        V37NONO            TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST
010608,001054: 
010609,001055: 04,2361           12107                           TCF      V37BAD                                
010610,001056: 
010611,001057: 04,2362     4741               OCT00010           EQUALS   BIT4                                  
010612,001058: 04,2362           00500        OCT500             OCT      500                                   #  BITS 7 AND 9
010613,001059: 04,2363           00305        OCT305             OCT      305                                   
010614,001060: 04,2364           00026        OCT26              OCT      26                                    
010615,001061: 04,2365           00124        P20REG             OCT      124                                   
010616,001062: 
010617,001063: 04,2366           00004        V37XEQ             INHINT                                         
010618,001064: 04,2367           50773                           INDEX    MINDEX                                
010619,001065: 04,2370           32472                           CAF      PREMM1                                #  OBTAIN PRIO, EBANK, AND MM
010620,001066: 04,2371           55057                           TS       MMTEMP                                
010621,001067: 04,2372           54020                           TS       CYR                                   #  SHIFT RIGHT TO BITS 14 - 10
010622,001068: 
010623,001069: 04,2373           30020                           CA       CYR                                   
010624,001070: 04,2374           77746                           MASK     PRIO37                                
010625,001071: 04,2375           55061                           TS       PHSPRDT4                              #  PRESET GROUP 4 RESTART PRIORITY
010626,001072: 04,2376           54063                           TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
010627,001073: 
010628,001074: 04,2377           31057                           CA       MMTEMP                                #  OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
010629,001075: 04,2400           00006                           EXTEND                                         
010630,001076: 04,2401           74735                           MP       BIT8                                  
010631,001077: 04,2402           74750                           MASK     LOW3                                  
010632,001078: 04,2403           54001                           TS       L                                     
010633,001079: 
010634,001080: 04,2404           50773                           INDEX    MINDEX                                
010635,001081: 

Page 244

010637,001083: 04,2405           32440                           CAF      FCADRMM1                              
010638,001084: 04,2406           55060                           TS       BASETEMP                              #  MAKE BBCON BY ADDING HI5 OF FCADR
010639,001085: 04,2407           74341                           MASK     HI5                                   
010640,001086: 04,2410           26001                           ADS      L                                     
010641,001087: 
010642,001088: 04,2411           31060                           CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
010643,001089: 04,2412           75003                           MASK     LOW10                                 
010644,001090: 04,2413           64732                           AD       BIT11                                 
010645,001091: 
010646,001092: 04,2414           05107                           TC       SPVAC                                 
010647,001093: 
010648,001094: 04,2415           31057        V37XEQC            CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
010649,001095: 04,2416           76115                           MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
010650,001096: 04,2417           05316                           TC       NEWMODEA                              #  PHSPRDT1)
010651,001097: 
010652,001098: 04,2420           04450                           TC       RELDSP                                #  RELEASE DISPLAY
010653,001099: 04,2421           05146                           TC       ENDOFJOB                              #  AND EXIT
010654,001100: 
010655,001101: 04,2422     5652               NEG7               EQUALS   OCT77770                              
010656,001102: 
010657,001103: 04,2422     1057               MMTEMP             EQUALS   PHSPRDT3                              
010658,001104: 04,2422     1060               BASETEMP           EQUALS   TBASE4                                
010659,001105: 04,2422           10371        V37QCAD            CADR     V37XEQ     +3                         
010660,001106: 04,2423           10172        ROOAD              CADR     DUMMYAD                               
010661,001107: 04,2424           37667        OCT37667           OCT      37667                                 
010662,001108: 04,2425           40072        OCT40072           OCT      40072                                 
010663,001109: 04,2426           00700        OCT700             OCT      700                                   
010664,001110: 
010665,001111: 04,2427           36266        SETUP71            CAF      THREE                                 
010666,001112: 04,2430           54002        SETUP70            TS       Q                                     
010667,001113: 04,2431           00006                           EXTEND                                         
010668,001114: 04,2432           32437                           DCA      P70CADR                               
010669,001115: 04,2433           60002                           AD       Q                                     
010670,001116: 04,2434           52006                           DTCB                                           
010671,001117: 
010672,001118: 04,2435           00106        DEC70              DEC      70         B-14                       
010673,001119: 04,2436  E7,1520                                  EBANK=   R                                     
010674,001120: 04,2436           02132 42067  P70CADR            2CADR    P70                                   
010675,001121:                                                                                                  #  FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
010676,001122:                                                                                                  #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
010677,001123:                                                                                                  #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
010678,001124: 
010679,001125:                                                                                                  #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
010680,001126: 
010681,001127:                                                                                                  #           THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
010682,001128:                                                                                                  #  THE MAJOR MODE.   FOR EXAMPLE,
010683,001129: 
010684,001130:                                                                                                  #                                          FCADRMM1 FCADR   P79             START OF P 79
010685,001131:                                                                                                  #                                                   FCADR   PROG18          START OF P 18
010686,001132: 

Page 245

010688,001134:                                                                                                  #                                                   FCADR   P01             START OF P 01
010689,001135:                                                                                                  #  NOTE,    THE FIRST ENTRY MUST BE LABLED FCADRMM1.
010690,001136:                                                                                                  #  ----
010691,001137: 
010692,001138: 04,2440                        FCADRMM1           EQUALS                                         
010693,001139: 04,2440           26207                           FCADR    P76ER77                               
010694,001140: 04,2441           26207                           FCADR    P76ER77                               
010695,001141: 04,2442           72647                           FCADR    P75                                   
010696,001142: 04,2443           72457                           FCADR    P74                                   
010697,001143: 04,2444           72225                           FCADR    P73                                   
010698,001144: 04,2445           72036                           FCADR    P72                                   
010699,001145: 04,2446           71271                           FCADR    LANDJUNK                              
010700,001146: 04,2447           64602                           FCADR    P63LM                                 
010701,001147: 04,2450           33274                           FCADR    P57                                   
010702,001148: 04,2451           32201                           FCADR    PROG52                                
010703,001149: 04,2452           31404                           FCADR    P51                                   
010704,001150: 04,2453           75437                           FCADR    P47LM                                 
010705,001151: 04,2454           75411                           FCADR    P42LM                                 
010706,001152: 04,2455           75271                           FCADR    P41LM                                 
010707,001153: 04,2456           75146                           FCADR    P40LM                                 
010708,001154: 04,2457           72643                           FCADR    P35                                   
010709,001155: 04,2460           72455                           FCADR    P34                                   
010710,001156: 04,2461           72223                           FCADR    P33                                   
010711,001157: 04,2462           72034                           FCADR    P32                                   
010712,001158: 04,2463           72000                           FCADR    P30                                   
010713,001159: 04,2464           50462                           FCADR    PROG25                                
010714,001160: 04,2465           50000                           FCADR    PROG22                                
010715,001161: 04,2466           51441                           FCADR    PROG21                                
010716,001162: 04,2467           50000                           FCADR    PROG20                                
010717,001163: 04,2470           60061                           FCADR    P12LM                                 
010718,001164: 04,2471           77654                           FCADR    P06                                   
010719,001165:                                                                                                  #           THE PREMM TABLE CONTAINS THE E-BANK,MAJOR MODE, AND PRIORITY
010720,001166:                                                                                                  #  INFORMATION, IT IS IN THE FOLLOWING FORM,
010721,001167: 
010722,001168:                                                                                                  #           PPP PPE EEM MMM MMM
010723,001169: 
010724,001170:                                                                                                  #           WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER
010725,001171:                                                                                                  #                      3 E BITS CONTAIN THE E-BANK NUMBER
010726,001172:                                                                                                  #                      5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
010727,001173:                                                                                                  #                          TO BE STARTED
010728,001174: 
010729,001175:                                                                                                  #           FOR EXAMPLE,
010730,001176: 
010731,001177:                                                                                                  #                                          PREMM1   OCT     67213           PRIORITY      33
010732,001178:                                                                                                  #                                                                           E-BANK         5
010733,001179:                                                                                                  #                                                                           MAJOR MODE    11
010734,001180:                                                                                                  #                                                   OCT     25437           PRIORITY       12
010735,001181:                                                                                                  #                                                                           E-BANK         6
010736,001182:                                                                                                  #                                                                           MAJOR MODE    31
010737,001183: 

Page 246

010739,001185:                                                                                                  #  NOTE,     THE FIRST ENTRY MUST BE LABELED PREMM1
010740,001186: 04,2472                        PREMM1             EQUALS                                         
010741,001187: 04,2472           27715                           OCT      27715                                 #  MM 77 EBANK 7 PRIO 13
010742,001188: 04,2473           27714                           OCT      27714                                 #  MM 76  EBANK 7  PRIO 13
010743,001189: 04,2474           27713                           OCT      27713                                 #  MM 75  EBANK 7  PRIO 13
010744,001190: 04,2475           27712                           OCT      27712                                 #  MM 74  EBANK 7  PRIO 13
010745,001191: 04,2476           27711                           OCT      27711                                 #  MM 73  EBANK 7  PRIO 13
010746,001192: 04,2477           27710                           OCT      27710                                 #  MM 72  EBANK 7  PRIO 13
010747,001193: 04,2500           27704                           OCT      27704                                 #  MM 68  EBANK 7  PRIO 13
010748,001194: 04,2501           27677                           OCT      27677                                 #  MM 63  EBANK 7  PRIO 13
010749,001195: 04,2502           27271                           OCT      27271                                 #  MM 57  EBANK 5  PRIO 13
010750,001196: 04,2503           27264                           OCT      27264                                 #  MM 52  EBANK 5  PRIO 13
010751,001197: 04,2504           27263                           OCT      27263                                 #  MM 51  EBANK 5  PRIO 13
010752,001198: 04,2505           27657                           OCT      27657                                 #  MM 47  EBANK 7  PRIO 13
010753,001199: 04,2506           27652                           OCT      27652                                 #  MM 42  EBANK 7  PRIO 13
010754,001200: 04,2507           27651                           OCT      27651                                 #  MM 41  EBANK 7  PRIO 13
010755,001201: 04,2510           27650                           OCT      27650                                 #  MM 40  EBANK 7  PRIO 13
010756,001202: 04,2511           27643                           OCT      27643                                 #  MM 35  EBANK 7  PRIO 13
010757,001203: 04,2512           27642                           OCT      27642                                 #  MM 34  EBANK 7  PRIO 13
010758,001204: 04,2513           27641                           OCT      27641                                 #  MM 33  EBANK 7  PRIO 13
010759,001205: 04,2514           27640                           OCT      27640                                 #  MM 32  EBANK 7  PRIO 13
010760,001206: 04,2515           27636                           OCT      27636                                 #  MM 30  EBANK 7  PRIO 13
010761,001207: 04,2516           27631                           OCT      27631                                 #  MM 25  EBANK 7  PRIO 13
010762,001208: 04,2517           27626                           OCT      27626                                 #  MM 22  EBANK 7  PRIO 13
010763,001209: 04,2520           27625                           OCT      27625                                 #  MM 21  EBANK 7  PRIO 13
010764,001210: 04,2521           27624                           OCT      27624                                 #  MM 20  EBANK 7  PRIO 13
010765,001211: 04,2522           27614                           OCT      27614                                 #  MM 12  EBANK 7  PRIO 13
010766,001212: 04,2523           27006                           OCT      27006                                 #  MM 06  EBANK 4  PRIO 13
010767,001213:                                                                                                  #  NOTE,     THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
010768,001214:                                                                                                  #  ----      THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
010769,001215:                                                                                                  #            THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
010770,001216: 
010771,001217: 04,2524           00031        NOV37MM            DEC      25         B-14                       #  MM'S - 1
010772,001218: 
010773,001219: 
010774,001220: 04,2525                        DNLADMM1           EQUALS                                         
010775,001221: 04,2525           00002                           ADRES    RENDEZVL                              #  P77
010776,001222: 04,2526           00002                           ADRES    RENDEZVL                              #  P76
010777,001223: 04,2527           00002                           ADRES    RENDEZVL                              #  P75
010778,001224: 04,2530           00002                           ADRES    RENDEZVL                              #  P74
010779,001225: 04,2531           00002                           ADRES    RENDEZVL                              #  P73
010780,001226: 04,2532           00002                           ADRES    RENDEZVL                              #  P72
010781,001227: 04,2533           00004                           ADRES    DESASCNT                              #  P68
010782,001228: 04,2534           00004                           ADRES    DESASCNT                              #  P63
010783,001229: 04,2535           00005                           ADRES    LUNRSALN                              #  P57
010784,001230: 04,2536           00000                           ADRES    COSTALIL                              #  P52
010785,001231: 04,2537           00000                           ADRES    COSTALIL                              #  P51
010786,001232: 04,2540           00003                           ADRES    ORBMANUL                              #  P47
010787,001233: 04,2541           00003                           ADRES    ORBMANUL                              #  P42
010788,001234: 04,2542           00003                           ADRES    ORBMANUL                              #  P41
010789,001235: 

Page 247

010791,001237: 04,2543           00003                           ADRES    ORBMANUL                              #  P40
010792,001238: 04,2544           00002                           ADRES    RENDEZVL                              #  P35
010793,001239: 04,2545           00002                           ADRES    RENDEZVL                              #  P34
010794,001240: 04,2546           00002                           ADRES    RENDEZVL                              #  P33
010795,001241: 04,2547           00002                           ADRES    RENDEZVL                              #  P32
010796,001242: 04,2550           00002                           ADRES    RENDEZVL                              #  P30
010797,001243: 04,2551           00002                           ADRES    RENDEZVL                              #  P25
010798,001244: 04,2552           00005                           ADRES    LUNRSALN                              #  P22
010799,001245: 04,2553           00002                           ADRES    RENDEZVL                              #  P21
010800,001246: 04,2554           00002                           ADRES    RENDEZVL                              #  P20
010801,001247: 04,2555           00004                           ADRES    DESASCNT                              #  P12
010802,001248: 04,2556           00000                           ADRES    COSTALIL                              #  P06
010803,001249: 04,2557     4746               DNLADP00           =        ZERO                                  
010804,001250: 04,2557                        COSTALIL           =        0                                     
010805,001251: 04,2557                        AGSUPDAT           =        1                                     
010806,001252: 04,2557                        RENDEZVL           =        2                                     
010807,001253: 04,2557                        ORBMANUL           =        3                                     
010808,001254: 04,2557                        DESASCNT           =        4                                     
010809,001255: 04,2557                        LUNRSALN           =        5                                     
010810,001256: 13,2026                                           BANK     13                                    
010811,001257: 13,2000                                           SETLOC   INTINIT                               
010812,001258: 13,2000                                           BANK                                           
010813,001259: 
010814,001260: 13,2026                                           COUNT*   $$/INTIN                              
010815,001261: 
010816,001262: 13,2026  E3,1554                                  EBANK=   RRECTCSM                              
010817,001263: 
010818,001264:                                                                                                  #  THIS ROUTINE DOES THE POO INTEGRATION
010819,001265: 
010820,001266: 13,2026           43014        STATEUP            SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
010821,001267: 13,2027           01474                                    VINTFLAG                              
010822,001268: 13,2030           04347                                    SURFFLAG                              #  ALSO 6X6 W-MATRIX IF LM ON LUNAR
010823,001269: 13,2031           26036                                    DOINT                                 #       SURFACE AND W-MATRIX VALID
010824,001270: 13,2032           43014                           BOF      SET                                   #       FOR RENDEZVOUS NAVIGATION.
010825,001271: 13,2033           02756                                    RENDWFLG                              
010826,001272: 13,2034           26036                                    DOINT                                 
010827,001273: 13,2035           01476                                    DIM0FLAG                              
010828,001274: 13,2036           45014        DOINT              CLEAR    CALL                                  
010829,001275: 13,2037           01667                                    PRECIFLG                              #  ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
010830,001276: 13,2040           27172                                    INTEGRV                               #  WHEN MODREG = 0
010831,001277: 
010832,001278: 13,2041           71214                           BON      DLOAD                                 
010833,001279: 13,2042           04307                                    SURFFLAG                              
010834,001280: 13,2043           26063                                    NO-INT                                
010835,001281: 13,2044           01571                                    TETCSM                                
010836,001282: 13,2045           34041                           STCALL   TDEC1                                 
010837,001283: 13,2046           27447                                    INTSTALL                              
010838,001284: 13,2047           45014                           CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
010839,001285: 13,2050           01674                                    VINTFLAG                              
010840,001286: 13,2051           26702                                    SETIFLGS                              
010841,001287: 

Page 248

010843,001289: 13,2052           77614                           BOF                                            #  ALSO 9X9 W-MATRIX IF W IS VALID
010844,001290: 13,2053           02756                                    RENDWFLG                              
010845,001291: 13,2054           26060                                    DOINT2                                
010846,001292: 13,2055           43014                           SET      SET                                   
010847,001293: 13,2056           01476                                    DIM0FLAG                              
010848,001294: 13,2057           01475                                    D6OR9FLG                              
010849,001295: 13,2060           45014        DOINT2             SET      CALL                                  
010850,001296: 13,2061           01467                                    PRECIFLG                              #  DISENGAGE 4 TIME STEP LOGIC IN INTEG.
010851,001297: 13,2062           27172                                    INTEGRV                               
010852,001298: 13,2063           77614        NO-INT             CLRGO                                          
010853,001299: 13,2064           01236                                    NODOFLAG                              
010854,001300: 13,2065           26670                                    ENDINT                                
010855,001301: 
010856,001302: 
010857,001303:                                                                                                  #  THISVINT IS CALLED BY MIDTOAV1 AND2
010858,001304: 
010859,001305: 13,2066           43414        THISVINT           CLEAR    RVQ                                   
010860,001306: 13,2067           01674                                    VINTFLAG                              

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