Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

009716,000002:                                                                                                  ## Copyright:   Public domain.
009717,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
009718,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
009719,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
009720,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
009721,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
009722,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
009723,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
009724,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
009725,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
009726,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
009727,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
009728,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
009729,000015:                                                                                                  ## Reference:   pp. 218-244
009730,000016:                                                                                                  ## Assembler:   yaYUL
009731,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009732,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009733,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
009734,000020:                                                                                                  ##              2017-08-19 MAS  Updated for Zerlina 56.
009735,000021:                                                                                                  ##              2017-08-24 MAS  Replaced an incorrect CS with a CA.
009736,000022:                                                                                                  ##              2021-05-30 ABS  CANTROD -> CANTROO
009737,000023: 

Page 218

009739,000025: 10,2000                                           BANK     10                                    
009740,000026: 05,2000                                           SETLOC   FRANDRES                              
009741,000027: 05,2000                                           BANK                                           
009742,000028: 
009743,000029: 05,2464  E3,1400                                  EBANK=   LST1                                  
009744,000030: 
009745,000031: 05,2464                                           COUNT*   $$/START                              #  FRESH AND RESTART
009746,000032: 05,2464           00004        SLAP1              INHINT                                         #  FRESH START. COMES HERE FROM PINBALL.
009747,000033: 05,2465           03122                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
009748,000034: 
009749,000035: 05,2466           12473        STARTSW            TCF      SKIPSIM                               #  PATCH....TCF STARTSIM...FOR SIMULATION
009750,000036: 05,2467           34736        STARTSIM           CAF      BIT14                                 
009751,000037: 05,2470           05105                           TC       FINDVAC                               
009752,000038: 05,2471           77777        SIM2CADR           OCT      77777                                 #  PATCH 2CADR (AND EBANK DESIGNATION) OF
009753,000039: 05,2472           77777                           OCT      77777                                 #  SIMULATION START ADDRESS.
009754,000040: 
009755,000041: 05,2473           31035        SKIPSIM            CA       DSPTAB     +11D                       
009756,000042: 05,2474           74771                           MASK     BITS4&6                               #  TURN OFF ALL DSPTAB +11D LAMPS
009757,000043: 05,2475           64735                           AD       BIT15                                 #  EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
009758,000044: 05,2476           55035                           TS       DSPTAB     +11D                       #  REQUESTED FRESH START.
009759,000045: 
009760,000046: 05,2477           34755                           CA       ZERO                                  
009761,000047: 05,2500           55365                           TS       ERCOUNT                               
009762,000048: 05,2501           54375                           TS       FAILREG                               
009763,000049: 05,2502           54376                           TS       FAILREG    +1                         
009764,000050: 05,2503           54377                           TS       FAILREG    +2                         
009765,000051: 05,2504           54320                           TS       REDOCTR                               
009766,000052: 
009767,000053: 05,2505           00006                           EXTEND                                         
009768,000054: 05,2506           01077                           WRITE    CHAN77                                #  ZERO CHANNEL 77
009769,000055: 
009770,000056: 05,2507           44644                           CS       PRIO12                                
009771,000057: 05,2510           55310                           TS       DSRUPTSW                              
009772,000058: 
009773,000059: 05,2511           34736        DOFSTART           CAF      BIT14                                 #  INSURE ENGINE IS OFF.
009774,000060: 05,2512           00006                           EXTEND                                         
009775,000061: 05,2513           01011                           WRITE    DSALMOUT                              
009776,000062: 05,2514           44755                           CS       ZERO                                  
009777,000063: 05,2515           54055                           TS       THRUST                                
009778,000064: 
009779,000065: 05,2516           34751        DOFSTRT1           CAF      FOUR                                  
009780,000066: 05,2517           55262                           TS       RCSFLAGS                              #  INITIALIZE ATTITUDE ERROR DISPLAYS.
009781,000067: 05,2520           34355                           CA       PRIO30                                
009782,000068: 05,2521           54366                           TS       RESTREG                               #  SUPER BANK PRIORITY FOR DISPLAYS.
009783,000069: 
009784,000070: 05,2522           34755                           CA       ZERO                                  
009785,000071: 05,2523           55247                           TS       ABDELV                                #  DAP INITIALIZATION
009786,000072: 05,2524           54371                           TS       NVSAVE                                
009787,000073: 05,2525           55071                           TS       EBANKTEM                              

Page 219

009789,000075: 05,2526           55257                           TS       CH5MASK                               
009790,000076: 05,2527           55260                           TS       CH6MASK                               
009791,000077: 05,2530           55273                           TS       PVALVEST                              #  FOR RCS FAILURE MONITOR
009792,000078: 05,2531           55360                           TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
009793,000079: 05,2532           55362                           TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
009794,000080: 05,2533           54333                           TS       DNLSTCOD                              #  SELECT POO DOWNLIST
009795,000081: 05,2534           55321                           TS       AGSWORD                               #  ALLOW AGS INITIALIZATION
009796,000082: 05,2535           55501                           TS       UPSVFLAG                              #  ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
009797,000083: 05,2536           00006                           EXTEND                                         
009798,000084: 05,2537           01005                           WRITE    CHAN5                                 #  TURN OFF RCS JETS.
009799,000085: 05,2540           00006                           EXTEND                                         
009800,000086: 05,2541           01006                           WRITE    CHAN6                                 #  TURN OFF RCS JETS.
009801,000087: 05,2542           00006                           EXTEND                                         
009802,000088: 05,2543           01012                           WRITE    CHAN12                                
009803,000089: 05,2544           00006                           EXTEND                                         
009804,000090: 05,2545           01013                           WRITE    CHAN13                                
009805,000091: 05,2546           00006                           EXTEND                                         
009806,000092: 05,2547           01014                           WRITE    CHAN14                                
009807,000093: 05,2550           41035                           CS       DSPTAB     +11D                       
009808,000094: 05,2551           74771                           MASK     BITS4&6                               
009809,000095: 05,2552           10000                           CCS      A                                     
009810,000096: 05,2553           02557                           TC       +4                                    
009811,000097: 05,2554           34771                           CA       BITS4&6                               
009812,000098: 05,2555           00006                           EXTEND                                         #  THE IMU WAS IN COARSE ALIGN IN GIMBAL
009813,000099: 05,2556           05012                           WOR      CHAN12                                #  LOCK, SO PUT IT BACK INTO COARSE ALIGN.
009814,000100: 05,2557           02657                 +4        TC       MR.KLEAN                              
009815,000101: 
009816,000102: 05,2560           44755                           CS       ZERO                                  
009817,000103: 05,2561           55010                           TS       MODREG                                
009818,000104: 
009819,000105: 05,2562           33374                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
009820,000106: 05,2563           55277                           TS       IMODES30                              
009821,000107: 
009822,000108: 05,2564           33102                           CAF      MAXDB                                 
009823,000109: 05,2565           55343                           TS       DB                                    
009824,000110: 05,2566           34751                           CAF      FOUR                                  
009825,000111: 05,2567           55322                           TS       RATEINDX                              #  INITIALIZE KALCMANU RATE
009826,000112: 05,2570           33076                           CA       BOOLSTRT                              
009827,000113: 05,2571           54111                           TS       DAPBOOLS                              
009828,000114: 05,2572           35015                           CAF      EBANK6                                
009829,000115: 05,2573           54003                           TS       EBANK                                 
009830,000116: 05,2574  E6,1400                                  EBANK=   HIASCENT                              
009831,000117: 
009832,000118: 05,2574           33074                           CA       STIKSTRT                              
009833,000119: 05,2575           55444                           TS       STIKSENS                              
009834,000120: 05,2576           33075                           CA       RATESTRT                              
009835,000121: 05,2577           55476                           TS       -RATEDB                               
009836,000122: 05,2600           32000                           CAF      FULLAPS                               #  INITIALIZE MAXIMUM ASCENT MASS FOR USE
009837,000123: 05,2601           55400                           TS       HIASCENT                              #    BY 1/ACCS UNTIL THE PAD LOAD IS DONE.
009838,000124: 05,2602           33077                           CA       77001OCT                              #     LOAD DAP FILTER GAINS PAD LOAD

Page 220

009840,000126: 05,2603           55403                           TS       DKTRAP                                #     TO BEST PRESENT ESTIMATE OF GOODIES
009841,000127: 05,2604           55406                           TS       LMTRAP                                #  .14 DEG
009842,000128: 05,2605           33100                           CA       60DEC                                 
009843,000129: 05,2606           55405                           TS       DKKAOSN                               
009844,000130: 05,2607           55410                           TS       LMKAOSN                               #  6 SEC GAIN FOR ALPHA
009845,000131: 05,2610           34755                           CA       ZERO                                  
009846,000132: 05,2611           55407                           TS       LMOMEGAN                              #  UNITY GAIN
009847,000133: 05,2612           34363                           CA       TEN                                   
009848,000134: 05,2613           55404                           TS       DKOMEGAN                              #  1 SEC GAIN FOR OMEGA
009849,000135: 05,2614           34744                           CAF      BIT8                                  #  SET DOCKED DB TO 1.4 DEG.  MAY OVERWRITE
009850,000136: 05,2615           55411                           TS       DKDB                                  #    WITH PAD LOAD.
009851,000137: 05,2616           35026                           CAF      IM33INIT                              
009852,000138: 05,2617           64746                           AD       BIT6                                  #  KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
009853,000139: 05,2620           55300                           TS       IMODES33                              #    OFF UNTIL ICDU ZERO IS FINISHED.
009854,000140: 
009855,000141: 05,2621           00006                           EXTEND                                         #  INITIALIZE SWITCHES ONLY ON FRESH START.
009856,000142: 05,2622           33401                           DCA      SWINIT                                
009857,000143: 05,2623           52075                           DXCH     STATE                                 
009858,000144: 05,2624           33402                           CA       SWINIT     +2                         
009859,000145: 05,2625           54076                           TS       STATE      +2                         
009860,000146: 05,2626           34737                           CA       REFSMBIT                              #  DO NOT ALTER REFSMFLG ON FRESH START.
009861,000147: 05,2627           64741                           AD       NOP07BIT                              #               NODOP07
009862,000148: 05,2630           70077                           MASK     STATE      +3                         
009863,000149: 05,2631           63403                           AD       SWINIT     +3                         
009864,000150: 05,2632           54077                           TS       STATE      +3                         
009865,000151: 05,2633           00006                           EXTEND                                         
009866,000152: 05,2634           33405                           DCA      SWINIT     +4                         
009867,000153: 05,2635           52101                           DXCH     STATE      +4                         
009868,000154: 05,2636           00006                           EXTEND                                         
009869,000155: 05,2637           33407                           DCA      SWINIT     +6                         
009870,000156: 05,2640           52103                           DXCH     STATE      +6                         
009871,000157: 05,2641           33073                           CA       OCT6200                               #  CMOONFLG, LMOONFLG, SURFFLAG
009872,000158: 05,2642           70104                           MASK     STATE      +8D                        
009873,000159: 05,2643           63410                           AD       SWINIT     +8D                        
009874,000160: 05,2644           54104                           TS       STATE      +8D                        
009875,000161: 05,2645           33411                           CA       SWINIT     +9D                        
009876,000162: 05,2646           54105                           TS       STATE      +9D                        
009877,000163: 05,2647           34737                           CA       APSFLBIT                              #  DO NOT ALTER APSFLAG ON FRESH START.
009878,000164: 05,2650           70106                           MASK     STATE      +10D                       
009879,000165: 05,2651           63412                           AD       SWINIT     +10D                       
009880,000166: 05,2652           54106                           TS       STATE      +10D                       
009881,000167: 05,2653           33413                           CAF      SWINIT     +11D                       
009882,000168: 05,2654           54107                           TS       STATE      +11D                       
009883,000169: 
009884,000170: 05,2655           04635        ENDRSTRT           TC       POSTJUMP                              #  NOW IN ANOTHER BANK.
009885,000171: 05,2656           03212                           CADR     DUMMYJOB   +2                         #  PICKS UP AT RELINT.   (DONT ZERO NEWJOB)
009886,000172: 
009887,000173: 05,2657           00004        MR.KLEAN           INHINT                                         
009888,000174: 05,2660           00006                           EXTEND                                         

Page 221

009890,000176: 05,2661           34755                           DCA      NEG0                                  
009891,000177: 05,2662           52754                           DXCH     -PHASE2                               
009892,000178: 05,2663           00006        POOKLEAN           EXTEND                                         
009893,000179: 05,2664           34755                           DCA      NEG0                                  
009894,000180: 05,2665           52760                           DXCH     -PHASE4                               
009895,000181: 05,2666           00006        V37KLEAN           EXTEND                                         
009896,000182: 05,2667           34755                           DCA      NEG0                                  
009897,000183: 05,2670           52762                           DXCH     -PHASE5                               
009898,000184: 05,2671           00006        ABTKLEAN           EXTEND                                         
009899,000185: 05,2672           34755                           DCA      NEG0                                  
009900,000186: 05,2673           52756                           DXCH     -PHASE3                               
009901,000187: 05,2674           00006                           EXTEND                                         
009902,000188: 05,2675           34755                           DCA      NEG0                                  
009903,000189: 05,2676           52752                           DXCH     -PHASE1                               
009904,000190: 05,2677           00006                           EXTEND                                         
009905,000191: 05,2700           34755                           DCA      NEG0                                  
009906,000192: 05,2701           52764                           DXCH     -PHASE6                               
009907,000193: 05,2702           00002                           TC       Q                                     
009908,000194: 

Page 222

009910,000196:                                                                                                  #           COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME
009911,000197: 
009912,000198: 05,2703  E3,1400                                  EBANK=   LST1                                  
009913,000199: 05,2703           24320        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
009914,000200: 
009915,000201: 05,2704           22002                           LXCH     Q                                     
009916,000202: 05,2705           00006                           EXTEND                                         
009917,000203: 05,2706           04007                           ROR      SUPERBNK                              
009918,000204: 05,2707           53433                           DXCH     RSBBQ                                 
009919,000205: 05,2710           31035                           CA       DSPTAB     +11D                       
009920,000206: 05,2711           74750                           MASK     BIT4                                  
009921,000207: 05,2712           00006                           EXTEND                                         
009922,000208: 05,2713           12717                           BZF      +4                                    
009923,000209: 05,2714           64746                           AD       BIT6                                  #  SET ERROR COUNTER ENABLE
009924,000210: 05,2715           00006                           EXTEND                                         
009925,000211: 05,2716           05012                           WOR      CHAN12                                #  ISS WAS IN COARS ALIGN SO GO BACK TO
009926,000212: 05,2717           03103        BUTTONS            TC       LIGHTSET                              
009927,000213: 
009928,000214:                                                                                                  #                                            ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
009929,000215:                                                                                                  #                                            AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
009930,000216:                                                                                                  #                                            ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
009931,000217:                                                                                                  #                                            EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE
009932,000218:                                                                                                  #                                            C(ERESTORE) SHOULD EQUAL +0.
009933,000219: 
009934,000220: 05,2720           34350                           CAF      HI5                                   
009935,000221: 05,2721           71360                           MASK     ERESTORE                              
009936,000222: 05,2722           00006                           EXTEND                                         
009937,000223: 05,2723           12725                           BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
009938,000224: 05,2724           13120                           TCF      NONAVKEY   +3                         #  DO FRESH START - E MEMORY MIGHT BE BAD
009939,000225: 05,2725           41360                           CS       ERESTORE                              
009940,000226: 05,2726           00006                           EXTEND                                         
009941,000227: 05,2727           12744                           BZF      DORSTART                              #  = +0 CONTINUE WITH RESTART.
009942,000228: 05,2730           61377                           AD       SKEEP7                                
009943,000229: 05,2731           00006                           EXTEND                                         
009944,000230: 05,2732           12734                           BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
009945,000231: 05,2733           13120                           TCF      NONAVKEY   +3                         #  DO FRESH START - E MEMORY MIGHT BE BAD
009946,000232: 05,2734           31374                           CA       SKEEP4                                
009947,000233: 05,2735           54003                           TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
009948,000234: 05,2736           00006                           EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
009949,000235: 05,2737           31376                           DCA      SKEEP5                                
009950,000236: 05,2740           51377                           INDEX    SKEEP7                                
009951,000237: 05,2741           52001                           DXCH     0000                                  #  E MEMORY RESTORED.
009952,000238: 05,2742           34755                           CA       ZERO                                  
009953,000239: 05,2743           55360                           TS       ERESTORE                              
009954,000240: 05,2744           03122        DORSTART           TC       STARTSUB                              #  DO INITIALIZATION AFTER ERASE RESTORE.
009955,000241: 
009956,000242: 05,2745           44736        SETINFL            CS       INTFLBIT                              
009957,000243: 05,2746           70106                           MASK     FLGWRD10                              
009958,000244: 05,2747           54106                           TS       FLGWRD10                              

Page 223

009960,000246: 05,2750           33376                           CA       9,6,4                                 #  LEAVE PROG ALARM,GIMBAL LOCK, NO ATT
009961,000247: 05,2751           71035                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
009962,000248: 05,2752           64735                           AD       BIT15                                 
009963,000249: 05,2753           57035                           XCH      DSPTAB     +11D                       
009964,000250: 05,2754           33362                           CAF      IFAILINH                              #  LEAVE IMU FAILURE INHIBITS INTACT ON
009965,000251: 05,2755           71277                           MASK     IMODES30                              #  HARDWARE RESTART. RESET ALL FAILURE
009966,000252: 05,2756           63375                           AD       IM30INIR                              #  CODES.
009967,000253: 05,2757           55277                           TS       IMODES30                              
009968,000254: 
009969,000255: 05,2760           31321                           CA       AGSWORD                               #  BE SURE OF CORRECT DOWNLIST
009970,000256: 05,2761           54333                           TS       DNLSTCOD                              
009971,000257: 
009972,000258: 05,2762           34750                           CA       BIT4                                  #  TURN ON THROTTLE COUNTER
009973,000259: 05,2763           00006                           EXTEND                                         
009974,000260: 05,2764           05014                           WOR      CHAN14                                #  TURN ON THRUST DRIVE
009975,000261: 05,2765           40101                           CS       FLAGWRD5                              
009976,000262: 05,2766           74745                           MASK     ENGONBIT                              
009977,000263: 05,2767           10000                           CCS      A                                     
009978,000264: 05,2770           12775                           TCF      +5                                    
009979,000265: 05,2771           34737                           CAF      BIT13                                 
009980,000266: 05,2772           00006                           EXTEND                                         
009981,000267: 05,2773           05011                           WOR      DSALMOUT                              #  TURN ENGINE ON
009982,000268: 05,2774           13011                           TCF      GOPROG3                               
009983,000269: 05,2775           34736                 +5        CAF      BIT14                                 
009984,000270: 05,2776           00006                           EXTEND                                         
009985,000271: 05,2777           05011                           WOR      DSALMOUT                              #  TURN ENGINE OFF.
009986,000272: 05,3000           13011                           TCF      GOPROG3                               
009987,000273: 
009988,000274: 05,3001           00004        ENEMA              INHINT                                         
009989,000275: 05,3002           03131                           TC       STARTSB1                              
009990,000276: 05,3003           13005                           TCF      GOPROG2A                              
009991,000277: 05,3004           03174        GOPROG2            TC       STARTSB2                              
009992,000278: 05,3005           03103        GOPROG2A           TC       LIGHTSET                              
009993,000279: 05,3006           43101                           CS       RSFLGBTS                              #  BITS 7 AND 14.
009994,000280: 05,3007           70106                           MASK     FLGWRD10                              
009995,000281: 05,3010           54106                           TS       FLGWRD10                              
009996,000282: 
009997,000283: 05,3011           34756        GOPROG3            CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
009998,000284: 05,3012           54161        PCLOOP             TS       MPAC       +5                         
009999,000285: 05,3013           60000                           DOUBLE                                         
010000,000286: 05,3014           00006                           EXTEND                                         
010001,000287: 05,3015           50000                           INDEX    A                                     
010002,000288: 05,3016           30752                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
010003,000289: 05,3017           00006                           EXTEND                                         
010004,000290: 05,3020           06001                           RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
010005,000291: 05,3021           10000                           CCS      A                                     
010006,000292: 05,3022           13070                           TCF      PTBAD                                 #  RESTART FAILURE.
010007,000293: 05,3023           13070                           TCF      PTBAD                                 
010008,000294: 05,3024           13070                           TCF      PTBAD                                 
010009,000295: 

Page 224

010011,000297: 05,3025           10161                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
010012,000298: 05,3026           13012                           TCF      PCLOOP                                
010013,000299: 
010014,000300: 05,3027           54162                           TS       MPAC       +6                         #  SET TO +0.
010015,000301: 05,3030           05326                           TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
010016,000302: 
010017,000303: 05,3031           00004                           INHINT                                         #  RELINT DONE IN MMDSPLAY
010018,000304: 
010019,000305: 05,3032           44736                           CS       DIDFLBIT                              #  CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
010020,000306: 05,3033           70075                           MASK     FLAGWRD1                              #  RE-INITIALIZE ITSELF IF IT HAD BEEN
010021,000307: 05,3034           54075                           TS       FLAGWRD1                              #  OPERATING AT THE TIME OF THE RESTART.
010022,000308: 
010023,000309: 05,3035           44740                           CS       RODFLBIT                              #  CLEAR RODFLAG.  IF P66 IS IN OPERATION
010024,000310: 05,3036           70075                           MASK     FLAGWRD1                              #       IT WILL RE-INITIALIZE ITSELF AND
010025,000311: 05,3037           54075                           TS       FLAGWRD1                              #       CONTINUE.
010026,000312: 
010027,000313: 05,3040           44741                           CS       P21FLBIT                              #  CLEAR P21FLAG SO THAT P21 WILL COMPUTE
010028,000314: 05,3041           70074                           MASK     FLAGWRD0                              #  NEW BASE STATE VECTORS.
010029,000315: 05,3042           54074                           TS       FLAGWRD0                              
010030,000316: 
010031,000317: 05,3043           34756                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
010032,000318: 05,3044           54161        NXTRST             TS       MPAC       +5                         
010033,000319: 05,3045           60000                           DOUBLE                                         
010034,000320: 05,3046           50000                           INDEX    A                                     
010035,000321: 05,3047           10752                           CCS      PHASE1                                
010036,000322: 05,3050           13052                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
010037,000323: 05,3051           13057                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
010038,000324: 
010039,000325: 05,3052           54154        PACTIVE            TS       MPAC                                  
010040,000326: 05,3053           24154                           INCR     MPAC                                  #  ABS OF PHASE.
010041,000327: 05,3054           24162                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
010042,000328: 05,3055           04616                           TC       BANKCALL                              
010043,000329: 05,3056           03530                           CADR     RESTARTS                              
010044,000330: 05,3057           10161        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
010045,000331: 05,3060           13044                           TCF      NXTRST                                
010046,000332: 
010047,000333: 05,3061           10162                           CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
010048,000334: 05,3062           12655                           TCF      ENDRSTRT                              #  PHASE ACTIVE
010049,000335: 05,3063           34735                           CAF      BIT15                                 #  IS MODE -0
010050,000336: 05,3064           71010                           MASK     MODREG                                
010051,000337: 05,3065           00006                           EXTEND                                         
010052,000338: 05,3066           16001                           BZF      GOTOPOOH                              #  NO
010053,000339: 05,3067           12655                           TCF      ENDRSTRT                              #  YES
010054,000340: 05,3070           05600        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
010055,000341: 05,3071           01107                           OCT      1107                                  
010056,000342: 
010057,000343: 05,3072           12516                           TCF      DOFSTRT1                              
010058,000344: 
010059,000345:                                                                                                  #  ******** ****** ******

Page 225

010061,000347:                                                                                                  #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
010062,000348: 
010063,000349: 05,3073     4737               OCT10000           =        BIT13                                 
010064,000350: 05,3073     4355               OCT30000           =        PRIO30                                
010065,000351: 05,3073           06200        OCT6200            OCT      6200                                  #  SURFBIT, CMOONBIT, LMOONBIT FOR SWINITS
010066,000352: 05,3074           32321        STIKSTRT           DEC      0.825268                              #  20 D/S MAXIMUM COMMANDED RATE
010067,000353: 05,3075           77445        RATESTRT           DEC      -218       B-14                       
010068,000354: 05,3076           21322        BOOLSTRT           OCT      21322                                 
010069,000355: 05,3077           77001        77001OCT           OCT      77001                                 #  .14 DEG SCALED AT 4.5 DEG
010070,000356: 05,3100           00074        60DEC              DEC      60         B-14                       
010071,000357: 05,3101           20100        RSFLGBTS           OCT      20100                                 
010072,000358: 05,3102           03434        MAXDB              OCTAL    03434                                 #  5 DEG ATTITUDE DEADBAND, SCALED AT 45.
010073,000359: 
010074,000360: 05,3103           34747        LIGHTSET           CAF      BIT5                                  #  CHECK FOR MARK REJECT AND ERROR RESET
010075,000361: 05,3104           00006                           EXTEND                                         
010076,000362: 05,3105           02016                           RAND     NAVKEYIN                              
010077,000363: 05,3106           00006                           EXTEND                                         
010078,000364: 05,3107           13115                           BZF      NONAVKEY                              #  NO MARK REJECT
010079,000365: 05,3110           00006                           EXTEND                                         
010080,000366: 05,3111           00015                           READ     MNKEYIN                               #  CHECK IF KEYS 2M AND 5M ON
010081,000367: 05,3112           63373                           AD       -ELR                                  #  MAIN DSKY KEYCODE(BITS 1-5)
010082,000368: 05,3113           00006                           EXTEND                                         
010083,000369: 05,3114           13116                           BZF      +2                                    
010084,000370: 
010085,000371: 05,3115           00002        NONAVKEY           TC       Q                                     
010086,000372: 
010087,000373: 05,3116           03122                           TC       STARTSUB                              
010088,000374: 05,3117           12511                           TCF      DOFSTART                              
010089,000375: 05,3120           03122                 +3        TC       STARTSUB                              
010090,000376: 05,3121           12516                           TCF      DOFSTRT1                              #  DO FRESH START BUT DON'T TOUCH ENGINE
010091,000377: 

Page 226

010093,000379:                                                                                                  #           INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
010094,000380: 
010095,000381: 05,3122  E6,1536                                  EBANK=   AOSQ                                  
010096,000382: 05,3122           33363        STARTSUB           CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
010097,000383: 05,3123           54335                           TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE
010098,000384:                                                                                                  #  INTERRUPTED AND START SENDING FROM THE
010099,000385:                                                                                                  #  BEGINNING OF THE CURRENT DOWNLIST.
010100,000386: 05,3124           34746                           CAF      BIT6                                  
010101,000387: 05,3125           00006                           EXTEND                                         
010102,000388: 05,3126           02033                           RAND     CHAN33                                
010103,000389: 05,3127           63377                           AD       RMODINIT                              
010104,000390: 05,3130           54110                           TS       RADMODES                              
010105,000391: 
010106,000392: 05,3131           34733        STARTSB1           CAF      POSMAX                                
010107,000393: 05,3132           54026                           TS       TIME3                                 
010108,000394: 05,3133           67760                           AD       MINUS2                                
010109,000395: 05,3134           54027                           TS       TIME4                                 
010110,000396: 05,3135           67761                           AD       NEGONE                                
010111,000397: 05,3136           54030                           TS       TIME5                                 
010112,000398: 
010113,000399: 05,3137           35015                           CAF      EBANK6                                
010114,000400: 05,3140           54003                           TS       EBANK                                 
010115,000401: 
010116,000402: 05,3141           44737                           CS       BIT13                                 #  CAUSE DAPIDLER TO CALL 1/ACCS
010117,000403: 05,3142           71262                           MASK     RCSFLAGS                              
010118,000404: 05,3143           55262                           TS       RCSFLAGS                              #  ZERO BIT 13
010119,000405: 05,3144           34733                           CAF      POSMAX                                #  DISABLE TIME6 CLOCK.  JUST IN CASE A T6
010120,000406: 05,3145           55466                           TS       T6NEXT                                #    RUPT IS ALREADY IN THE PRIORITY CHAIN,
010121,000407: 05,3146           00006                           EXTEND                                         #    ENSURE THAT IT'S INPUTS WILL RENDER IT
010122,000408: 05,3147           03013                           WAND     CHAN13                                #    INEFFECTUAL.
010123,000409: 05,3150           34755                           CAF      ZERO                                  
010124,000410: 05,3151           55465                           TS       NXT6ADR                               
010125,000411: 05,3152           55472                           TS       NEXTP                                 
010126,000412: 
010127,000413: 05,3153           44751                           CS       ACCSOKAY                              
010128,000414: 05,3154           70111                           MASK     DAPBOOLS                              
010129,000415: 05,3155           54111                           TS       DAPBOOLS                              
010130,000416: 
010131,000417: 05,3156           00006                           EXTEND                                         #  SET T5RUPT FOR DAPIDLER PROGRAM.
010132,000418: 05,3157           33361                           DCA      IDLEADR                               
010133,000419: 05,3160           53264                           DXCH     T5ADR                                 
010134,000420: 
010135,000421: 05,3161           40107                           CS       FLGWRD11                              #  IF R12 IS PERMITTED, ENSURE THAT NEXT
010136,000422: 05,3162           74735                           MASK     LRBYBIT                               #   RADAR READS ARE NOT USED
010137,000423: 05,3163           00006                           EXTEND                                         
010138,000424: 05,3164           13174                           BZF      STARTSB2                              #  R12 OFF
010139,000425: 
010140,000426: 05,3165           24006                           INCR     BBANK                                 #  SET EBANK TO 7
010141,000427: 05,3166  E7,1677                                  EBANK=   STILBADH                              
010142,000428: 05,3166           11677                           CCS      STILBADH                              #  IF STILBADH>0, NEXT READ WILL BE IGNORED

Page 227

010144,000430: 05,3167           13171                           TCF      +2                                    
010145,000431: 05,3170           25677                           INCR     STILBADH                              #  SET STILBADH TO IGNORE NEXT READ
010146,000432: 
010147,000433: 05,3171           11700                 +2        CCS      STILBADV                              
010148,000434: 05,3172           13174                           TCF      STARTSB2                              #  IF STILBADV >0,NEXT READ WILL BE IGNORED
010149,000435: 05,3173           25700                           INCR     STILBADV                              #  SET STILBADV TO IGNORE NEXT READ
010150,000436: 
010151,000437: 05,3174           33372        STARTSB2           CAF      OCT30001                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
010152,000438: 05,3175           00006                           EXTEND                                         #  ENGINE ON, OFF AND ISS WARNING.
010153,000439: 05,3176           03011                           WAND     DSALMOUT                              
010154,000440: 
010155,000441: 05,3177           43366                           CS       OCT32001                              
010156,000442: 05,3200           70110                           MASK     RADMODES                              
010157,000443: 05,3201           54110                           TS       RADMODES                              
010158,000444: 05,3202           33370                           CAF      OCT27470                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
010159,000445: 05,3203           00006                           EXTEND                                         #  IMU FLAGS. (COURSE ALIGN ENABLE, ZERO
010160,000446: 05,3204           03012                           WAND     CHAN12                                #  IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
010161,000447:                                                                                                  #  TRIM DRIVES. LEAVE RR LOCKON ENABLE
010162,000448:                                                                                                  #  ALONE.
010163,000449: 
010164,000450: 05,3205           44750                           CS       NORRMBIT                              #  ENABLE R25.
010165,000451: 05,3206           70101                           MASK     FLAGWRD5                              
010166,000452: 05,3207           54101                           TS       FLAGWRD5                              
010167,000453: 
010168,000454: 05,3210           44741                           CS       R77FLBIT                              #  CLEAR R77FLAG
010169,000455: 05,3211           70101                           MASK     FLAGWRD5                              
010170,000456: 05,3212           54101                           TS       FLAGWRD5                              
010171,000457: 05,3213           33371                           CAF      OCT74160                              #  DURING SOFTWARE RESTART, DO NOT DUSTURB
010172,000458: 05,3214           00006                           EXTEND                                         #  TELEMETRY FLAGS, RESET TRAP FLAGS, AND
010173,000459: 05,3215           03013                           WAND     CHAN13                                #  ENABLE T6RUPT FLAG.
010174,000460: 
010175,000461: 05,3216           34740                           CAF      BIT12                                 #  REENABLE RUPT10 (RUPT QUICKLY
010176,000462: 05,3217           00006                           EXTEND                                         #    RESUMES EXCEPT DURING P64)
010177,000463: 05,3220           05013                           WOR      CHAN13                                
010178,000464: 
010179,000465: 05,3221           34771                           CAF      OCT50                                 #  DURING SOFTWARE RESTART, DO NOT DISTURB
010180,000466: 05,3222           00006                           EXTEND                                         #  GYRO ENABLE OR THRUST ENABLE
010181,000467: 05,3223           03014                           WAND     CHAN14                                
010182,000468: 
010183,000469: 05,3224  E3,1400                                  EBANK=   LST1                                  
010184,000470: 05,3224           35007                           CAF      STARTEB                               
010185,000471: 05,3225           54003                           TS       EBANK                                 #  SET FOR E3
010186,000472: 
010187,000473: 05,3226           34734                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
010188,000474: 05,3227           55407                           TS       LST1       +7                         
010189,000475: 05,3230           55406                           TS       LST1       +6                         
010190,000476: 05,3231           55405                           TS       LST1       +5                         
010191,000477: 05,3232           55404                           TS       LST1       +4                         
010192,000478: 05,3233           55403                           TS       LST1       +3                         
010193,000479: 05,3234           55402                           TS       LST1       +2                         

Page 228

010195,000481: 05,3235           55401                           TS       LST1       +1                         
010196,000482: 05,3236           55400                           TS       LST1                                  
010197,000483: 
010198,000484: 05,3237           45247                           CS       ENDTASK                               
010199,000485: 05,3240           55410                           TS       LST2                                  
010200,000486: 05,3241           55412                           TS       LST2       +2                         
010201,000487: 05,3242           55414                           TS       LST2       +4                         
010202,000488: 05,3243           55416                           TS       LST2       +6                         
010203,000489: 05,3244           55420                           TS       LST2       +8D                        
010204,000490: 05,3245           55422                           TS       LST2       +10D                       
010205,000491: 05,3246           55424                           TS       LST2       +12D                       
010206,000492: 05,3247           55426                           TS       LST2       +14D                       
010207,000493: 05,3250           55430                           TS       LST2       +16D                       
010208,000494: 05,3251           45250                           CS       ENDTASK    +1                         
010209,000495: 05,3252           55411                           TS       LST2       +1                         
010210,000496: 05,3253           55413                           TS       LST2       +3                         
010211,000497: 05,3254           55415                           TS       LST2       +5                         
010212,000498: 05,3255           55417                           TS       LST2       +7                         
010213,000499: 05,3256           55421                           TS       LST2       +9D                        
010214,000500: 05,3257           55423                           TS       LST2       +11D                       
010215,000501: 05,3260           55425                           TS       LST2       +13D                       
010216,000502: 05,3261           55427                           TS       LST2       +15D                       
010217,000503: 05,3262           55431                           TS       LST2       +17D                       
010218,000504: 
010219,000505: 05,3263           44755                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
010220,000506: 05,3264           54167                           TS       PRIORITY                              #  AVAILABLE.
010221,000507: 05,3265           54203                           TS       PRIORITY   +12D                       
010222,000508: 05,3266           54217                           TS       PRIORITY   +24D                       
010223,000509: 05,3267           54233                           TS       PRIORITY   +36D                       
010224,000510: 05,3270           54247                           TS       PRIORITY   +48D                       
010225,000511: 05,3271           54263                           TS       PRIORITY   +60D                       
010226,000512: 05,3272           54277                           TS       PRIORITY   +72D                       
010227,000513: 05,3273           54313                           TS       PRIORITY   +84D                       
010228,000514: 
010229,000515: 05,3274           55310                           TS       DSRUPTSW                              
010230,000516: 05,3275           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
010231,000517: 
010232,000518: 05,3276           33365                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
010233,000519: 05,3277           54400                           TS       VAC1USE                               
010234,000520: 05,3300           63367                           AD       LTHVACA                               
010235,000521: 05,3301           54454                           TS       VAC2USE                               
010236,000522: 05,3302           63367                           AD       LTHVACA                               
010237,000523: 05,3303           54530                           TS       VAC3USE                               
010238,000524: 05,3304           63367                           AD       LTHVACA                               
010239,000525: 05,3305           54604                           TS       VAC4USE                               
010240,000526: 05,3306           63367                           AD       LTHVACA                               
010241,000527: 05,3307           54660                           TS       VAC5USE                               
010242,000528: 
010243,000529: 05,3310           34363                           CAF      TEN                                   
010244,000530: 05,3311           54154        DSPOFF             TS       MPAC                                  #  R1,R2,R3).

Page 229

010246,000532: 05,3312           44740                           CS       BIT12                                 
010247,000533: 05,3313           50154                           INDEX    MPAC                                  
010248,000534: 05,3314           55022                           TS       DSPTAB                                
010249,000535: 05,3315           10154                           CCS      MPAC                                  
010250,000536: 05,3316           13311                           TCF      DSPOFF                                
010251,000537: 
010252,000538: 05,3317           55323                           TS       DELAYLOC                              
010253,000539: 05,3320           55324                           TS       DELAYLOC   +1                         
010254,000540: 05,3321           55325                           TS       DELAYLOC   +2                         
010255,000541: 05,3322           54045                           TS       INLINK                                
010256,000542: 05,3323           54775                           TS       DSPCNT                                
010257,000543: 05,3324           55041                           TS       CADRSTOR                              
010258,000544: 05,3325           55012                           TS       REQRET                                
010259,000545: 05,3326           55014                           TS       CLPASS                                
010260,000546: 05,3327           55011                           TS       DSPLOCK                               
010261,000547: 05,3330           55017                           TS       MONSAVE                               #  KILL MONITOR
010262,000548: 05,3331           55020                           TS       MONSAVE1                              
010263,000549: 05,3332           55000                           TS       VERBREG                               
010264,000550: 05,3333           55001                           TS       NOUNREG                               
010265,000551: 05,3334           55042                           TS       DSPLIST                               
010266,000552: 05,3335           55307                           TS       MARKSTAT                              
010267,000553: 05,3336           55043                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
010268,000554: 05,3337           55301                           TS       IMUCADR                               
010269,000555: 05,3340           55302                           TS       OPTCADR                               
010270,000556: 05,3341           55303                           TS       RADCADR                               
010271,000557: 05,3342           55304                           TS       ATTCADR                               
010272,000558: 05,3343           55311                           TS       LGYRO                                 
010273,000559: 05,3344           54100                           TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
010274,000560: 05,3345           34760                           CAF      NOUTCON                               
010275,000561: 05,3346           55015                           TS       NOUT                                  
010276,000562: 
010277,000563: 05,3347           34746                           CAF      BIT6                                  
010278,000564: 05,3350           71300                           MASK     IMODES33                              #  LEAVE BIT 6 UNCHANGED
010279,000565: 05,3351           65026                           AD       IM33INIT                              #  NO PIP OR TM FAILS.BIT6=0 IN THIS WORD.
010280,000566: 05,3352           55300                           TS       IMODES33                              
010281,000567: 
010282,000568: 05,3353           33364                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
010283,000569: 05,3354           55361                           TS       SELFRET                               
010284,000570: 
010285,000571: 05,3355           44360                           CS       VD1                                   
010286,000572: 05,3356           54776                           TS       DSPCOUNT                              
010287,000573: 
010288,000574: 05,3357           00002                           TC       Q                                     
010289,000575: 05,3360  E6,1536                                  EBANK=   AOSQ                                  
010290,000576: 05,3360           02024 34066  IDLEADR            2CADR    DAPIDLER                              
010291,000577: 
010292,000578: 05,3362           00435        IFAILINH           OCT      435                                   
010293,000579: 05,3363           03524        LDNPHAS1           GENADR   DNPHASE1                              
010294,000580: 05,3364           03335        LESCHK             GENADR   SELFCHK                               

Page 230

010296,000582: 05,3365           00400        VAC1ADRC           ADRES    VAC1USE                               
010297,000583: 05,3366           32001        OCT32001           OCT      32001                                 
010298,000584: 05,3367           00054        LTHVACA            DEC      44         B-14                       
010299,000585: 
010300,000586: 05,3370           27470        OCT27470           OCT      27470                                 
010301,000587: 05,3371           74160        OCT74160           OCT      74160                                 
010302,000588: 05,3372           30001        OCT30001           OCT      30001                                 
010303,000589: 05,3373     5007               STARTEB            EQUALS   EBANK3                                
010304,000590: 05,3373     4756               NUMGRPS            EQUALS   FIVE                                  
010305,000591: 05,3373           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
010306,000592: 05,3374           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
010307,000593: 05,3375           37000        IM30INIR           OCT      37000                                 
010308,000594: 05,3376     5026               IM33INIT           =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
010309,000595: 05,3376           00450        9,6,4              OCT      450                                   
010310,000596: 05,3377           00102        RMODINIT           OCT      00102                                 
010311,000597: 05,3400           00000        SWINIT             OCT      0                                     
010312,000598: 05,3401           00000                           OCT      0                                     
010313,000599: 05,3402           00000                           OCT      0                                     
010314,000600: 05,3403           00000                           OCT      0                                     
010315,000601: 05,3404           00000                           OCT      0                                     
010316,000602: 05,3405           00000                           OCT      0                                     
010317,000603: 05,3406           00000                           OCT      0                                     
010318,000604: 05,3407           00100                           OCT      00100                                 
010319,000605: 
010320,000606: 05,3410           00000                           OCT      0                                     
010321,000607: 05,3411           00000                           OCT      0                                     
010322,000608: 05,3412           00000                           OCT      0                                     
010323,000609: 05,3413           40000                           OCT      40000                                 #  BIT 15 = LRBYPASS.
010324,000610: 

Page 231

010326,000612:                                                                                                  #  PROGRAM NAME    GOTOPOOH                   ASSEMBLY       SUNDANCE
010327,000613:                                                                                                  #  LOG SECTION     FRESH START AND RESTART
010328,000614: 
010329,000615:                                                                                                  #  FUNCTIONAL DESCRIPTION
010330,000616: 
010331,000617:                                                                                                  #        FLASH V 37 ON DSKY %MM CHANGE REQUEST "
010332,000618: 
010333,000619:                                                                                                  #  INPUT/OUTPUT INFORMATION
010334,000620: 
010335,000621:                                                                                                  #        A. CALLING SEQUENCE        TC GOTOPOOH
010336,000622: 
010337,000623:                                                                                                  #        B. ERASABLE INITIALIZATION       NONE
010338,000624: 
010339,000625:                                                                                                  #        C. OUTPUT FLASH V 37 ON DSKY
010340,000626: 
010341,000627:                                                                                                  #        D. DEBRIS       L
010342,000628: 
010343,000629:                                                                                                  #  PROGRAM ANALYSIS
010344,000630: 
010345,000631:                                                                                                  #        A. SUBROUTINES CALLED PRIODSPR,  LINUS
010346,000632: 
010347,000633:                                                                                                  #        B. NORMAL EXIT        TCF ENDOFJOB
010348,000634: 
010349,000635:                                                                                                  #        C. ALARM AND ABORT EXITS       NONE
010350,000636: 
010351,000637:    6001                                           BLOCK    03                                    
010352,000638:    6000                                           SETLOC   FFTAG5                                
010353,000639:    6000                                           BANK                                           
010354,000640: 
010355,000641:    6001                                           COUNT*   $$/P00                                
010356,000642:    6001           34764        GOTOPOOH           CAF      OCT33                                 #  4.33 SPOT FOR GOPOOFIX
010357,000643:    6002           54001                           TS       L                                     
010358,000644:    6003           40000                           COM                                            
010359,000645:    6004           52760                           DXCH     -PHASE4                               
010360,000646: 
010361,000647:    6005           04635                           TC       POSTJUMP                              
010362,000648:    6006           10024                           CADR     GOPOOFIX                              
010363,000649:    6007           00024        OCT24              MM       20         B-14                       
010364,000650:    6010           00031        OCT31              MM       25         B-14                       
010365,000651: 
010366,000652: 20,2004                                           BANK     20                                    
010367,000653: 04,2000                                           SETLOC   VERB37                                
010368,000654: 04,2000                                           BANK                                           
010369,000655: 
010370,000656: 04,2024                                           COUNT*   $$/P00                                #  VERB 37 AND P00 IN BANK 4.
010371,000657: 04,2024           05527        GOPOOFIX           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE
010372,000658: 04,2025           00311                           ADRES    XOVINFLG                              
010373,000659: 
010374,000660: 04,2026           05527                           TC       DOWNFLAG                              #  INSURE THAT ULLAGE IS OFF
010375,000661: 04,2027           00314                           ADRES    ULLAGFLG                              
010376,000662: 

Page 232

010378,000664: 04,2030           05507                           TC       CLEARMRK   +2                         #  RELEASE MARK DISPLAY SYSTEM.
010379,000665: 04,2031           32037                           CAF      V37N99                                
010380,000666: 04,2032           04616                           TC       BANKCALL                              
010381,000667: 04,2033           20477                           CADR     GOFLASH                               
010382,000668: 04,2034           12031                           TCF      -3                                    
010383,000669: 04,2035           12031                           TCF      -4                                    
010384,000670: 04,2036           12031                           TCF      -5                                    
010385,000671: 
010386,000672: 04,2037           11343        V37N99             VN       3799                                  
010387,000673: 

Page 233

010389,000675:                                                                                                  #  PROGRAM NAME    V37                       ASSEMBLY      SUNDANCE
010390,000676: 
010391,000677:                                                                                                  #  LOG SECTION     FRESH START AND RESTART
010392,000678: 
010393,000679:                                                                                                  #  FUNCTIONAL DESCRIPTION
010394,000680: 
010395,000681:                                                                                                  #        1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2(NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
010396,000682:                                                                                                  #        2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM  IS SELECTED, THE OPERATOR ERROR LIGHT IS
010397,000683:                                                                                                  #           SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
010398,000684:                                                                                                  #        3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
010399,000685:                                                                                                  #        4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
010400,000686:                                                                                                  #        5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
010401,000687:                                                                                                  #        6. TRACK AND UPDATE FLAGS ARE SET TO ZERO.
010402,000688:                                                                                                  #        7. DISPLAY SYSTEM IS RELEASED.
010403,000689:                                                                                                  #        8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
010404,000690:                                                                                                  #           A. PROGRAM SELECTED IS P00.
010405,000691:                                                                                                  #              1. RENDEZVOUS AND P25 FLAGS ARE RESET.(KILL P20 AND P25)
010406,000692:                                                                                                  #              2. STATINT1     IS SCHEDULED BY SETTING RESTART GROUP 2.
010407,000693:                                                                                                  #              3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER(MODREG).
010408,000694:                                                                                                  #              4. SUPERBANK 3 IS SELECTED.
010409,000695:                                                                                                  #              5. NODOFLAG IS RESET.
010410,000696:                                                                                                  #              6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL ISTRANSFERRED TO RESTART PROGRAM (GOPROG2)
010411,000697:                                                                                                  #                 WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
010412,000698:                                                                                                  #                 INITIATED.
010413,000699:                                                                                                  #           B. PROGRAM SELECTED IS P20 OR P25.
010414,000700:                                                                                                  #              1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
010415,000701:                                                                                                  #                 VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
010416,000702:                                                                                                  #              2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
010417,000703:                                                                                                  #                 ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
010418,000704:                                                                                                  #                 AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
010419,000705:                                                                                                  #                 P20 OR P25 IS RESTARTED TO CONTINUE, AND ITS M M IS SET.
010420,000706:                                                                                                  #              3. CONTROL IS TRANSFERRED TO GOPROG2.
010421,000707:                                                                                                  #           C. PROGRAM SELECTED IS NEITHER P00,P20, NOR P25
010422,000708:                                                                                                  #              1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
010423,000709:                                                                                                  #              2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
010424,000710:                                                                                                  #                 GROUPS. IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP 2 IS NOT CLEARED, ALLOWING THESE PROGRAMS
010425,000711:                                                                                                  #                 TO CONTINUE.
010426,000712: 
010427,000713:                                                                                                  #  INPUT/OUTPUT INFORMATION
010428,000714: 
010429,000715:                                                                                                  #        A. CALLING SEQUENCE
010430,000716: 
010431,000717:                                                                                                  #            CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
010432,000718:                                                                                                  #               VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
010433,000719:                                                                                                  #               MMCHANG EXECUTES A   TC POSTJUMP, CADR V37.
010434,000720: 
010435,000721:                                                                                                  #        B. ERASABLE INITIALIZATION      NONE
010436,000722: 
010437,000723:                                                                                                  #        C. OUTPUT
010438,000724: 

Page 234

010440,000726:                                                                                                  #            MAJOR MODE CHANGE
010441,000727: 
010442,000728:                                                                                                  #        D. DEBRIS
010443,000729:                                                                                                  #             MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
010444,000730:                                                                                                  #             GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
010445,000731: 
010446,000732:                                                                                                  #  PROGRAM ANALYSIS
010447,000733: 
010448,000734:                                                                                                  #        A. SUBROUTINES CALLED
010449,000735:                                                                                                  #             ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
010450,000736:                                                                                                  #             DSPMM
010451,000737: 
010452,000738:                                                                                                  #        B. NORMAL EXIT        TC ENDOFJOB
010453,000739: 
010454,000740:                                                                                                  #        C. ALARMS      1520 (MAJOR MODE CHANGE NOT PERMITTED)
010455,000741: 
010456,000742: 04,2040           54774        V37                TS       MMNUMBER                              #  SAVE MAJOR MODE
010457,000743: 04,2041           34355                           CAF      PRIO30                                #  RESTART AT PINBALL PRIORITY
010458,000744: 04,2042           54366                           TS       RESTREG                               
010459,000745: 
010460,000746: 04,2043           31277                           CA       IMODES30                              #  IS IMU BEINB INITIALIZED
010461,000747: 04,2044           74746                           MASK     BIT6                                  
010462,000748: 04,2045           10000                           CCS      A                                     
010463,000749: 04,2046           12065                           TCF      CANTROO                               
010464,000750: 
010465,000751: 04,2047           40774                           CS       MMNUMBER                              #  IS P70 REQUESTED?
010466,000752: 04,2050           62411                           AD       DEC70                                 
010467,000753: 04,2051           00006                           EXTEND                                         
010468,000754: 04,2052           12404                           BZF      SETUP70                               #  YES
010469,000755: 04,2053           64753                           AD       ONE                                   #  IS P71 REQUESTED?
010470,000756: 04,2054           00006                           EXTEND                                         
010471,000757: 04,2055           12403                           BZF      SETUP71                               #  YES
010472,000758: 
010473,000759: 04,2056           30774                           CA       MMNUMBER                              #  IS NEW REQUEST POO
010474,000760: 04,2057           00006                           EXTEND                                         
010475,000761: 04,2060           12107                           BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
010476,000762: 
010477,000763: 04,2061           40076                           CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
010478,000764: 04,2062           74753                           MASK     NODOBIT                               
010479,000765: 04,2063           10000                           CCS      A                                     
010480,000766: 04,2064           12072                           TCF      CHECKTAB                              #  NO
010481,000767: 04,2065           05600        CANTROO            TC       ALARM                                 
010482,000768: 04,2066           01520                           OCT      1520                                  
010483,000769: 
010484,000770: 04,2067           04457        V37BAD             TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
010485,000771: 
010486,000772: 04,2070           04635                           TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
010487,000773: 04,2071           21051                           CADR     PINBRNCH                              #  WAS ONE. OTHERWISE DO AN EOJ.
010488,000774: 
010489,000775: 04,2072           32476        CHECKTAB           CA       NOV37MM                               #  INDEX FOR MM TABLES.

Page 235

010491,000777: 04,2073           54155        AGAINMM            TS       MPAC       +1                         
010492,000778: 04,2074           50155                           NDX      MPAC       +1                         
010493,000779: 04,2075           32445                           CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
010494,000780: 04,2076           76106                           MASK     LOW7                                  
010495,000781: 04,2077           40000                           COM                                            
010496,000782: 04,2100           60774                           AD       MMNUMBER                              
010497,000783: 04,2101           10000                           CCS      A                                     
010498,000784: 04,2102           10155                           CCS      MPAC       +1                         #  IF GR, SEE IF ANY MORE IN LIST
010499,000785: 04,2103           12073                           TCF      AGAINMM                               #  YES, GET NEXT ONE
010500,000786: 04,2104           12334                           TCF      V37NONO                               #  LAST TIME OR PASSED MM
010501,000787: 
010502,000788: 04,2105           30155                           CA       MPAC       +1                         
010503,000789: 04,2106           54773                           TS       MINDEX                                #  SAVE INDEX FOR LATER
010504,000790: 
010505,000791: 04,2107           40103        ISSERVON           CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
010506,000792: 04,2110           74746                           MASK     V37FLBIT                              
010507,000793: 04,2111           10000                           CCS      A                                     
010508,000794: 04,2112           12136                           TCF      CANV37                                #  NO
010509,000795: 
010510,000796: 04,2113           04727                           TC       SUPERSW                               
010511,000797: 04,2114           00004                           INHINT                                         
010512,000798: 04,2115           04674                           TC       IBNKCALL                              #  YES, TURN ENGINE OFF
010513,000799: 04,2116           75555                           CADR     ENGINOF1                              
010514,000800: 04,2117           05527                           TC       DOWNFLAG                              #  NOW TURN OFF THE AVERAGE G FLAG AND
010515,000801: 04,2120           00163                           ADRES    AVEGFLAG                              #  WAIT FOR SERVICER TO RETURN TO V37RET.
010516,000802: 
010517,000803: 04,2121           15155                           TCF      ENDOFJOB                              
010518,000804: 
010519,000805: 04,2122           40074        V37RET             CS       FLAGWRD0                              #  IS P20 OR P22 RUNNING?
010520,000806: 04,2123           74745                           MASK     RNDVZBIT                              
010521,000807: 04,2124           10000                           CCS      A                                     
010522,000808: 04,2125           12127                           TCF      +2                                    #  NO. CHECK FOR P25.
010523,000809: 04,2126           12134                           TCF      2.7SPT                                #  YES.  DO 2.7SPOT
010524,000810: 04,2127           40074                           CS       FLAGWRD0                              #  IS P25 RUNNING?
010525,000811: 04,2130           74743                           MASK     P25FLBIT                              
010526,000812: 04,2131           10000                           CCS      A                                     
010527,000813: 04,2132           32400        2.0SPT             CA       OCT37667                              
010528,000814: 04,2133           64747        2.11SPT            AD       BIT5                                  
010529,000815: 04,2134           62401        2.7SPT             AD       OCT40072                              
010530,000816: 04,2135           05370                           TC       PHSCHNGA                              
010531,000817: 
010532,000818: 04,2136           34755        CANV37             CAF      ZERO                                  
010533,000819: 04,2137           00006                           EXTEND                                         
010534,000820: 04,2140           01007                           WRITE    SUPERBNK                              
010535,000821: 
010536,000822: 04,2141           32377                           CAF      ROOAD                                 
010537,000823: 04,2142           54374                           TS       TEMPFLSH                              
010538,000824: 
010539,000825: 04,2143           05364                           TC       PHASCHNG                              
010540,000826: 04,2144           00014                           OCT      14                                    
010541,000827: 

Page 236

010543,000829: 04,2145           06051        ROO                TC       INTPRET                               
010544,000830: 
010545,000831: 04,2146           77624                           CALL                                           #  WAIT FOR INTEGRATION TO FINISH
010546,000832: 04,2147           27410                                    INTSTALL                              
010547,000833: 04,2150           77776        DUMMYAD            EXIT                                           
010548,000834: 
010549,000835: 04,2151           05527                           TC       DOWNFLAG                              
010550,000836: 04,2152           00124                           ADRES    3AXISFLG                              #  RESET 3-AXIS FLAG
010551,000837: 
010552,000838: 04,2153           05527                           TC       DOWNFLAG                              
010553,000839: 04,2154           00055                           ADRES    POOHFLAG                              
010554,000840: 
010555,000841: 04,2155           34735                           CAF      LRBYBIT                               #  CLEAN UP THE R12 FLAGWORD.
010556,000842: 04,2156           54107                           TS       FLGWRD11                              
010557,000843: 
010558,000844: 04,2157           05527                           TC       DOWNFLAG                              #  INSURE THAT THE R04FLAG IS CLEAR.
010559,000845: 04,2160           00063                           ADRES    R04FLAG                               
010560,000846: 
010561,000847: 04,2161           05527                           TC       DOWNFLAG                              
010562,000848: 04,2162           00056                           ADRES    GLOKFAIL                              #  FLAGWORD 3 BIT 14
010563,000849: 
010564,000850: 04,2163           05527                           TC       DOWNFLAG                              #  INSURE MUNFLAG IS CLEAR.
010565,000851: 04,2164           00141                           ADRES    MUNFLAG                               
010566,000852: 
010567,000853: 04,2165           05527                           TC       DOWNFLAG                              #  RESET ABORT TARGETING FLAG (USE
010568,000854: 04,2166           00217                           ADRES    ABTTGFLG                              #    PARAMETERS J1 AND KU)
010569,000855: 
010570,000856: 04,2167           05527                           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE.
010571,000857: 04,2170           00311                           ADRES    XOVINFLG                              
010572,000858: 04,2171           10774                           CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
010573,000859: 04,2172           12322                           TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
010574,000860: 
010575,000861: 04,2173           04457        POOH               TC       RELDSP                                #  RELEASE DISPLAY SYSTEM
010576,000862: 
010577,000863: 04,2174           35017                           CAF      PRIO5                                 #  SET VARIABLE RESTART PRIORITY FOR
010578,000864: 04,2175           55055                           TS       PHSPRDT2                              #  P00 INTEGRATION.
010579,000865: 
010580,000866: 04,2176           06011                           TC       CLRADMOD                              #  CLRADMOD DOES AN INHINT.
010581,000867: 
010582,000868: 04,2177           44753                           CS       NODOBIT                               #  TURN OFF NODOFLAG.
010583,000869: 04,2200           70076                           MASK     FLAGWRD2                              
010584,000870: 04,2201           54076                           TS       FLAGWRD2                              
010585,000871: 
010586,000872: 04,2202           34756                           CA       FIVE                                  #  SET RESTART FOR STATEINT1
010587,000873: 04,2203           54001                           TS       L                                     
010588,000874: 04,2204           40000                           COM                                            
010589,000875: 04,2205           52754                           DXCH     -PHASE2                               
010590,000876: 
010591,000877: 04,2206           42402                           CS       OCT700                                #  TURN OFF P20,P25,IMU IN USE FLAG
010592,000878: 04,2207           70074                           MASK     FLAGWRD0                              

Page 237

010594,000880: 04,2210           54074                           TS       FLAGWRD0                              #                         RENDFLG
010595,000881: 
010596,000882: 04,2211           34755                           CAF      DNLADP00                              
010597,000883: 
010598,000884: 04,2212           54333        SEUDOPOO           TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST CODE
010599,000885: 04,2213           55321                           TS       AGSWORD                               #   (CURRENT LIST WILL BE COMPLETED BEFORE
010600,000886:                                                                                                  #    NEW ONE IS STARTED)
010601,000887: 04,2214           44741                           CS       NOP07BIT                              
010602,000888: 04,2215           70077                           MASK     FLAGWRD3                              
010603,000889: 04,2216           64741                           AD       NOP07BIT                              
010604,000890: 04,2217           54077                           TS       FLAGWRD3                              
010605,000891: 
010606,000892: 04,2220           04674                           TC       IBNKCALL                              #  INSURE ALLCOAST.
010607,000893: 04,2221           40205                           CADR     ALLCOAST                              #  DOES A RESTORDB.
010608,000894: 
010609,000895: 04,2222           44775                           CS       OCT120                                #  TURN OFF TRACK, UPDATE FLAGS
010610,000896: 04,2223           55071                           TS       EBANKTEM                              
010611,000897: 04,2224           70075                           MASK     FLAGWRD1                              
010612,000898: 04,2225           54075                           TS       FLAGWRD1                              
010613,000899: 
010614,000900: 04,2226           04674                           TC       IBNKCALL                              #  KILL GROUPS 1,3,5,6
010615,000901: 04,2227           12666                           CADR     V37KLEAN                              
010616,000902: 
010617,000903: 04,2230           10774                           CCS      MMNUMBER                              #  IS IT POOH
010618,000904: 04,2231           12240                           TCF      RENDVOO                               #  NO
010619,000905: 04,2232           04674        GOMOD              TC       IBNKCALL                              #  REDUNDANT EXCEPT FOR GROUP 4
010620,000906: 04,2233           12663                           CADR     POOKLEAN                              
010621,000907: 
010622,000908: 04,2234           30774                           CA       MMNUMBER                              
010623,000909: 04,2235           55010                           TS       MODREG                                
010624,000910: 
010625,000911: 04,2236           04635        GOGOPROG           TC       POSTJUMP                              
010626,000912: 04,2237           13004                           CADR     GOPROG2                               
010627,000913: 
010628,000914: 04,2240           41010        RENDVOO            CS       MODREG                                #  IS CURRENT PROGRAM 22
010629,000915: 04,2241           62340                           AD       OCT26                                 
010630,000916: 04,2242           00006                           EXTEND                                         
010631,000917: 04,2243           12262                           BZF      RESET22                               #  YES - CLEAR RENDEZVOUS FLAG
010632,000918: 
010633,000919: 
010634,000920: 04,2244           40774                           CS       MMNUMBER                              #  IS NEW PROGRAM P22
010635,000921: 04,2245           62340                           AD       OCT26                                 
010636,000922: 04,2246           00006                           EXTEND                                         
010637,000923: 04,2247           12262                           BZF      RESET22                               
010638,000924: 
010639,000925: 
010640,000926: 04,2250           67760                           AD       NEG2                                  #  IS NEW PROGRAM = P20 OR P25
010641,000927: 04,2251           00006                           EXTEND                                         
010642,000928: 04,2252           12274                           BZF      RENDNOO                               #  YES
010643,000929: 04,2253           64756                           AD       FIVE                                  #  25

Page 238

010645,000931: 04,2254           00006                           EXTEND                                         
010646,000932: 04,2255           12274                           BZF      RENDNOO                               #  YES
010647,000933: 
010648,000934: 04,2256           32336                           CA       OCT500                                #  NO, IS EITHER P20 OR P25 RUNNING
010649,000935: 04,2257           70074                           MASK     FLAGWRD0                              
010650,000936: 04,2260           10000                           CCS      A                                     
010651,000937: 04,2261           12271                           TCF      POOFIZZ                               #  YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
010652,000938: 
010653,000939: 04,2262           42402        RESET22            CS       OCT700                                #  CLEAR RENDEZVOUS,P25
010654,000940: 04,2263           70074                           MASK     FLAGWRD0                              #  AND IMU IN USE FLAGS
010655,000941: 04,2264           54074                           TS       FLAGWRD0                              
010656,000942: 04,2265           06011                           TC       CLRADMOD                              
010657,000943: 
010658,000944: 04,2266           00006        KILL2              EXTEND                                         #  NO, KILL 2
010659,000945: 04,2267           34755                           DCA      NEG0                                  
010660,000946: 04,2270           52754                           DXCH     -PHASE2                               
010661,000947: 
010662,000948: 04,2271           32376        POOFIZZ            CAF      V37QCAD                               #  RESTART POINT FOR V37XEQ
010663,000949: 04,2272           54374                           TS       TEMPFLSH                              
010664,000950: 
010665,000951: 04,2273           12236                           TCF      GOGOPROG                              
010666,000952: 
010667,000953: 04,2274           41010        RENDNOO            CS       MODREG                                
010668,000954: 04,2275           66007                           AD       OCT24                                 
010669,000955: 04,2276           00006                           EXTEND                                         
010670,000956: 04,2277           12266                           BZF      KILL2                                 #  P20 OR P25 ON TOP OF P20 OR P25 -
010671,000957: 
010672,000958: 04,2300           64756                           AD       FIVE                                  
010673,000959: 04,2301           00006                           EXTEND                                         
010674,000960: 04,2302           12266                           BZF      KILL2                                 
010675,000961: 
010676,000962: 04,2303           32336                           CA       OCT500                                
010677,000963: 04,2304           70074                           MASK     FLAGWRD0                              
010678,000964: 04,2305           60774                           AD       MMNUMBER                              
010679,000965: 04,2306           40000                           COM                                            
010680,000966: 04,2307           62341                           AD       P20REG                                #  IS IT 20 AND IS RENDEZVOUS FLAG ON
010681,000967: 04,2310           00006                           EXTEND                                         
010682,000968: 04,2311           12316                           BZF      STATQUO                               #  YES
010683,000969: 04,2312           62337                           AD       OCT305                                #  IS IT 25 AND IS P25 BIT ON
010684,000970: 04,2313           00006                           EXTEND                                         
010685,000971: 04,2314           12316                           BZF      STATQUO                               #  YES, LEAVE AS IS
010686,000972: 04,2315           12266                           TCF      KILL2                                 
010687,000973: 
010688,000974: 04,2316           40075        STATQUO            CS       FLAGWRD1                              #  SET TRACKFLAG
010689,000975: 04,2317           74775                           MASK     OCT120                                #      UPDATE FLAG
010690,000976: 04,2320           26075                           ADS      FLAGWRD1                              
010691,000977: 
010692,000978: 04,2321           12232                           TCF      GOMOD                                 
010693,000979: 
010694,000980: 04,2322           32336        NOUVEAU            CAF      OCT500                                #  IS P20 OR P25 FLAG SET

Page 239

010696,000982: 04,2323           70074                           MASK     FLAGWRD0                              
010697,000983: 04,2324           10000                           CCS      A                                     
010698,000984: 04,2325           12330                           TCF      +3                                    #  YES
010699,000985: 04,2326           05527                           TC       DOWNFLAG                              #  NO,RESET IMUINUSE FLAG
010700,000986: 04,2327           00007                           ADRES    IMUSE                                 
010701,000987: 
010702,000988: 04,2330           50773                           INDEX    MINDEX                                
010703,000989: 04,2331           32477                           CAF      DNLADMM1                              #  OBTAIN APPROPRIATE DOWNLIST ADDRESS
010704,000990: 
010705,000991: 04,2332           00004                           INHINT                                         
010706,000992: 04,2333           12212                           TCF      SEUDOPOO                              
010707,000993: 
010708,000994: 04,2334           04364        V37NONO            TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST
010709,000995: 
010710,000996: 04,2335           12067                           TCF      V37BAD                                
010711,000997: 
010712,000998: 04,2336     4750               OCT00010           EQUALS   BIT4                                  
010713,000999: 04,2336           00500        OCT500             OCT      500                                   #  BITS 7 AND 9
010714,001000: 04,2337           00305        OCT305             OCT      305                                   
010715,001001: 04,2340           00026        OCT26              OCT      26                                    
010716,001002: 04,2341           00124        P20REG             OCT      124                                   
010717,001003: 
010718,001004: 04,2342           00004        V37XEQ             INHINT                                         
010719,001005: 04,2343           50773                           INDEX    MINDEX                                
010720,001006: 04,2344           32445                           CAF      PREMM1                                #  OBTAIN PRIO, EBANK, AND MM
010721,001007: 04,2345           55057                           TS       MMTEMP                                
010722,001008: 04,2346           54020                           TS       CYR                                   #  SHIFT RIGHT TO BITS 14 - 10
010723,001009: 
010724,001010: 04,2347           30020                           CA       CYR                                   
010725,001011: 04,2350           77737                           MASK     PRIO37                                
010726,001012: 04,2351           55061                           TS       PHSPRDT4                              #  PRESET GROUP 4 RESTART PRIORITY
010727,001013: 04,2352           54063                           TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
010728,001014: 
010729,001015: 04,2353           31057                           CA       MMTEMP                                #  OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
010730,001016: 04,2354           00006                           EXTEND                                         
010731,001017: 04,2355           74744                           MP       BIT8                                  
010732,001018: 04,2356           74757                           MASK     LOW3                                  
010733,001019: 04,2357           54001                           TS       L                                     
010734,001020: 
010735,001021: 04,2360           50773                           INDEX    MINDEX                                
010736,001022: 04,2361           32414                           CAF      FCADRMM1                              
010737,001023: 04,2362           55060                           TS       BASETEMP                              #  MAKE BBCON BY ADDING HI5 OF FCADR
010738,001024: 04,2363           74350                           MASK     HI5                                   
010739,001025: 04,2364           26001                           ADS      L                                     
010740,001026: 
010741,001027: 04,2365           31060                           CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
010742,001028: 04,2366           75012                           MASK     LOW10                                 
010743,001029: 04,2367           64741                           AD       BIT11                                 
010744,001030: 
010745,001031: 04,2370           05116                           TC       SPVAC                                 
010746,001032: 

Page 240

010748,001034: 04,2371           31057        V37XEQC            CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
010749,001035: 04,2372           76106                           MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
010750,001036: 04,2373           05325                           TC       NEWMODEA                              #  PHSPRDT1)
010751,001037: 
010752,001038: 04,2374           04457                           TC       RELDSP                                #  RELEASE DISPLAY
010753,001039: 04,2375           05155                           TC       ENDOFJOB                              #  AND EXIT
010754,001040: 
010755,001041: 04,2376     5661               NEG7               EQUALS   OCT77770                              
010756,001042: 
010757,001043: 04,2376     1057               MMTEMP             EQUALS   PHSPRDT3                              
010758,001044: 04,2376     1060               BASETEMP           EQUALS   TBASE4                                
010759,001045: 04,2376           10345        V37QCAD            CADR     V37XEQ     +3                         
010760,001046: 04,2377           10150        ROOAD              CADR     DUMMYAD                               
010761,001047: 04,2400           37667        OCT37667           OCT      37667                                 
010762,001048: 04,2401           40072        OCT40072           OCT      40072                                 
010763,001049: 04,2402           00700        OCT700             OCT      700                                   
010764,001050: 
010765,001051: 04,2403           36257        SETUP71            CAF      THREE                                 
010766,001052: 04,2404           54002        SETUP70            TS       Q                                     
010767,001053: 04,2405           00006                           EXTEND                                         
010768,001054: 04,2406           32413                           DCA      P70CADR                               
010769,001055: 04,2407           60002                           AD       Q                                     
010770,001056: 04,2410           52006                           DTCB                                           
010771,001057: 
010772,001058: 04,2411           00106        DEC70              DEC      70         B-14                       
010773,001059: 04,2412  E7,1516                                  EBANK=   R                                     
010774,001060: 04,2412           02006 42067  P70CADR            2CADR    P70                                   
010775,001061:                                                                                                  #  FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
010776,001062:                                                                                                  #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
010777,001063:                                                                                                  #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
010778,001064: 
010779,001065:                                                                                                  #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
010780,001066: 
010781,001067:                                                                                                  #           THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
010782,001068:                                                                                                  #  THE MAJOR MODE.   FOR EXAMPLE,
010783,001069: 
010784,001070:                                                                                                  #                                          FCADRMM1 FCADR   P79             START OF P 79
010785,001071:                                                                                                  #                                                   FCADR   PROG18          START OF P 18
010786,001072:                                                                                                  #                                                   FCADR   P01             START OF P 01
010787,001073: 
010788,001074:                                                                                                  #  NOTE,    THE FIRST ENTRY MUST BE LABLED FCADRMM1.
010789,001075:                                                                                                  #  ----
010790,001076: 
010791,001077: 04,2414           26207        FCADRMM1           FCADR    P76                                   
010792,001078: 04,2415           72647                           FCADR    P75                                   
010793,001079: 04,2416           72457                           FCADR    P74                                   
010794,001080: 04,2417           72225                           FCADR    P73                                   
010795,001081: 04,2420           72036                           FCADR    P72                                   
010796,001082: 04,2421           71351                           FCADR    LANDJUNK                              

Page 241

010798,001084: 04,2422           64421                           FCADR    P63LM                                 
010799,001085: 04,2423           33310                           FCADR    P57                                   
010800,001086: 04,2424           32067                           FCADR    PROG52                                
010801,001087: 04,2425           31421                           FCADR    P51                                   
010802,001088: 04,2426           75437                           FCADR    P47LM                                 
010803,001089: 04,2427           75411                           FCADR    P42LM                                 
010804,001090: 04,2430           75271                           FCADR    P41LM                                 
010805,001091: 04,2431           75146                           FCADR    P40LM                                 
010806,001092: 04,2432           72643                           FCADR    P35                                   
010807,001093: 04,2433           72455                           FCADR    P34                                   
010808,001094: 04,2434           72223                           FCADR    P33                                   
010809,001095: 04,2435           72034                           FCADR    P32                                   
010810,001096: 04,2436           72000                           FCADR    P30                                   
010811,001097: 04,2437           50462                           FCADR    PROG25                                
010812,001098: 04,2440           50000                           FCADR    PROG22                                
010813,001099: 04,2441           51442                           FCADR    PROG21                                
010814,001100: 04,2442           50000                           FCADR    PROG20                                
010815,001101: 04,2443           60061                           FCADR    P12LM                                 
010816,001102: 04,2444           77654                           FCADR    P06                                   
010817,001103:                                                                                                  #           THE PREMM TABLE CONTAINS THE E-BANK,MAJOR MODE, AND PRIORITY
010818,001104:                                                                                                  #  INFORMATION, IT IS IN THE FOLLOWING FORM,
010819,001105: 
010820,001106:                                                                                                  #           PPP PPE EEM MMM MMM
010821,001107: 
010822,001108:                                                                                                  #           WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER
010823,001109:                                                                                                  #                      3 E BITS CONTAIN THE E-BANK NUMBER
010824,001110:                                                                                                  #                      5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
010825,001111:                                                                                                  #                          TO BE STARTED
010826,001112: 
010827,001113:                                                                                                  #           FOR EXAMPLE,
010828,001114: 
010829,001115:                                                                                                  #                                          PREMM1   OCT     67213           PRIORITY      33
010830,001116:                                                                                                  #                                                                           E-BANK         5
010831,001117:                                                                                                  #                                                                           MAJOR MODE    11
010832,001118:                                                                                                  #                                                   OCT     25437           PRIORITY       12
010833,001119:                                                                                                  #                                                                           E-BANK         6
010834,001120:                                                                                                  #                                                                           MAJOR MODE    31
010835,001121: 
010836,001122:                                                                                                  #  NOTE,     THE FIRST ENTRY MUST BE LABELED PREMM1
010837,001123: 04,2445           27714        PREMM1             OCT      27714                                 #  MM 76  EBANK 7  PRIO 13
010838,001124: 04,2446           27713                           OCT      27713                                 #  MM 75  EBANK 7  PRIO 13
010839,001125: 04,2447           27712                           OCT      27712                                 #  MM 74  EBANK 7  PRIO 13
010840,001126: 04,2450           27711                           OCT      27711                                 #  MM 73  EBANK 7  PRIO 13
010841,001127: 04,2451           27710                           OCT      27710                                 #  MM 72  EBANK 7  PRIO 13
010842,001128: 04,2452           27704                           OCT      27704                                 #  MM 68  EBANK 7  PRIO 13
010843,001129: 04,2453           27677                           OCT      27677                                 #  MM 63  EBANK 7  PRIO 13
010844,001130: 04,2454           27271                           OCT      27271                                 #  MM 57  EBANK 5  PRIO 13
010845,001131: 04,2455           27264                           OCT      27264                                 #  MM 52  EBANK 5  PRIO 13
010846,001132: 04,2456           27263                           OCT      27263                                 #  MM 51  EBANK 5  PRIO 13
010847,001133: 04,2457           27657                           OCT      27657                                 #  MM 47  EBANK 7  PRIO 13

Page 242

010849,001135: 04,2460           27652                           OCT      27652                                 #  MM 42  EBANK 7  PRIO 13
010850,001136: 04,2461           27651                           OCT      27651                                 #  MM 41  EBANK 7  PRIO 13
010851,001137: 04,2462           27650                           OCT      27650                                 #  MM 40  EBANK 7  PRIO 13
010852,001138: 04,2463           27643                           OCT      27643                                 #  MM 35  EBANK 7  PRIO 13
010853,001139: 04,2464           27642                           OCT      27642                                 #  MM 34  EBANK 7  PRIO 13
010854,001140: 04,2465           27641                           OCT      27641                                 #  MM 33  EBANK 7  PRIO 13
010855,001141: 04,2466           27640                           OCT      27640                                 #  MM 32  EBANK 7  PRIO 13
010856,001142: 04,2467           27636                           OCT      27636                                 #  MM 30  EBANK 7  PRIO 13
010857,001143: 04,2470           27631                           OCT      27631                                 #  MM 25  EBANK 7  PRIO 13
010858,001144: 04,2471           27626                           OCT      27626                                 #  MM 22  EBANK 7  PRIO 13
010859,001145: 04,2472           27625                           OCT      27625                                 #  MM 21  EBANK 7  PRIO 13
010860,001146: 04,2473           27624                           OCT      27624                                 #  MM 20  EBANK 7  PRIO 13
010861,001147: 04,2474           27614                           OCT      27614                                 #  MM 12  EBANK 7  PRIO 13
010862,001148: 04,2475           27006                           OCT      27006                                 #  MM 06  EBANK 4  PRIO 13
010863,001149:                                                                                                  #  NOTE,     THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
010864,001150:                                                                                                  #  ----      THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
010865,001151:                                                                                                  #            THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
010866,001152: 
010867,001153: 04,2476           00030        NOV37MM            DEC      24         B-14                       #  MM'S -1
010868,001154: 
010869,001155: 04,2477           00002        DNLADMM1           ADRES    RENDEZVL                              #  P76
010870,001156: 04,2500           00002                           ADRES    RENDEZVL                              #  P75
010871,001157: 04,2501           00002                           ADRES    RENDEZVL                              #  P74
010872,001158: 04,2502           00002                           ADRES    RENDEZVL                              #  P73
010873,001159: 04,2503           00002                           ADRES    RENDEZVL                              #  P72
010874,001160: 04,2504           00004                           ADRES    DESASCNT                              #  P68
010875,001161: 04,2505           00004                           ADRES    DESASCNT                              #  P63
010876,001162: 04,2506           00005                           ADRES    LUNRSALN                              #  P57
010877,001163: 04,2507           00000                           ADRES    COSTALIL                              #  P52
010878,001164: 04,2510           00000                           ADRES    COSTALIL                              #  P51
010879,001165: 04,2511           00003                           ADRES    ORBMANUL                              #  P47
010880,001166: 04,2512           00003                           ADRES    ORBMANUL                              #  P42
010881,001167: 04,2513           00003                           ADRES    ORBMANUL                              #  P41
010882,001168: 04,2514           00003                           ADRES    ORBMANUL                              #  P40
010883,001169: 04,2515           00002                           ADRES    RENDEZVL                              #  P35
010884,001170: 04,2516           00002                           ADRES    RENDEZVL                              #  P34
010885,001171: 04,2517           00002                           ADRES    RENDEZVL                              #  P33
010886,001172: 04,2520           00002                           ADRES    RENDEZVL                              #  P32
010887,001173: 04,2521           00002                           ADRES    RENDEZVL                              #  P30
010888,001174: 04,2522           00002                           ADRES    RENDEZVL                              #  P25
010889,001175: 04,2523           00005                           ADRES    LUNRSALN                              #  P22
010890,001176: 04,2524           00002                           ADRES    RENDEZVL                              #  P21
010891,001177: 04,2525           00002                           ADRES    RENDEZVL                              #  P20
010892,001178: 04,2526           00004                           ADRES    DESASCNT                              #  P12
010893,001179: 04,2527           00000                           ADRES    COSTALIL                              #  P06
010894,001180: 04,2530     4755               DNLADP00           =        ZERO                                  
010895,001181: 04,2530                        COSTALIL           =        0                                     
010896,001182: 04,2530                        AGSUPDAT           =        1                                     
010897,001183: 04,2530                        RENDEZVL           =        2                                     
010898,001184: 04,2530                        ORBMANUL           =        3                                     

Page 243

010900,001186: 04,2530                        DESASCNT           =        4                                     
010901,001187: 04,2530                        LUNRSALN           =        5                                     
010902,001188: 13,2026                                           BANK     13                                    
010903,001189: 13,2000                                           SETLOC   INTINIT                               
010904,001190: 13,2000                                           BANK                                           
010905,001191: 
010906,001192: 13,2026                                           COUNT*   $$/INTIN                              
010907,001193: 
010908,001194: 13,2026  E3,1554                                  EBANK=   RRECTCSM                              
010909,001195: 
010910,001196:                                                                                                  #  THIS ROUTINE DOES THE POO INTEGRATION
010911,001197: 
010912,001198: 13,2026           43014        STATEUP            SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
010913,001199: 13,2027           01474                                    VINTFLAG                              
010914,001200: 13,2030           04347                                    SURFFLAG                              #  ALSO 6X6 W-MATRIX IF LM ON LUNAR
010915,001201: 13,2031           26036                                    DOINT                                 #       SURFACE AND W-MATRIX VALID
010916,001202: 13,2032           43014                           BOF      SET                                   #       FOR RENDEZVOUS NAVIGATION.
010917,001203: 13,2033           02756                                    RENDWFLG                              
010918,001204: 13,2034           26036                                    DOINT                                 
010919,001205: 13,2035           01476                                    DIM0FLAG                              
010920,001206: 13,2036           45014        DOINT              CLEAR    CALL                                  
010921,001207: 13,2037           01667                                    PRECIFLG                              #  ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
010922,001208: 13,2040           27133                                    INTEGRV                               #  WHEN MODREG = 0
010923,001209: 
010924,001210: 13,2041           71214                           BON      DLOAD                                 
010925,001211: 13,2042           04307                                    SURFFLAG                              
010926,001212: 13,2043           26063                                    NO-INT                                
010927,001213: 13,2044           01571                                    TETCSM                                
010928,001214: 13,2045           34041                           STCALL   TDEC1                                 
010929,001215: 13,2046           27410                                    INTSTALL                              
010930,001216: 13,2047           45014                           CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
010931,001217: 13,2050           01674                                    VINTFLAG                              
010932,001218: 13,2051           26643                                    SETIFLGS                              
010933,001219: 13,2052           77614                           BOF                                            #  ALSO 9X9 W-MATRIX IF W IS VALID
010934,001220: 13,2053           02756                                    RENDWFLG                              
010935,001221: 13,2054           26060                                    DOINT2                                
010936,001222: 13,2055           43014                           SET      SET                                   
010937,001223: 13,2056           01476                                    DIM0FLAG                              
010938,001224: 13,2057           01475                                    D6OR9FLG                              
010939,001225: 13,2060           45014        DOINT2             SET      CALL                                  
010940,001226: 13,2061           01467                                    PRECIFLG                              #  DISENGAGE 4 TIME STEP LOGIC IN INTEG.
010941,001227: 13,2062           27133                                    INTEGRV                               
010942,001228: 13,2063           77614        NO-INT             CLRGO                                          
010943,001229: 13,2064           01236                                    NODOFLAG                              
010944,001230: 13,2065           26631                                    ENDINT                                
010945,001231: 
010946,001232: 
010947,001233:                                                                                                  #  THISVINT IS CALLED BY MIDTOAV1 AND2
010948,001234: 
010949,001235: 13,2066           43414        THISVINT           CLEAR    RVQ                                   

Page 244

010951,001237: 13,2067           01674                                    VINTFLAG                              

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