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.

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

Page 222

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

Page 223

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

Page 224

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

Page 225

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

Page 226

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

Page 227

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

Page 228

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

Page 229

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

Page 230

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

Page 231

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

Page 232

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

Page 233

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

Page 234

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

Page 235

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

Page 236

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

Page 237

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

Page 238

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

Page 239

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

Page 240

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

Page 241

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

Page 242

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

Page 243

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

Page 244

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

Page 245

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

Page 246

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

Page 247

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

Page 248

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

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