Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

009751,000002:                                                                                                  ## Copyright:   Public domain.
009752,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
009753,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
009754,000005:                                                                                                  ##              It is part of the source code for the original release
009755,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
009756,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
009757,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
009758,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
009759,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
009760,000011:                                                                                                  ##              that the code format has been changed to conform to the
009761,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
009762,000013:                                                                                                  ##              original YUL assembler.
009763,000014:                                                                                                  ## Reference:   pp. 226-252
009764,000015:                                                                                                  ## Assembler:   yaYUL
009765,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009766,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009767,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
009768,000019:                                                                                                  ##              2017-01-09 HG   Transcribed
009769,000020:                                                                                                  ##              2017-01-25 RSB  Proofed comment text using octopus/prooferComments
009770,000021:                                                                                                  ##                              and fixed errors found.
009771,000022:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
009772,000023:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
009773,000024:                                                                                                  ##              2017-08-15 RSB  Comment-text fixes identified in proofing vs AP11ROPE.
009774,000025: 

Page 226

009776,000027: 10,2000                                           BANK     10                                    
009777,000028: 05,2000                                           SETLOC   FRANDRES                              
009778,000029: 05,2000                                           BANK                                           
009779,000030: 
009780,000031: 05,2447  E3,1400                                  EBANK=   LST1                                  
009781,000032: 
009782,000033: 05,2447                                           COUNT*   $$/START                              #  FRESH AND RESTART
009783,000034: 05,2447           00004        SLAP1              INHINT                                         #  FRESH START. COMES HERE FROM PINBALL.
009784,000035: 05,2450           03100                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
009785,000036: 
009786,000037: 05,2451           12456        STARTSW            TCF      SKIPSIM                               #  PATCH....TCF STARTSIM...FOR SIMULATION
009787,000038: 05,2452           34736        STARTSIM           CAF      BIT14                                 
009788,000039: 05,2453           05105                           TC       FINDVAC                               
009789,000040: 05,2454           77777        SIM2CADR           OCT      77777                                 #  PATCH 2CADR (AND EBANK DESIGNATION) OF
009790,000041: 05,2455           77777                           OCT      77777                                 #  SIMULATION START ADDRESS.
009791,000042: 
009792,000043: 05,2456           31036        SKIPSIM            CA       DSPTAB     +11D                       #  TURN OFF ALL DSPTAB +11D LAMPS
009793,000044: 05,2457           74771                           MASK     BITS4&6                               #  EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
009794,000045: 05,2460           64735                           AD       BIT15                                 #  REQUESTED FRESH START.
009795,000046: 05,2461           55036                           TS       DSPTAB     +11D                       
009796,000047: 
009797,000048: 05,2462           34740                           CA       BIT12                                 #  INITIALIZE DOWNLINK ERASABLE MEMORY
009798,000049: 05,2463           54333                           TS       DUMPCNT                               #  DUMP FOR ONE PASS.
009799,000050: 
009800,000051: 05,2464           34755                           CA       ZERO                                  
009801,000052: 05,2465           55365                           TS       ERCOUNT                               
009802,000053: 05,2466           54375                           TS       FAILREG                               
009803,000054: 05,2467           54376                           TS       FAILREG    +1                         
009804,000055: 05,2470           54377                           TS       FAILREG    +2                         
009805,000056: 05,2471           54320                           TS       REDOCTR                               
009806,000057: 
009807,000058: 05,2472           44644                           CS       PRIO12                                
009808,000059: 05,2473           55313                           TS       DSRUPTSW                              
009809,000060: 
009810,000061: 05,2474           34736        DOFSTART           CAF      BIT14                                 #  INSURE ENGINE IS OFF.
009811,000062: 05,2475           00006                           EXTEND                                         
009812,000063: 05,2476           01011                           WRITE    DSALMOUT                              
009813,000064: 05,2477           44755                           CS       ZERO                                  
009814,000065: 05,2500           54055                           TS       THRUST                                
009815,000066: 
009816,000067: 05,2501           34751        DOFSTRT1           CAF      FOUR                                  
009817,000068: 05,2502           55273                           TS       RCSFLAGS                              #  INITIALIZE ATTITUDE ERROR DISPLAYS.
009818,000069: 05,2503           34355                           CA       PRIO30                                
009819,000070: 05,2504           54366                           TS       RESTREG                               #  SUPER BANK PRIORITY FOR DISPLAYS.
009820,000071: 
009821,000072: 05,2505           34755                           CA       ZERO                                  
009822,000073: 05,2506           55246                           TS       ABDELV                                #  DAP INITIALIZATION
009823,000074: 05,2507           54371                           TS       NVSAVE                                
009824,000075: 05,2510           55072                           TS       EBANKTEM                              
009825,000076: 

Page 227

009827,000078: 05,2511           55262                           TS       CH5MASK                               
009828,000079: 05,2512           55263                           TS       CH6MASK                               
009829,000080: 05,2513           55276                           TS       PVALVEST                              #  FOR RCS FAILURE MONITOR
009830,000081: 05,2514           55360                           TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
009831,000082: 05,2515           55362                           TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
009832,000083: 05,2516           54332                           TS       DNLSTCOD                              #  SELECT POO DOWNLIST
009833,000084: 05,2517           55324                           TS       AGSWORD                               #  ALLOW AGS INITIALIZATION
009834,000085: 05,2520           55501                           TS       UPSVFLAG                              #  ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
009835,000086: 05,2521           00006                           EXTEND                                         
009836,000087: 05,2522           01005                           WRITE    CHAN5                                 #  TURN OFF RCS JETS.
009837,000088: 05,2523           00006                           EXTEND                                         
009838,000089: 05,2524           01006                           WRITE    CHAN6                                 #  TURN OFF RCS JETS.
009839,000090: 05,2525           00006                           EXTEND                                         
009840,000091: 05,2526           01012                           WRITE    CHAN12                                
009841,000092: 05,2527           00006                           EXTEND                                         
009842,000093: 05,2530           01013                           WRITE    CHAN13                                
009843,000094: 05,2531           00006                           EXTEND                                         
009844,000095: 05,2532           01014                           WRITE    CHAN14                                
009845,000096: 05,2533           41036                           CS       DSPTAB     +11D                       
009846,000097: 05,2534           74771                           MASK     BITS4&6                               
009847,000098: 05,2535           10000                           CCS      A                                     
009848,000099: 05,2536           02542                           TC       +4                                    
009849,000100: 05,2537           34771                           CA       BITS4&6                               
009850,000101: 05,2540           00006                           EXTEND                                         #  THE IMU WAS IN COARSE ALIGN IN GIMBAL
009851,000102: 05,2541           05012                           WOR      CHAN12                                #  LOCK, SO PUT IT BACK INTO COARSE ALIGN.
009852,000103: 05,2542           02643                 +4        TC       MR.KLEAN                              
009853,000104: 
009854,000105: 05,2543           44755                           CS       ZERO                                  
009855,000106: 05,2544           55011                           TS       MODREG                                
009856,000107: 
009857,000108: 05,2545           33350                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
009858,000109: 05,2546           55302                           TS       IMODES30                              
009859,000110: 
009860,000111: 05,2547           33062                           CAF      MAXDB                                 
009861,000112: 05,2550           55346                           TS       DB                                    
009862,000113: 05,2551           34751                           CAF      FOUR                                  
009863,000114: 05,2552           55325                           TS       RATEINDX                              #  INITIALIZE KALCMANU RATE
009864,000115: 05,2553           33056                           CA       BOOLSTRT                              
009865,000116: 05,2554           54111                           TS       DAPBOOLS                              
009866,000117: 05,2555           35015                           CAF      EBANK6                                
009867,000118: 05,2556           54003                           TS       EBANK                                 
009868,000119: 05,2557  E6,1400                                  EBANK=   HIASCENT                              
009869,000120: 
009870,000121: 05,2557           33053                           CA       STIKSTRT                              
009871,000122: 05,2560           55442                           TS       STIKSENS                              
009872,000123: 05,2561           33054                           CA       RATESTRT                              
009873,000124: 05,2562           55474                           TS       -RATEDB                               
009874,000125: 05,2563           32000                           CAF      FULLAPS                               #  INITIALIZE MAXIMUM ASCENT MASS FOR USE
009875,000126: 05,2564           55400                           TS       HIASCENT                              #    BY 1/ACCS UNTIL THE PAD LOAD IS DONE.
009876,000127: 05,2565           33057                           CA       77001OCT                              #      LOAD DAP FILTER GAINS PAD LOAD
009877,000128: 

Page 228

009879,000130: 05,2566           55403                           TS       DKTRAP                                #     TO BEST PRESENT ESTIMATE OF GOODIES
009880,000131: 05,2567           55406                           TS       LMTRAP                                #  .14 DEG
009881,000132: 05,2570           33060                           CA       60DEC                                 
009882,000133: 05,2571           55405                           TS       DKKAOSN                               
009883,000134: 05,2572           55410                           TS       LMKAOSN                               #  6 SEC GAIN FOR ALPHA
009884,000135: 05,2573           34755                           CA       ZERO                                  
009885,000136: 05,2574           55407                           TS       LMOMEGAN                              #  UNITY GAIN
009886,000137: 05,2575           34363                           CA       TEN                                   
009887,000138: 05,2576           55404                           TS       DKOMEGAN                              #  1 SEC GAIN FOR OMEGA
009888,000139: 05,2577           34744                           CAF      BIT8                                  #  SET DOCKED DB TO 1.4 DEG.  MAY OVERWRITE
009889,000140: 05,2600           55411                           TS       DKDB                                  #    WITH PAD LOAD.
009890,000141: 05,2601           35026                           CAF      IM33INIT                              
009891,000142: 05,2602           64746                           AD       BIT6                                  #  KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
009892,000143: 05,2603           55303                           TS       IMODES33                              #    OFF UNTIL ICDU ZERO IS FINISHED.
009893,000144: 
009894,000145: 05,2604           00006                           EXTEND                                         #  INITIALIZE SWITCHES ONLY ON FRESH START.
009895,000146: 05,2605           33355                           DCA      SWINIT                                
009896,000147: 05,2606           52075                           DXCH     STATE                                 
009897,000148: 05,2607           33356                           CA       SWINIT     +2                         
009898,000149: 05,2610           54076                           TS       STATE      +2                         
009899,000150: 05,2611           34737                           CA       REFSMBIT                              #  DO NOT ALTER REFSMFLG ON FRESH START.
009900,000151: 05,2612           70077                           MASK     STATE      +3                         
009901,000152: 05,2613           63357                           AD       SWINIT     +3                         
009902,000153: 05,2614           54077                           TS       STATE      +3                         
009903,000154: 05,2615           00006                           EXTEND                                         
009904,000155: 05,2616           33361                           DCA      SWINIT     +4                         
009905,000156: 05,2617           52101                           DXCH     STATE      +4                         
009906,000157: 05,2620           00006                           EXTEND                                         
009907,000158: 05,2621           33363                           DCA      SWINIT     +6                         
009908,000159: 05,2622           52103                           DXCH     STATE      +6                         
009909,000160: 05,2623           34744                           CA       SURFFBIT                              #  DO NOT ALTER  SURFFLAG ON FRESH START.
009910,000161: 05,2624           64740                           AD       CMOONBIT                              #                CMOONFLG
009911,000162: 05,2625           64741                           AD       LMOONBIT                              #                LMOONFLG
009912,000163: 05,2626           70104                           MASK     STATE      +8D                        
009913,000164: 05,2627           63364                           AD       SWINIT     +8D                        
009914,000165: 05,2630           54104                           TS       STATE      +8D                        
009915,000166: 05,2631           33365                           CA       SWINIT     +9D                        
009916,000167: 05,2632           54105                           TS       STATE      +9D                        
009917,000168: 05,2633           34737                           CA       APSFLBIT                              #  DO NOT ALTER APSFLAG ON FRESH START.
009918,000169: 05,2634           70106                           MASK     STATE      +10D                       
009919,000170: 05,2635           63366                           AD       SWINIT     +10D                       
009920,000171: 05,2636           54106                           TS       STATE      +10D                       
009921,000172: 05,2637           33367                           CAF      SWINIT     +11D                       
009922,000173: 05,2640           54107                           TS       STATE      +11D                       
009923,000174: 
009924,000175: 05,2641           04635        ENDRSTRT           TC       POSTJUMP                              #  NOW IN ANOTHER BANK.
009925,000176: 05,2642           03205                           CADR     DUMMYJOB   +2                         #  PICKS UP AT RELINT.   (DONT ZERO NEWJOB)
009926,000177: 
009927,000178: 05,2643           00004        MR.KLEAN           INHINT                                         
009928,000179: 

Page 229

009930,000181: 05,2644           00006                           EXTEND                                         
009931,000182: 05,2645           34755                           DCA      NEG0                                  
009932,000183: 05,2646           52755                           DXCH     -PHASE2                               
009933,000184: 05,2647           00006        POOKLEAN           EXTEND                                         
009934,000185: 05,2650           34755                           DCA      NEG0                                  
009935,000186: 05,2651           52761                           DXCH     -PHASE4                               
009936,000187: 05,2652           00006        V37KLEAN           EXTEND                                         
009937,000188: 05,2653           34755                           DCA      NEG0                                  
009938,000189: 05,2654           52753                           DXCH     -PHASE1                               
009939,000190: 05,2655           00006                           EXTEND                                         
009940,000191: 05,2656           34755                           DCA      NEG0                                  
009941,000192: 05,2657           52757                           DXCH     -PHASE3                               
009942,000193: 05,2660           00006                           EXTEND                                         
009943,000194: 05,2661           34755                           DCA      NEG0                                  
009944,000195: 05,2662           52763                           DXCH     -PHASE5                               
009945,000196: 05,2663           00006                           EXTEND                                         
009946,000197: 05,2664           34755                           DCA      NEG0                                  
009947,000198: 05,2665           52765                           DXCH     -PHASE6                               
009948,000199: 05,2666           00002                           TC       Q                                     
009949,000200: 

Page 230

009951,000202:                                                                                                  #           COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHIC
009952,000203: 
009953,000204: 05,2667  E3,1400                                  EBANK=   LST1                                  #  H MAY HAVE BEEN RUNNING AT THE TIME.
009954,000205: 05,2667           24320        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
009955,000206: 
009956,000207: 05,2670           22002                           LXCH     Q                                     
009957,000208: 05,2671           00006                           EXTEND                                         
009958,000209: 05,2672           04007                           ROR      SUPERBNK                              
009959,000210: 05,2673           53433                           DXCH     RSBBQ                                 
009960,000211: 05,2674           31036                           CA       DSPTAB     +11D                       
009961,000212: 05,2675           74750                           MASK     BIT4                                  
009962,000213: 05,2676           00006                           EXTEND                                         
009963,000214: 05,2677           12703                           BZF      +4                                    
009964,000215: 05,2700           64746                           AD       BIT6                                  #  SET ERROR COUNTER ENABLE
009965,000216: 05,2701           00006                           EXTEND                                         
009966,000217: 05,2702           05012                           WOR      CHAN12                                #  ISS WAS IN COARS ALIGN SO GO BACK TO
009967,000218: 05,2703           03100                           TC       STARTSUB                              
009968,000219: 
009969,000220:                                                                                                  #                                             ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
009970,000221:                                                                                                  #                                             AND X+1 INTO SKEEP5 AND SKEEP6. IT ALSO STORES X INTO SKEEP7 AND
009971,000222:                                                                                                  #                                             ERESTORE. IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
009972,000223:                                                                                                  #                                             EQUAL C(SKEEP7),AND BE A + NUMBER LESS THAN 2000 OCT. OTHERWISE
009973,000224:                                                                                                  #                                             C(ERESTORE) SHOULD EQUAL +0.
009974,000225: 
009975,000226: 05,2704           34350                           CAF      HI5                                   
009976,000227: 05,2705           71360                           MASK     ERESTORE                              
009977,000228: 05,2706           00006                           EXTEND                                         
009978,000229: 05,2707           12711                           BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
009979,000230: 05,2710           12501                           TCF      DOFSTRT1                              #  DO FRESH START - E MEMORY MIGHT BE BAD.
009980,000231: 05,2711           41360                           CS       ERESTORE                              
009981,000232: 05,2712           00006                           EXTEND                                         
009982,000233: 05,2713           12730                           BZF      DORSTART                              #  = +0 CONTINUE WITH RESTART.
009983,000234: 05,2714           61377                           AD       SKEEP7                                
009984,000235: 05,2715           00006                           EXTEND                                         
009985,000236: 05,2716           12720                           BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
009986,000237: 05,2717           12501                           TCF      DOFSTRT1                              #  DO FRESH START - E MEMORY MIGHT BE BAD.
009987,000238: 05,2720           31374                           CA       SKEEP4                                
009988,000239: 05,2721           54003                           TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
009989,000240: 05,2722           00006                           EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
009990,000241: 05,2723           31376                           DCA      SKEEP5                                
009991,000242: 05,2724           51377                           INDEX    SKEEP7                                
009992,000243: 05,2725           52001                           DXCH     0000                                  #  E MEMORY RESTORED.
009993,000244: 05,2726           34755                           CA       ZERO                                  
009994,000245: 05,2727           55360                           TS       ERESTORE                              
009995,000246: 05,2730           12731        DORSTART           NOOP                                           #  REMOVE OSC FAIL AND LGC WARNING LOGIC
009996,000247:                                                                                                  #  SINCE SOFTWARE PROBLEMS NO LONGER
009997,000248:                                                                                                  #  CAUSE HARDWARE RESTARTS (EXCEPT PARITY).
009998,000249: 05,2731           03063        BUTTONS            TC       LIGHTSET                              #  EXIT TO DOFSTART IF ERROR RESET AND
009999,000250:                                                                                                  #  MARK REJECT DEPRESSED SIMULTANEOUSLY
010000,000251: 

Page 231

010002,000253: 05,2732           44736        SETINFL            CS       INTFLBIT                              
010003,000254: 05,2733           70106                           MASK     FLGWRD10                              
010004,000255: 05,2734           54106                           TS       FLGWRD10                              
010005,000256: 
010006,000257: 05,2735           33352                           CA       9,6,4                                 #  LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
010007,000258: 05,2736           71036                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
010008,000259: 05,2737           64735                           AD       BIT15                                 
010009,000260: 05,2740           57036                           XCH      DSPTAB     +11D                       
010010,000261: 05,2741           33336                           CAF      IFAILINH                              #  LEAVE IMU FAILURE INHIBITS INTACT ON
010011,000262: 05,2742           71302                           MASK     IMODES30                              #  HARDWARE RESTART. RESET ALL FAILURE
010012,000263: 05,2743           63351                           AD       IM30INIR                              #  CODES.
010013,000264: 05,2744           55302                           TS       IMODES30                              
010014,000265: 
010015,000266: 05,2745           31324                           CA       AGSWORD                               #  BE SURE OF CORRECT DOWNLIST
010016,000267: 05,2746           54332                           TS       DNLSTCOD                              
010017,000268: 
010018,000269: 05,2747           34750                           CA       BIT4                                  #  TURN ON THROTTLE COUNTER
010019,000270: 05,2750           00006                           EXTEND                                         
010020,000271: 05,2751           05014                           WOR      CHAN14                                #  TURN ON THRUST DRIVE
010021,000272: 05,2752           40101                           CS       FLAGWRD5                              
010022,000273: 05,2753           74745                           MASK     ENGONBIT                              
010023,000274: 05,2754           10000                           CCS      A                                     
010024,000275: 05,2755           12762                           TCF      +5                                    
010025,000276: 05,2756           34737                           CAF      BIT13                                 
010026,000277: 05,2757           00006                           EXTEND                                         
010027,000278: 05,2760           05011                           WOR      DSALMOUT                              #  TURN ENGINE ON
010028,000279: 05,2761           12776                           TCF      GOPROG3                               
010029,000280: 05,2762           34736                 +5        CAF      BIT14                                 
010030,000281: 05,2763           00006                           EXTEND                                         
010031,000282: 05,2764           05011                           WOR      DSALMOUT                              #  TURN ENGINE OFF.
010032,000283: 05,2765           12776                           TCF      GOPROG3                               
010033,000284: 
010034,000285: 05,2766           00004        ENEMA              INHINT                                         
010035,000286: 05,2767           03115                           TC       STARTSB1                              
010036,000287: 05,2770           12772                           TCF      GOPROG2A                              
010037,000288: 05,2771           03137        GOPROG2            TC       STARTSB2                              
010038,000289: 05,2772           03063        GOPROG2A           TC       LIGHTSET                              
010039,000290: 05,2773           43061                           CS       RSFLGBTS                              #  CLEAR BITS 7 AND 14.
010040,000291: 05,2774           70106                           MASK     FLGWRD10                              
010041,000292: 05,2775           54106                           TS       FLGWRD10                              
010042,000293: 
010043,000294: 05,2776           34756        GOPROG3            CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
010044,000295: 05,2777           54161        PCLOOP             TS       MPAC       +5                         
010045,000296: 05,3000           60000                           DOUBLE                                         
010046,000297: 05,3001           00006                           EXTEND                                         
010047,000298: 05,3002           50000                           INDEX    A                                     
010048,000299: 05,3003           30753                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
010049,000300: 05,3004           00006                           EXTEND                                         
010050,000301: 05,3005           06001                           RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
010051,000302: 05,3006           10000                           CCS      A                                     
010052,000303: 

Page 232

010054,000305: 05,3007           13047                           TCF      PTBAD                                 #  RESTART FAILURE.
010055,000306: 05,3010           13047                           TCF      PTBAD                                 
010056,000307: 05,3011           13047                           TCF      PTBAD                                 
010057,000308: 
010058,000309: 05,3012           10161                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
010059,000310: 05,3013           12777                           TCF      PCLOOP                                
010060,000311: 
010061,000312: 05,3014           54162                           TS       MPAC       +6                         #  SET TO +0.
010062,000313: 05,3015           05315                           TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
010063,000314: 
010064,000315: 05,3016           00004                           INHINT                                         #  RELINT DONE IN MMDSPLAY
010065,000316: 
010066,000317: 05,3017           44736                           CS       DIDFLBIT                              #  CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
010067,000318: 05,3020           70075                           MASK     FLAGWRD1                              #  RE-INITIALIZE ITSELF IF IT HAD BEEN
010068,000319: 05,3021           54075                           TS       FLAGWRD1                              #  OPERATING AT THE TIME OF THE RESTART.
010069,000320: 
010070,000321: 05,3022           34756                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
010071,000322: 05,3023           54161        NXTRST             TS       MPAC       +5                         
010072,000323: 05,3024           60000                           DOUBLE                                         
010073,000324: 05,3025           50000                           INDEX    A                                     
010074,000325: 05,3026           10753                           CCS      PHASE1                                
010075,000326: 05,3027           13031                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
010076,000327: 05,3030           13036                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
010077,000328: 
010078,000329: 05,3031           54154        PACTIVE            TS       MPAC                                  
010079,000330: 05,3032           24154                           INCR     MPAC                                  #  ABS OF PHASE.
010080,000331: 05,3033           24162                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
010081,000332: 05,3034           33055                           CA       RACTCADR                              
010082,000333: 05,3035           04622                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
010083,000334: 
010084,000335: 05,3036           10161        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
010085,000336: 05,3037           13023                           TCF      NXTRST                                
010086,000337: 
010087,000338: 05,3040           10162                           CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
010088,000339: 05,3041           12641                           TCF      ENDRSTRT                              #  PHASE ACTIVE
010089,000340: 05,3042           34735                           CAF      BIT15                                 #  IS MODE -0
010090,000341: 05,3043           71011                           MASK     MODREG                                
010091,000342: 05,3044           00006                           EXTEND                                         
010092,000343: 05,3045           16001                           BZF      GOTOPOOH                              #  NO
010093,000344: 05,3046           12641                           TCF      ENDRSTRT                              #  YES
010094,000345: 05,3047           05567        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
010095,000346: 05,3050           01107                           OCT      1107                                  
010096,000347: 
010097,000348: 05,3051           12501                           TCF      DOFSTRT1                              
010098,000349:                                                                                                  #  ******** ****** ******
010099,000350: 
010100,000351:                                                                                                  #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
010101,000352: 
010102,000353: 05,3052     4737               OCT10000           =        BIT13                                 
010103,000354: 

Page 233

010105,000356: 05,3052     4355               OCT30000           =        PRIO30                                
010106,000357: 05,3052           07777        OCT7777            OCT      7777                                  
010107,000358: 05,3053           32321        STIKSTRT           DEC      0.825268                              #  20 D/S MAXIMUM COMMANDED RATE
010108,000359: 05,3054           77445        RATESTRT           DEC      -218       B-14                       
010109,000360: 05,3055           03523        RACTCADR           CADR     RESTARTS                              
010110,000361: 05,3056           21312        BOOLSTRT           OCT      21312                                 
010111,000362: 05,3057           77001        77001OCT           OCT      77001                                 #  .14 DEG SCALED AT 4.5 DEG
010112,000363: 05,3060           00074        60DEC              DEC      60         B-14                       
010113,000364: 05,3061           20100        RSFLGBTS           OCT      20100                                 
010114,000365: 05,3062           03434        MAXDB              OCTAL    03434                                 #  5 DEG ATTITUDE DEADBAND, SCALED AT 45.
010115,000366: 
010116,000367: 05,3063           34747        LIGHTSET           CAF      BIT5                                  #  CHECK FOR MARK REJECT AND ERROR RESET
010117,000368: 05,3064           00006                           EXTEND                                         
010118,000369: 05,3065           02016                           RAND     NAVKEYIN                              
010119,000370: 05,3066           00006                           EXTEND                                         
010120,000371: 05,3067           13075                           BZF      NONAVKEY                              #  NO MARK REJECT
010121,000372: 05,3070           00006                           EXTEND                                         
010122,000373: 05,3071           00015                           READ     MNKEYIN                               #  CHECK IF KEYS 2M AND 5M ON
010123,000374: 05,3072           63347                           AD       -ELR                                  #  MAIN DSKY KEYCODE (BITS 1-5)
010124,000375: 05,3073           00006                           EXTEND                                         
010125,000376: 05,3074           13076                           BZF      +2                                    
010126,000377: 
010127,000378: 05,3075           00002        NONAVKEY           TC       Q                                     
010128,000379: 
010129,000380: 05,3076           03100                           TC       STARTSUB                              
010130,000381: 05,3077           12474                           TCF      DOFSTART                              
010131,000382: 

Page 234

010133,000384:                                                                                                  #           INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
010134,000385: 
010135,000386: 05,3100  E6,1537                                  EBANK=   AOSQ                                  
010136,000387: 05,3100           33337        STARTSUB           CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
010137,000388: 05,3101           54335                           TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE
010138,000389:                                                                                                  #  INTERRUPTED AND START SENDING FROM THE
010139,000390:                                                                                                  #  BEGINNING OF THE CURRENT DOWNLIST.
010140,000391: 05,3102           34746                           CAF      BIT6                                  
010141,000392: 05,3103           00006                           EXTEND                                         
010142,000393: 05,3104           02033                           RAND     CHAN33                                
010143,000394: 05,3105           63353                           AD       RMODINIT                              
010144,000395: 05,3106           54110                           TS       RADMODES                              
010145,000396: 
010146,000397: 05,3107           34733                           CAF      POSMAX                                
010147,000398: 05,3110           54026                           TS       TIME3                                 
010148,000399: 05,3111           67745                           AD       MINUS2                                
010149,000400: 05,3112           54027                           TS       TIME4                                 
010150,000401: 05,3113           67746                           AD       NEGONE                                
010151,000402: 05,3114           54030                           TS       TIME5                                 
010152,000403: 
010153,000404: 05,3115           35015        STARTSB1           CAF      EBANK6                                
010154,000405: 05,3116           54003                           TS       EBANK                                 
010155,000406: 
010156,000407: 05,3117           44737                           CS       BIT13                                 #  CAUSE DAPIDLER TO CALL 1/ACCS
010157,000408: 05,3120           71273                           MASK     RCSFLAGS                              
010158,000409: 05,3121           55273                           TS       RCSFLAGS                              #  ZERO BIT 13
010159,000410: 05,3122           34733                           CAF      POSMAX                                #  DISABLE TIME6 CLOCK.  JUST IN CASE A T6
010160,000411: 05,3123           55464                           TS       T6NEXT                                #    RUPT IS ALREADY IN THE PRIORITY CHAIN,
010161,000412: 05,3124           00006                           EXTEND                                         #    ENSURE THAT IT'S INPUTS WILL RENDER IT
010162,000413: 05,3125           03013                           WAND     CHAN13                                #    INEFFECTUAL.
010163,000414: 05,3126           34755                           CAF      ZERO                                  
010164,000415: 05,3127           55463                           TS       NXT6ADR                               
010165,000416: 05,3130           55470                           TS       NEXTP                                 
010166,000417: 
010167,000418: 05,3131           44751                           CS       ACCSOKAY                              
010168,000419: 05,3132           70111                           MASK     DAPBOOLS                              
010169,000420: 05,3133           54111                           TS       DAPBOOLS                              
010170,000421: 
010171,000422: 05,3134           00006                           EXTEND                                         #  SET T5RUPT FOR DAPIDLER PROGRAM.
010172,000423: 05,3135           33335                           DCA      IDLEADR                               
010173,000424: 05,3136           53275                           DXCH     T5ADR                                 
010174,000425: 
010175,000426: 05,3137           33346        STARTSB2           CAF      OCT30001                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
010176,000427: 05,3140           00006                           EXTEND                                         #  ENGINE ON, OFF AND ISS WARNING.
010177,000428: 05,3141           03011                           WAND     DSALMOUT                              
010178,000429: 
010179,000430: 05,3142           44743                           CS       READRBIT                              #  CLEAR READRFLG FOR R29.
010180,000431: 05,3143           70077                           MASK     FLAGWRD3                              
010181,000432: 05,3144           54077                           TS       FLAGWRD3                              
010182,000433: 

Page 235

010184,000435: 
010185,000436: 05,3145           40077                           CS       FLAGWRD3                              #  DURING SOFTWARE RESTART,CLEAR TURNON,
010186,000437: 05,3146           74741                           MASK     NR29FBIT                              #  REPOSITION,CDU ZERO AND REMODE BITS
010187,000438: 05,3147           00006                           EXTEND                                         #  IN RADMODES,SINCE TASKS ASSOCIATED
010188,000439: 05,3150           13152                           BZF      +2                                    #  WITH THESE BITS HAVE BEEN KILLED
010189,000440: 05,3151           34742                           CAF      BIT10                                 #  ALSO IF R29 HAD BEEN REQUESTED,
010190,000441: 05,3152           63342                           AD       OCT32001                              #  (NOR29FLG = 0) CLEAR BIT 10 RADMODES
010191,000442: 05,3153           40000                           COM                                            #  TO MAKE R29 FORGET IT HAD STARTED
010192,000443: 05,3154           70110                           MASK     RADMODES                              #  DESIGNATING
010193,000444: 05,3155           54110                           TS       RADMODES                              
010194,000445: 05,3156           33344                           CAF      OCT27470                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
010195,000446: 05,3157           00006                           EXTEND                                         #  IMU FLAGS.  (COURSE ALIGN ENABLE, ZERO
010196,000447: 05,3160           03012                           WAND     CHAN12                                #  IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
010197,000448:                                                                                                  #  TRIM DRIVES. LEAVE RR LOCKON ENABLE
010198,000449:                                                                                                  #  ALONE.
010199,000450: 
010200,000451: 05,3161           44750                           CS       NORRMBIT                              #  ENABLE R25.
010201,000452: 05,3162           70101                           MASK     FLAGWRD5                              
010202,000453: 05,3163           54101                           TS       FLAGWRD5                              
010203,000454: 
010204,000455: 05,3164           33345                           CAF      OCT74160                              #  DURING SOFTWARE RESTART, DO NOT DUSTURB
010205,000456: 05,3165           00006                           EXTEND                                         #  TELEMETRY FLAGS, RESET TRAP FLAGS, AND
010206,000457: 05,3166           03013                           WAND     CHAN13                                #  ENABLE T6RUPT FLAG.
010207,000458: 
010208,000459: 05,3167           34740                           CAF      BIT12                                 #  REENABLE RUPT10 (RUPT QUICKLY
010209,000460: 05,3170           00006                           EXTEND                                         #    RESUMES EXCEPT DURING P64)
010210,000461: 05,3171           05013                           WOR      CHAN13                                
010211,000462: 
010212,000463: 05,3172           34746                           CAF      BIT6                                  #  DURING SOFTWARE RESTART, DO NOT DISTURB
010213,000464: 05,3173           00006                           EXTEND                                         #  GYRO ENABLE FLAG.
010214,000465: 05,3174           03014                           WAND     CHAN14                                
010215,000466: 
010216,000467: 05,3175  E3,1400                                  EBANK=   LST1                                  
010217,000468: 05,3175           35007                           CAF      STARTEB                               
010218,000469: 05,3176           54003                           TS       EBANK                                 #  SET FOR E3
010219,000470: 
010220,000471: 05,3177           34734                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
010221,000472: 05,3200           55407                           TS       LST1       +7                         
010222,000473: 05,3201           55406                           TS       LST1       +6                         
010223,000474: 05,3202           55405                           TS       LST1       +5                         
010224,000475: 05,3203           55404                           TS       LST1       +4                         
010225,000476: 05,3204           55403                           TS       LST1       +3                         
010226,000477: 05,3205           55402                           TS       LST1       +2                         
010227,000478: 05,3206           55401                           TS       LST1       +1                         
010228,000479: 05,3207           55400                           TS       LST1                                  
010229,000480: 
010230,000481: 05,3210           45236                           CS       ENDTASK                               
010231,000482: 05,3211           55410                           TS       LST2                                  
010232,000483: 05,3212           55412                           TS       LST2       +2                         
010233,000484: 05,3213           55414                           TS       LST2       +4                         
010234,000485: 05,3214           55416                           TS       LST2       +6                         
010235,000486: 

Page 236

010237,000488: 05,3215           55420                           TS       LST2       +8D                        
010238,000489: 05,3216           55422                           TS       LST2       +10D                       
010239,000490: 05,3217           55424                           TS       LST2       +12D                       
010240,000491: 05,3220           55426                           TS       LST2       +14D                       
010241,000492: 05,3221           55430                           TS       LST2       +16D                       
010242,000493: 05,3222           45237                           CS       ENDTASK    +1                         
010243,000494: 05,3223           55411                           TS       LST2       +1                         
010244,000495: 05,3224           55413                           TS       LST2       +3                         
010245,000496: 05,3225           55415                           TS       LST2       +5                         
010246,000497: 05,3226           55417                           TS       LST2       +7                         
010247,000498: 05,3227           55421                           TS       LST2       +9D                        
010248,000499: 05,3230           55423                           TS       LST2       +11D                       
010249,000500: 05,3231           55425                           TS       LST2       +13D                       
010250,000501: 05,3232           55427                           TS       LST2       +15D                       
010251,000502: 05,3233           55431                           TS       LST2       +17D                       
010252,000503: 
010253,000504: 05,3234           44755                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
010254,000505: 05,3235           54167                           TS       PRIORITY                              #  AVAILABLE.
010255,000506: 05,3236           54203                           TS       PRIORITY   +12D                       
010256,000507: 05,3237           54217                           TS       PRIORITY   +24D                       
010257,000508: 05,3240           54233                           TS       PRIORITY   +36D                       
010258,000509: 05,3241           54247                           TS       PRIORITY   +48D                       
010259,000510: 05,3242           54263                           TS       PRIORITY   +60D                       
010260,000511: 05,3243           54277                           TS       PRIORITY   +72D                       
010261,000512: 05,3244           54313                           TS       PRIORITY   +84D                       
010262,000513: 
010263,000514: 05,3245           55313                           TS       DSRUPTSW                              
010264,000515: 05,3246           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
010265,000516: 
010266,000517: 05,3247           33341                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
010267,000518: 05,3250           54400                           TS       VAC1USE                               
010268,000519: 05,3251           63343                           AD       LTHVACA                               
010269,000520: 05,3252           54454                           TS       VAC2USE                               
010270,000521: 05,3253           63343                           AD       LTHVACA                               
010271,000522: 05,3254           54530                           TS       VAC3USE                               
010272,000523: 05,3255           63343                           AD       LTHVACA                               
010273,000524: 05,3256           54604                           TS       VAC4USE                               
010274,000525: 05,3257           63343                           AD       LTHVACA                               
010275,000526: 05,3260           54660                           TS       VAC5USE                               
010276,000527: 
010277,000528: 05,3261           34363                           CAF      TEN                                   
010278,000529: 05,3262           54154        DSPOFF             TS       MPAC                                  #  R1,R2,R3).
010279,000530: 05,3263           44740                           CS       BIT12                                 
010280,000531: 05,3264           50154                           INDEX    MPAC                                  
010281,000532: 05,3265           55023                           TS       DSPTAB                                
010282,000533: 05,3266           10154                           CCS      MPAC                                  
010283,000534: 05,3267           13262                           TCF      DSPOFF                                
010284,000535: 
010285,000536: 05,3270           55326                           TS       DELAYLOC                              
010286,000537: 05,3271           55327                           TS       DELAYLOC   +1                         
010287,000538: 

Page 237

010289,000540: 05,3272           55330                           TS       DELAYLOC   +2                         
010290,000541: 05,3273           55074                           TS       R1SAVE                                
010291,000542: 05,3274           54045                           TS       INLINK                                
010292,000543: 05,3275           54776                           TS       DSPCNT                                
010293,000544: 05,3276           55042                           TS       CADRSTOR                              
010294,000545: 05,3277           55013                           TS       REQRET                                
010295,000546: 05,3300           55015                           TS       CLPASS                                
010296,000547: 05,3301           55012                           TS       DSPLOCK                               
010297,000548: 05,3302           55020                           TS       MONSAVE                               #  KILL MONITOR
010298,000549: 05,3303           55021                           TS       MONSAVE1                              
010299,000550: 05,3304           55001                           TS       VERBREG                               
010300,000551: 05,3305           55002                           TS       NOUNREG                               
010301,000552: 05,3306           55043                           TS       DSPLIST                               
010302,000553: 05,3307           55312                           TS       MARKSTAT                              
010303,000554: 05,3310           55044                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
010304,000555: 05,3311           55304                           TS       IMUCADR                               
010305,000556: 05,3312           55305                           TS       OPTCADR                               
010306,000557: 05,3313           55306                           TS       RADCADR                               
010307,000558: 05,3314           55307                           TS       ATTCADR                               
010308,000559: 05,3315           55314                           TS       LGYRO                                 
010309,000560: 05,3316           54100                           TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
010310,000561: 05,3317           34760                           CAF      NOUTCON                               
010311,000562: 05,3320           55016                           TS       NOUT                                  
010312,000563: 
010313,000564: 05,3321           44753                           CS       ONE                                   
010314,000565: 05,3322           55100                           TS       SAMPLIM                               
010315,000566: 05,3323           34746                           CAF      BIT6                                  
010316,000567: 05,3324           71303                           MASK     IMODES33                              #  LEAVE BIT 6 UNCHANGED
010317,000568: 05,3325           65026                           AD       IM33INIT                              #  NO PIP OR TM FAILS.BIT6=0 IN THIS WORD.
010318,000569: 05,3326           55303                           TS       IMODES33                              
010319,000570: 
010320,000571: 05,3327           33340                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
010321,000572: 05,3330           55361                           TS       SELFRET                               
010322,000573: 
010323,000574: 05,3331           44360                           CS       VD1                                   
010324,000575: 05,3332           54777                           TS       DSPCOUNT                              
010325,000576: 
010326,000577: 05,3333           00002                           TC       Q                                     
010327,000578: 05,3334  E6,1537                                  EBANK=   AOSQ                                  
010328,000579: 05,3334           02024 34066  IDLEADR            2CADR    DAPIDLER                              
010329,000580: 05,3336           00435        IFAILINH           OCT      435                                   
010330,000581: 05,3337           03437        LDNPHAS1           GENADR   DNPHASE1                              
010331,000582: 05,3340           03344        LESCHK             GENADR   SELFCHK                               
010332,000583: 05,3341           00400        VAC1ADRC           ADRES    VAC1USE                               
010333,000584: 05,3342           32001        OCT32001           OCT      32001                                 
010334,000585: 05,3343           00054        LTHVACA            DEC      44         B-14                       
010335,000586: 
010336,000587: 05,3344           27470        OCT27470           OCT      27470                                 
010337,000588: 

Page 238

010339,000590: 05,3345           74160        OCT74160           OCT      74160                                 
010340,000591: 05,3346           30001        OCT30001           OCT      30001                                 
010341,000592: 05,3347     5007               STARTEB            EQUALS   EBANK3                                
010342,000593: 05,3347     4756               NUMGRPS            EQUALS   FIVE                                  
010343,000594: 05,3347           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
010344,000595: 05,3350           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
010345,000596: 05,3351           37000        IM30INIR           OCT      37000                                 
010346,000597: 05,3352     5026               IM33INIT           =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
010347,000598: 05,3352           00450        9,6,4              OCT      450                                   
010348,000599: 05,3353           00102        RMODINIT           OCT      00102                                 
010349,000600: 05,3354           00000        SWINIT             OCT      0                                     
010350,000601: 05,3355           00000                           OCT      0                                     
010351,000602: 05,3356           00000                           OCT      0                                     
010352,000603: 05,3357           02000                           OCT      02000                                 #  BIT 11 = NOR29FLG
010353,000604: 05,3360           00000                           OCT      0                                     
010354,000605: 05,3361           00000                           OCT      0                                     
010355,000606: 05,3362           00000                           OCT      0                                     
010356,000607: 05,3363           00100                           OCT      00100                                 
010357,000608: 
010358,000609: 05,3364           00000                           OCT      0                                     
010359,000610: 05,3365           00000                           OCT      0                                     
010360,000611: 05,3366           00000                           OCT      0                                     
010361,000612: 05,3367           40000                           OCT      40000                                 #  BIT 15 = LRBYPASS.
010362,000613: 

Page 239

010364,000615:                                                                                                  #  PROGRAM NAME    GOTOPOOH                   ASSEMBLY       SUNDANCE
010365,000616:                                                                                                  #  LOG SECTION     FRESH START AND RESTART
010366,000617: 
010367,000618:                                                                                                  #  FUNCTIONAL DESCRIPTION
010368,000619: 
010369,000620:                                                                                                  #        FLASH V 37 ON DSKY %MM CHANGE REQUEST "
010370,000621: 
010371,000622:                                                                                                  #  INPUT/OUTPUT INFORMATION
010372,000623: 
010373,000624:                                                                                                  #        A. CALLING SEQUENCE        TC GOTOPOOH
010374,000625: 
010375,000626:                                                                                                  #        B. ERASABLE INITIALIZATION       NONE
010376,000627: 
010377,000628:                                                                                                  #        C. OUTPUT FLASH V 37 ON DSKY
010378,000629: 
010379,000630:                                                                                                  #        D. DEBRIS       L
010380,000631: 
010381,000632:                                                                                                  #  PROGRAM ANALYSIS
010382,000633: 
010383,000634:                                                                                                  #        A. SUBROUTINES CALLED PRIODSPR,  LINUS
010384,000635: 
010385,000636:                                                                                                  #        B. NORMAL EXIT        TCF ENDOFJOB
010386,000637: 
010387,000638:                                                                                                  #        C. ALARM AND ABORT EXITS       NONE
010388,000639: 
010389,000640:    6001                                           BLOCK    03                                    
010390,000641:    6000                                           SETLOC   FFTAG5                                
010391,000642:    6000                                           BANK                                           
010392,000643: 
010393,000644:    6001                                           COUNT*   $$/P00                                
010394,000645:    6001           34764        GOTOPOOH           CAF      OCT33                                 #  4.33 SPOT FOR GOPOOFIX
010395,000646:    6002           54001                           TS       L                                     
010396,000647:    6003           40000                           COM                                            
010397,000648:    6004           52761                           DXCH     -PHASE4                               
010398,000649: 
010399,000650:    6005           04635                           TC       POSTJUMP                              
010400,000651:    6006           10024                           CADR     GOPOOFIX                              
010401,000652:    6007           00024        OCT24              MM       20         B-14                       
010402,000653:    6010           00031        OCT31              MM       25         B-14                       
010403,000654: 
010404,000655: 20,2004                                           BANK     20                                    
010405,000656: 04,2000                                           SETLOC   VERB37                                
010406,000657: 04,2000                                           BANK                                           
010407,000658: 
010408,000659: 04,2024                                           COUNT*   $$/P00                                #  VERB 37 AND P00 IN BANK 4.
010409,000660: 04,2024           05516        GOPOOFIX           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE
010410,000661: 04,2025           00311                           ADRES    XOVINFLG                              
010411,000662: 
010412,000663: 04,2026           05516                           TC       DOWNFLAG                              #  INSURE THAT ULLAGE IS OFF
010413,000664: 04,2027           00314                           ADRES    ULLAGFLG                              
010414,000665: 

Page 240

010416,000667: 04,2030           32036                           CAF      V37N99                                
010417,000668: 04,2031           04616                           TC       BANKCALL                              
010418,000669: 04,2032           20351                           CADR     GOFLASH                               
010419,000670: 04,2033           12030                           TCF      -3                                    
010420,000671: 04,2034           12030                           TCF      -4                                    
010421,000672: 04,2035           12030                           TCF      -5                                    
010422,000673: 
010423,000674: 04,2036           11343        V37N99             VN       3799                                  
010424,000675: 

Page 241

010426,000677:                                                                                                  #  PROGRAM NAME          V37                     ASSEMBLY SUNDANCE
010427,000678: 
010428,000679:                                                                                                  #  LOG SECTION     FRESH START AND RESTART
010429,000680: 
010430,000681:                                                                                                  #  FUNCTIONAL DESCRIPTION
010431,000682: 
010432,000683:                                                                                                  #        1. CHECK IF NEW PROGRAM ALLOWED. IF BIT 1 OF FLAGWRD2(NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
010433,000684:                                                                                                  #        2. CHECK FOR VALIDITY OF PROGRAM SELECTED. IF AN INVALID PROGRAM  IS SELECTED, THE OPERATOR ERROR LIGHT IS
010434,000685:                                                                                                  #           SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
010435,000686:                                                                                                  #        3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
010436,000687:                                                                                                  #        4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
010437,000688:                                                                                                  #        5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
010438,000689:                                                                                                  #        6. TRACK AND UPDATE FLAGS ARE SET TO ZERO.
010439,000690:                                                                                                  #        7. DISPLAY SYSTEM IS RELEASED.
010440,000691:                                                                                                  #        8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
010441,000692:                                                                                                  #           A. PROGRAM SELECTED IS P00.
010442,000693:                                                                                                  #              1. RENDEZVOUS AND P25 FLAGS ARE RESET.(KILL P20 AND P25)
010443,000694:                                                                                                  #              2. STATINT1     IS SCHEDULED BY SETTING RESTART GROUP 2.
010444,000695:                                                                                                  #              3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
010445,000696:                                                                                                  #              4. SUPERBANK 3 IS SELECTED.
010446,000697:                                                                                                  #              5. NODOFLAG IS RESET.
010447,000698:                                                                                                  #              6. ALL RESTART GROUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL ISTRANSFERRED TO RESTART PROGRAM (GOPROG2)
010448,000699:                                                                                                  #                 WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
010449,000700:                                                                                                  #                 INITIATED.
010450,000701:                                                                                                  #           B. PROGRAM SELECTED IS P20 OR P25.
010451,000702:                                                                                                  #              1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
010452,000703:                                                                                                  #                 VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
010453,000704:                                                                                                  #              2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
010454,000705:                                                                                                  #                 ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
010455,000706:                                                                                                  #                 AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
010456,000707:                                                                                                  #                 P20 OR P25 IS RESTARTED TO CONTINUE, AND ITS M M IS SET.
010457,000708:                                                                                                  #              3. CONTROL IS TRANSFERRED TO GOPROG2.
010458,000709:                                                                                                  #           C. PROGRAM SELECTED IS NEITHER P00,P20, NOR P25
010459,000710:                                                                                                  #              1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
010460,000711:                                                                                                  #              2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
010461,000712:                                                                                                  #                 GROUPS. IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP 2 IS NOT CLEARED, ALLOWING THESE PROGRAMS
010462,000713:                                                                                                  #                 TO CONTINUE.
010463,000714: 
010464,000715:                                                                                                  #  INPUT/OUTPUT INFORMATION
010465,000716: 
010466,000717:                                                                                                  #        A. CALLING SEQUENCE
010467,000718: 
010468,000719:                                                                                                  #            CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
010469,000720:                                                                                                  #               VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
010470,000721:                                                                                                  #               MMCHANG EXECUTES A   TC POSTJUMP, CADR V37.
010471,000722: 
010472,000723:                                                                                                  #        B. ERASABLE INITIALIZATION      NONE
010473,000724: 
010474,000725:                                                                                                  #        C. OUTPUT
010475,000726: 

Page 242

010477,000728:                                                                                                  #            MAJOR MODE CHANGE
010478,000729: 
010479,000730:                                                                                                  #        D. DEBRIS
010480,000731:                                                                                                  #             MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
010481,000732:                                                                                                  #             GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
010482,000733: 
010483,000734:                                                                                                  #  PROGRAM ANALYSIS
010484,000735: 
010485,000736:                                                                                                  #        A. SUBROUTINES CALLED
010486,000737:                                                                                                  #             ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
010487,000738:                                                                                                  #             DSPMM
010488,000739: 
010489,000740:                                                                                                  #        B. NORMAL EXIT        TC ENDOFJOB
010490,000741: 
010491,000742:                                                                                                  #        C. ALARMS      1520 (MAJOR MODE CHANGE NOT PERMITTED)
010492,000743: 
010493,000744: 04,2037           54775        V37                TS       MMNUMBER                              #  SAVE MAJOR MODE
010494,000745: 04,2040           34355                           CAF      PRIO30                                #  RESTART AT PINBALL PRIORITY
010495,000746: 04,2041           54366                           TS       RESTREG                               
010496,000747: 
010497,000748: 04,2042           31302                           CA       IMODES30                              #  IS IMU BEINB INITIALIZED
010498,000749: 04,2043           74746                           MASK     BIT6                                  
010499,000750: 04,2044           10000                           CCS      A                                     
010500,000751: 04,2045           12064                           TCF      CANTROO                               
010501,000752: 
010502,000753: 04,2046           40775                           CS       MMNUMBER                              #  IS P70 REQUESTED?
010503,000754: 04,2047           62375                           AD       DEC70                                 
010504,000755: 04,2050           00006                           EXTEND                                         
010505,000756: 04,2051           12370                           BZF      SETUP70                               #  YES
010506,000757: 04,2052           64753                           AD       ONE                                   #  IS P71 REQUESTED?
010507,000758: 04,2053           00006                           EXTEND                                         
010508,000759: 04,2054           12367                           BZF      SETUP71                               #  YES
010509,000760: 
010510,000761: 04,2055           30775                           CA       MMNUMBER                              #  IS NEW REQUEST POO
010511,000762: 04,2056           00006                           EXTEND                                         
010512,000763: 04,2057           12106                           BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
010513,000764: 
010514,000765: 04,2060           40076                           CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
010515,000766: 04,2061           74753                           MASK     NODOBIT                               
010516,000767: 04,2062           10000                           CCS      A                                     
010517,000768: 04,2063           12071                           TCF      CHECKTAB                              #  NO
010518,000769: 04,2064           05567        CANTROO            TC       ALARM                                 
010519,000770: 04,2065           01520                           OCT      1520                                  
010520,000771: 
010521,000772: 04,2066           04457        V37BAD             TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
010522,000773: 
010523,000774: 04,2067           04635                           TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
010524,000775: 04,2070           20723                           CADR     PINBRNCH                              #  WAS ONE. OTHERWISE DO AN EOJ.
010525,000776: 
010526,000777: 04,2071           32474        CHECKTAB           CA       NOV37MM                               #  INDEX FOR MM TABLES.
010527,000778: 

Page 243

010529,000780: 04,2072           54155        AGAINMM            TS       MPAC       +1                         
010530,000781: 04,2073           50155                           NDX      MPAC       +1                         
010531,000782: 04,2074           32436                           CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
010532,000783: 04,2075           76073                           MASK     LOW7                                  
010533,000784: 04,2076           40000                           COM                                            
010534,000785: 04,2077           60775                           AD       MMNUMBER                              
010535,000786: 04,2100           10000                           CCS      A                                     
010536,000787: 04,2101           10155                           CCS      MPAC       +1                         #  IF GR, SEE IF ANY MORE IN LIST
010537,000788: 04,2102           12072                           TCF      AGAINMM                               #  YES, GET NEXT ONE
010538,000789: 04,2103           12317                           TCF      V37NONO                               #  LAST TIME OR PASSED MM
010539,000790: 
010540,000791: 04,2104           30155                           CA       MPAC       +1                         
010541,000792: 04,2105           54774                           TS       MINDEX                                #  SAVE INDEX FOR LATER
010542,000793: 
010543,000794: 04,2106           40103        ISSERVON           CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
010544,000795: 04,2107           74746                           MASK     V37FLBIT                              
010545,000796: 04,2110           10000                           CCS      A                                     
010546,000797: 04,2111           12133                           TCF      CANV37                                #  NO
010547,000798: 
010548,000799: 04,2112           05516                           TC       DOWNFLAG                              #  YES, TURN OFF THE AVERAGE FLAG AND
010549,000800: 04,2113           00163                           ADRES    AVEGFLAG                              #  WAIT FOR SERVICER TO RETURN TO CANV37.
010550,000801: 
010551,000802: 04,2114           32363                           CAF      V37RETAD                              
010552,000803: 04,2115           55260                           TS       OUTROUTE                              
010553,000804: 
010554,000805: 04,2116           15155                           TCF      ENDOFJOB                              
010555,000806: 
010556,000807: 04,2117           40074        V37RET             CS       FLAGWRD0                              #  IS P20 OR P22 RUNNING?
010557,000808: 04,2120           74745                           MASK     RNDVZBIT                              
010558,000809: 04,2121           10000                           CCS      A                                     
010559,000810: 04,2122           12124                           TCF      +2                                    #  NO. CHECK FOR P25.
010560,000811: 04,2123           12131                           TCF      2.7SPT                                #  YES.  DO 2.7SPOT
010561,000812: 04,2124           40074                           CS       FLAGWRD0                              #  IS P25 RUNNING?
010562,000813: 04,2125           74743                           MASK     P25FLBIT                              
010563,000814: 04,2126           10000                           CCS      A                                     
010564,000815: 04,2127           32364        2.0SPT             CA       OCT37667                              
010565,000816: 04,2130           64747        2.11SPT            AD       BIT5                                  
010566,000817: 04,2131           62365        2.7SPT             AD       OCT40072                              
010567,000818: 04,2132           05357                           TC       PHSCHNGA                              
010568,000819: 
010569,000820: 04,2133           34755        CANV37             CAF      ZERO                                  
010570,000821: 04,2134           00006                           EXTEND                                         
010571,000822: 04,2135           01007                           WRITE    SUPERBNK                              
010572,000823: 
010573,000824: 04,2136           32362                           CAF      ROOAD                                 
010574,000825: 04,2137           54374                           TS       TEMPFLSH                              
010575,000826: 
010576,000827: 04,2140           05353                           TC       PHASCHNG                              
010577,000828: 04,2141           00014                           OCT      14                                    
010578,000829: 

Page 244

010580,000831: 
010581,000832: 04,2142           06036        ROO                TC       INTPRET                               
010582,000833: 
010583,000834: 04,2143           77624                           CALL                                           #  WAIT FOR INTEGRATION TO FINISH
010584,000835: 04,2144           27412                                    INTSTALL                              
010585,000836: 04,2145           77776        DUMMYAD            EXIT                                           
010586,000837: 
010587,000838: 04,2146           05516                           TC       DOWNFLAG                              
010588,000839: 04,2147           00124                           ADRES    3AXISFLG                              #  RESET 3-AXIS FLAG
010589,000840: 
010590,000841: 04,2150           34735                           CAF      LRBYBIT                               #  CLEAN UP THE R12 FLAGWORD.
010591,000842: 04,2151           54107                           TS       FLGWRD11                              
010592,000843: 
010593,000844: 04,2152           05516                           TC       DOWNFLAG                              #  INSURE THAT THE R04FLAG IS CLEAR.
010594,000845: 04,2153           00063                           ADRES    R04FLAG                               
010595,000846: 
010596,000847: 04,2154           05516                           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE.
010597,000848: 04,2155           00311                           ADRES    XOVINFLG                              
010598,000849: 04,2156           10775                           CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
010599,000850: 04,2157           12305                           TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
010600,000851: 
010601,000852: 04,2160           04457        POOH               TC       RELDSP                                #  RELEASE DISPLAY SYSTEM
010602,000853: 
010603,000854: 04,2161           35017                           CAF      PRIO5                                 #  SET VARIABLE RESTART PRIORITY FOR
010604,000855: 04,2162           55056                           TS       PHSPRDT2                              #  P00 INTEGRATION.
010605,000856: 
010606,000857: 04,2163           06011                           TC       CLRADMOD                              #  CLRADMOD DOES AN INHINT.
010607,000858: 
010608,000859: 04,2164           44753                           CS       NODOBIT                               #  TURN OFF NODOFLAG.
010609,000860: 04,2165           70076                           MASK     FLAGWRD2                              
010610,000861: 04,2166           54076                           TS       FLAGWRD2                              
010611,000862: 
010612,000863: 04,2167           34756                           CA       FIVE                                  #  SET RESTART FOR STATEINT1
010613,000864: 04,2170           54001                           TS       L                                     
010614,000865: 04,2171           40000                           COM                                            
010615,000866: 04,2172           52755                           DXCH     -PHASE2                               
010616,000867: 
010617,000868: 04,2173           42366                           CS       OCT700                                #  TURN OFF P20,P25,IMU IN USE FLAG
010618,000869: 04,2174           70074                           MASK     FLAGWRD0                              
010619,000870: 04,2175           54074                           TS       FLAGWRD0                              #                         RENDFLG
010620,000871: 
010621,000872: 04,2176           34755                           CAF      DNLADP00                              
010622,000873: 
010623,000874: 04,2177           54332        SEUDOPOO           TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST CODE
010624,000875: 04,2200           55324                           TS       AGSWORD                               #   (CURRENT LIST WILL BE COMPLETED BEFORE
010625,000876:                                                                                                  #     NEW ONE IS STARTED)
010626,000877: 04,2201           04674                           TC       IBNKCALL                              
010627,000878: 04,2202           75555                           CADR     ENGINOF1                              
010628,000879: 
010629,000880: 04,2203           04674                           TC       IBNKCALL                              #  INSURE ALLCOAST.
010630,000881: 04,2204           40204                           CADR     ALLCOAST                              #  DOES A RESTORDB.
010631,000882: 

Page 245

010633,000884: 
010634,000885: 04,2205           44775                           CS       OCT120                                #  TURN OFF TRACK, UPDATE FLAGS
010635,000886: 04,2206           55072                           TS       EBANKTEM                              
010636,000887: 04,2207           70075                           MASK     FLAGWRD1                              
010637,000888: 04,2210           54075                           TS       FLAGWRD1                              
010638,000889: 
010639,000890: 04,2211           04674                           TC       IBNKCALL                              #  KILL GROUPS 1,3,5,6
010640,000891: 04,2212           12652                           CADR     V37KLEAN                              
010641,000892: 
010642,000893: 04,2213           10775                           CCS      MMNUMBER                              #  IS IT POOH
010643,000894: 04,2214           12223                           TCF      RENDVOO                               #  NO
010644,000895: 04,2215           04674        GOMOD              TC       IBNKCALL                              #  REDUNDANT EXCEPT FOR GROUP 4
010645,000896: 04,2216           12647                           CADR     POOKLEAN                              
010646,000897: 
010647,000898: 04,2217           30775                           CA       MMNUMBER                              
010648,000899: 04,2220           55011                           TS       MODREG                                
010649,000900: 
010650,000901: 04,2221           04635        GOGOPROG           TC       POSTJUMP                              
010651,000902: 04,2222           12771                           CADR     GOPROG2                               
010652,000903: 
010653,000904: 04,2223           41011        RENDVOO            CS       MODREG                                #  IS CURRENT PROGRAM 22
010654,000905: 04,2224           62323                           AD       OCT26                                 
010655,000906: 04,2225           00006                           EXTEND                                         
010656,000907: 04,2226           12245                           BZF      RESET22                               #  YES - CLEAR RENDEZVOUS FLAG
010657,000908: 
010658,000909: 
010659,000910: 04,2227           40775                           CS       MMNUMBER                              #  IS NEW PROGRAM P22
010660,000911: 04,2230           62323                           AD       OCT26                                 
010661,000912: 04,2231           00006                           EXTEND                                         
010662,000913: 04,2232           12245                           BZF      RESET22                               
010663,000914: 
010664,000915: 
010665,000916: 04,2233           67745                           AD       NEG2                                  #  IS NEW PROGRAM = P20 OR P25
010666,000917: 04,2234           00006                           EXTEND                                         
010667,000918: 04,2235           12257                           BZF      RENDNOO                               #  YES
010668,000919: 04,2236           64756                           AD       FIVE                                  #  25
010669,000920: 04,2237           00006                           EXTEND                                         
010670,000921: 04,2240           12257                           BZF      RENDNOO                               #  YES
010671,000922: 
010672,000923: 04,2241           32321                           CA       OCT500                                #  NO, IS EITHER P20 OR P25 RUNNING
010673,000924: 04,2242           70074                           MASK     FLAGWRD0                              
010674,000925: 04,2243           10000                           CCS      A                                     
010675,000926: 04,2244           12254                           TCF      POOFIZZ                               #  YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
010676,000927: 
010677,000928: 04,2245           42366        RESET22            CS       OCT700                                #  CLEAR RENDEZVOUS,P25
010678,000929: 04,2246           70074                           MASK     FLAGWRD0                              #  AND IMU IN USE FLAGS
010679,000930: 04,2247           54074                           TS       FLAGWRD0                              
010680,000931: 04,2250           06011                           TC       CLRADMOD                              
010681,000932: 
010682,000933: 04,2251           00006        KILL2              EXTEND                                         #  NO, KILL 2
010683,000934: 04,2252           34755                           DCA      NEG0                                  
010684,000935: 

Page 246

010686,000937: 04,2253           52755                           DXCH     -PHASE2                               
010687,000938: 
010688,000939: 04,2254           32361        POOFIZZ            CAF      V37QCAD                               #  RESTART POINT FOR V37XEQ
010689,000940: 04,2255           54374                           TS       TEMPFLSH                              
010690,000941: 
010691,000942: 04,2256           12221                           TCF      GOGOPROG                              
010692,000943: 
010693,000944: 04,2257           41011        RENDNOO            CS       MODREG                                
010694,000945: 04,2260           66007                           AD       OCT24                                 
010695,000946: 04,2261           00006                           EXTEND                                         
010696,000947: 04,2262           12251                           BZF      KILL2                                 #  P20 OR P25 ON TOP OF P20 OR P25 -
010697,000948: 
010698,000949: 04,2263           64756                           AD       FIVE                                  
010699,000950: 04,2264           00006                           EXTEND                                         
010700,000951: 04,2265           12251                           BZF      KILL2                                 
010701,000952: 
010702,000953: 04,2266           32321                           CA       OCT500                                
010703,000954: 04,2267           70074                           MASK     FLAGWRD0                              
010704,000955: 04,2270           60775                           AD       MMNUMBER                              
010705,000956: 04,2271           40000                           COM                                            
010706,000957: 04,2272           62324                           AD       P20REG                                #  IS IT 20 AND IS RENDEZVOUS FLAG ON
010707,000958: 04,2273           00006                           EXTEND                                         
010708,000959: 04,2274           12301                           BZF      STATQUO                               #  YES
010709,000960: 04,2275           62322                           AD       OCT305                                #  IS IT 25 AND IS P25 BIT ON
010710,000961: 04,2276           00006                           EXTEND                                         
010711,000962: 04,2277           12301                           BZF      STATQUO                               #  YES, LEAVE AS IS
010712,000963: 04,2300           12251                           TCF      KILL2                                 
010713,000964: 
010714,000965: 04,2301           40075        STATQUO            CS       FLAGWRD1                              #  SET TRACKFLAG
010715,000966: 04,2302           74775                           MASK     OCT120                                #      UPDATE FLAG
010716,000967: 04,2303           26075                           ADS      FLAGWRD1                              
010717,000968: 
010718,000969: 04,2304           12215                           TCF      GOMOD                                 
010719,000970: 
010720,000971: 04,2305           32321        NOUVEAU            CAF      OCT500                                #  IS P20 OR P25 FLAG SET
010721,000972: 04,2306           70074                           MASK     FLAGWRD0                              
010722,000973: 04,2307           10000                           CCS      A                                     
010723,000974: 04,2310           12313                           TCF      +3                                    #  YES
010724,000975: 04,2311           05516                           TC       DOWNFLAG                              #  NO,RESET IMUINUSE FLAG
010725,000976: 04,2312           00007                           ADRES    IMUSE                                 
010726,000977: 
010727,000978: 04,2313           50774                           INDEX    MINDEX                                
010728,000979: 04,2314           32475                           CAF      DNLADMM1                              #  OBTAIN APPROPRIATE DOWNLIST ADDRESS
010729,000980: 
010730,000981: 04,2315           00004                           INHINT                                         
010731,000982: 04,2316           12177                           TCF      SEUDOPOO                              
010732,000983: 
010733,000984: 04,2317           04364        V37NONO            TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST
010734,000985: 
010735,000986: 04,2320           12066                           TCF      V37BAD                                
010736,000987: 

Page 247

010738,000989: 04,2321     4750               OCT00010           EQUALS   BIT4                                  
010739,000990: 04,2321           00500        OCT500             OCT      500                                   #  BITS 7 AND 9
010740,000991: 04,2322           00305        OCT305             OCT      305                                   
010741,000992: 04,2323           00026        OCT26              OCT      26                                    
010742,000993: 04,2324           00124        P20REG             OCT      124                                   
010743,000994: 
010744,000995: 04,2325           00004        V37XEQ             INHINT                                         
010745,000996: 04,2326           50774                           INDEX    MINDEX                                
010746,000997: 04,2327           32436                           CAF      PREMM1                                #  OBTAIN PRIO, EBANK, AND MM
010747,000998: 04,2330           55060                           TS       MMTEMP                                
010748,000999: 04,2331           54020                           TS       CYR                                   #  SHIFT RIGHT TO BITS 14 - 10
010749,001000: 
010750,001001: 04,2332           30020                           CA       CYR                                   
010751,001002: 04,2333           77724                           MASK     PRIO37                                
010752,001003: 04,2334           55062                           TS       PHSPRDT4                              #  PRESET GROUP 4 RESTART PRIORITY
010753,001004: 04,2335           54063                           TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
010754,001005: 
010755,001006: 04,2336           31060                           CA       MMTEMP                                #  OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
010756,001007: 04,2337           00006                           EXTEND                                         
010757,001008: 04,2340           74744                           MP       BIT8                                  
010758,001009: 04,2341           74757                           MASK     LOW3                                  
010759,001010: 04,2342           54001                           TS       L                                     
010760,001011: 
010761,001012: 04,2343           50774                           INDEX    MINDEX                                
010762,001013: 04,2344           32400                           CAF      FCADRMM1                              
010763,001014: 04,2345           55061                           TS       BASETEMP                              #  MAKE BBCON BY ADDING HI5 OF FCADR
010764,001015: 04,2346           74350                           MASK     HI5                                   
010765,001016: 04,2347           26001                           ADS      L                                     
010766,001017: 
010767,001018: 04,2350           31061                           CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
010768,001019: 04,2351           75012                           MASK     LOW10                                 
010769,001020: 04,2352           64741                           AD       BIT11                                 
010770,001021: 
010771,001022: 04,2353           05116                           TC       SPVAC                                 
010772,001023: 
010773,001024: 04,2354           31060        V37XEQC            CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
010774,001025: 04,2355           76073                           MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
010775,001026: 04,2356           05314                           TC       NEWMODEA                              #  PHSPRDT1)
010776,001027: 
010777,001028: 04,2357           04457                           TC       RELDSP                                #  RELEASE DISPLAY
010778,001029: 04,2360           05155                           TC       ENDOFJOB                              #  AND EXIT
010779,001030: 
010780,001031: 04,2361     5660               NEG7               EQUALS   OCT77770                              
010781,001032: 
010782,001033: 04,2361     1060               MMTEMP             EQUALS   PHSPRDT3                              
010783,001034: 04,2361     1061               BASETEMP           EQUALS   TBASE4                                
010784,001035: 04,2361           10330        V37QCAD            CADR     V37XEQ     +3                         
010785,001036: 04,2362           10145        ROOAD              CADR     DUMMYAD                               
010786,001037: 04,2363           10117        V37RETAD           CADR     V37RET                                
010787,001038: 04,2364           37667        OCT37667           OCT      37667                                 
010788,001039: 

Page 248

010790,001041: 04,2365           40072        OCT40072           OCT      40072                                 
010791,001042: 04,2366           00700        OCT700             OCT      700                                   
010792,001043: 
010793,001044: 04,2367           36244        SETUP71            CAF      THREE                                 
010794,001045: 04,2370           54002        SETUP70            TS       Q                                     
010795,001046: 04,2371           00006                           EXTEND                                         
010796,001047: 04,2372           32377                           DCA      P70CADR                               
010797,001048: 04,2373           60002                           AD       Q                                     
010798,001049: 04,2374           52006                           DTCB                                           
010799,001050: 
010800,001051: 04,2375           00106        DEC70              DEC      70         B-14                       
010801,001052: 04,2376  E7,1516                                  EBANK=   R                                     
010802,001053: 04,2376           02166 42067  P70CADR            2CADR    P70                                   
010803,001054:                                                                                                  #  FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH
010804,001055:                                                                                                  #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT
010805,001056:                                                                                                  #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
010806,001057: 
010807,001058:                                                                                                  #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
010808,001059: 
010809,001060:                                                                                                  #           THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
010810,001061:                                                                                                  #  THE MAJOR MODE.   FOR EXAMPLE,
010811,001062: 
010812,001063:                                                                                                  #                                          FCADRMM1 FCADR   P79             START OF P 79
010813,001064:                                                                                                  #                                                   FCADR   PROG18          START OF P 18
010814,001065:                                                                                                  #                                                   FCADR   P01             START OF P 01
010815,001066: 
010816,001067:                                                                                                  #  NOTE,    THE FIRST ENTRY MUST BE LABLED FCADRMM1.
010817,001068:                                                                                                  #  ----
010818,001069: 
010819,001070: 04,2400           71524        FCADRMM1           FCADR    P79                                   
010820,001071: 04,2401           71274                           FCADR    P78                                   
010821,001072: 04,2402           26207                           FCADR    P76                                   
010822,001073: 04,2403           72673                           FCADR    P75                                   
010823,001074: 04,2404           72513                           FCADR    P74                                   
010824,001075: 04,2405           72164                           FCADR    P73                                   
010825,001076: 04,2406           72031                           FCADR    P72                                   
010826,001077: 04,2407           62172                           FCADR    LANDJUNK                              
010827,001078: 04,2410           64772                           FCADR    P63LM                                 
010828,001079: 04,2411           33317                           FCADR    P57                                   
010829,001080: 04,2412           32050                           FCADR    PROG52                                
010830,001081: 04,2413           31340                           FCADR    P51                                   
010831,001082: 04,2414           75436                           FCADR    P47LM                                 
010832,001083: 04,2415           75410                           FCADR    P42LM                                 
010833,001084: 04,2416           75272                           FCADR    P41LM                                 
010834,001085: 04,2417           75147                           FCADR    P40LM                                 
010835,001086: 04,2420           71517                           FCADR    P39                                   
010836,001087: 04,2421           71271                           FCADR    P38                                   
010837,001088: 04,2422           72667                           FCADR    P35                                   
010838,001089: 04,2423           72511                           FCADR    P34                                   
010839,001090: 

Page 249

010841,001092: 04,2424           72162                           FCADR    P33                                   
010842,001093: 04,2425           72027                           FCADR    P32                                   
010843,001094: 04,2426           72414                           FCADR    P31                                   
010844,001095: 04,2427           72000                           FCADR    P30                                   
010845,001096: 04,2430           50427                           FCADR    PROG25                                
010846,001097: 04,2431           50022                           FCADR    PROG22                                
010847,001098: 04,2432           51402                           FCADR    PROG21                                
010848,001099: 04,2433           50022                           FCADR    PROG20                                
010849,001100: 04,2434           60006                           FCADR    P12LM                                 
010850,001101: 04,2435           77641                           FCADR    P06                                   
010851,001102:                                                                                                  #           THE PREMM TABLE CONTAINS THE E-BANK,MAJOR MODE, AND PRIORITY
010852,001103:                                                                                                  #  INFORMATION, IT IS IN THE FOLLOWING FORM,
010853,001104: 
010854,001105:                                                                                                  #           PPP PPE EEM MMM MMM
010855,001106: 
010856,001107:                                                                                                  #           WHERE THE 7 M BITS CONTAIN THE MAJOR MODE NUMBER
010857,001108:                                                                                                  #                      3 E BITS CONTAIN THE E-BANK NUMBER
010858,001109:                                                                                                  #                      5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
010859,001110:                                                                                                  #                          TO BE STARTED
010860,001111: 
010861,001112:                                                                                                  #           FOR EXAMPLE,
010862,001113: 
010863,001114:                                                                                                  #                                          PREMM1   OCT     67213           PRIORITY      33
010864,001115:                                                                                                  #                                                                           E-BANK         5
010865,001116:                                                                                                  #                                                                           MAJOR MODE    11
010866,001117:                                                                                                  #                                                   OCT     25437           PRIORITY       12
010867,001118:                                                                                                  #                                                                           E-BANK         6
010868,001119:                                                                                                  #                                                                           MAJOR MODE    31
010869,001120: 
010870,001121:                                                                                                  #  NOTE,    THE FIRST ENTRY MUST BE LABELED PREMM1
010871,001122: 04,2436           27717        PREMM1             OCT      27717                                 #  MM 79  EBANK 7  PRIO 13
010872,001123: 04,2437           27716                           OCT      27716                                 #  MM 78  EBANK 7  PRIO 13
010873,001124: 04,2440           27714                           OCT      27714                                 #  MM 76  EBANK 7  PRIO 13
010874,001125: 04,2441           27713                           OCT      27713                                 #  MM 75  EBANK 7  PRIO 13
010875,001126: 04,2442           27712                           OCT      27712                                 #  MM 74  EBANK 7  PRIO 13
010876,001127: 04,2443           27711                           OCT      27711                                 #  MM 73  EBANK 7  PRIO 13
010877,001128: 04,2444           27710                           OCT      27710                                 #  MM 72  EBANK 7  PRIO 13
010878,001129: 04,2445           27704                           OCT      27704                                 #  MM 68  EBANK 7  PRIO 13
010879,001130: 04,2446           27677                           OCT      27677                                 #  MM 63  EBANK 7  PRIO 13
010880,001131: 04,2447           27271                           OCT      27271                                 #  MM 57  EBANK 5  PRIO 13
010881,001132: 04,2450           27264                           OCT      27264                                 #  MM 52  EBANK 5  PRIO 13
010882,001133: 04,2451           27263                           OCT      27263                                 #  MM 51  EBANK 5  PRIO 13
010883,001134: 04,2452           27657                           OCT      27657                                 #  MM 47  EBANK 7  PRIO 13
010884,001135: 04,2453           27652                           OCT      27652                                 #  MM 42  EBANK 7  PRIO 13
010885,001136: 04,2454           27651                           OCT      27651                                 #  MM 41  EBANK 7  PRIO 13
010886,001137: 04,2455           27650                           OCT      27650                                 #  MM 40  EBANK 7  PRIO 13
010887,001138: 04,2456           27647                           OCT      27647                                 #  MM 39  EBANK 7  PRIO 13
010888,001139: 04,2457           27646                           OCT      27646                                 #  MM 38  EBANK 7  PRIO 13
010889,001140: 04,2460           27643                           OCT      27643                                 #  MM 35  EBANK 7  PRIO 13
010890,001141: 04,2461           27642                           OCT      27642                                 #  MM 34  EBANK 7  PRIO 13
010891,001142: 

Page 250

010893,001144: 04,2462           27641                           OCT      27641                                 #  MM 33  EBANK 7  PRIO 13
010894,001145: 04,2463           27640                           OCT      27640                                 #  MM 32  EBANK 7  PRIO 13
010895,001146: 04,2464           27637                           OCT      27637                                 #  MM 31  EBANK 7  PRIO 13
010896,001147: 04,2465           27636                           OCT      27636                                 #  MM 30  EBANK 7  PRIO 13
010897,001148: 04,2466           27631                           OCT      27631                                 #  MM 25  EBANK 7  PRIO 13
010898,001149: 04,2467           27626                           OCT      27626                                 #  MM 22  EBANK 7  PRIO 13
010899,001150: 04,2470           27625                           OCT      27625                                 #  MM 21  EBANK 7  PRIO 13
010900,001151: 04,2471           27624                           OCT      27624                                 #  MM 20  EBANK 7  PRIO 13
010901,001152: 04,2472           27614                           OCT      27614                                 #  MM 12  EBANK 7  PRIO 13
010902,001153: 04,2473           27006                           OCT      27006                                 #  MM 06  EBANK 4  PRIO 13
010903,001154: 
010904,001155:                                                                                                  #  NOTE,     THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
010905,001156:                                                                                                  #  ----      THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES(EXCEPT P00)
010906,001157:                                                                                                  #            THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
010907,001158: 
010908,001159: 04,2474           00035        NOV37MM            DEC      29         B-14                       #  MM'S -1
010909,001160: 
010910,001161: 04,2475           00002        DNLADMM1           ADRES    RENDEZVU                              #  P79
010911,001162: 04,2476           00002                           ADRES    RENDEZVU                              #  P78
010912,001163: 04,2477           00002                           ADRES    RENDEZVU                              
010913,001164: 04,2500           00002                           ADRES    RENDEZVU                              #  P75
010914,001165: 04,2501           00002                           ADRES    RENDEZVU                              #  P74
010915,001166: 04,2502           00002                           ADRES    RENDEZVU                              #  P73
010916,001167: 04,2503           00002                           ADRES    RENDEZVU                              #  P72
010917,001168: 04,2504           00004                           ADRES    DESASCNT                              #  P68
010918,001169: 04,2505           00004                           ADRES    DESASCNT                              #  P63
010919,001170: 04,2506           00005                           ADRES    LUNRSALN                              #  P57
010920,001171: 04,2507           00000                           ADRES    COSTALIN                              #  P52
010921,001172: 04,2510           00000                           ADRES    COSTALIN                              #  P51
010922,001173: 04,2511           00003                           ADRES    ORBMANUV                              #  P47
010923,001174: 04,2512           00003                           ADRES    ORBMANUV                              #  P42
010924,001175: 04,2513           00003                           ADRES    ORBMANUV                              #  P41
010925,001176: 04,2514           00003                           ADRES    ORBMANUV                              #  P40
010926,001177: 04,2515           00002                           ADRES    RENDEZVU                              #  P39
010927,001178: 04,2516           00002                           ADRES    RENDEZVU                              #  P38
010928,001179: 04,2517           00002                           ADRES    RENDEZVU                              #  P35
010929,001180: 04,2520           00002                           ADRES    RENDEZVU                              #  P34
010930,001181: 04,2521           00002                           ADRES    RENDEZVU                              #  P33
010931,001182: 04,2522           00002                           ADRES    RENDEZVU                              #  P32
010932,001183: 04,2523           00002                           ADRES    RENDEZVU                              #  P31LM
010933,001184: 04,2524           00002                           ADRES    RENDEZVU                              #  P30
010934,001185: 04,2525           00002                           ADRES    RENDEZVU                              #  P25
010935,001186: 04,2526           00005                           ADRES    LUNRSALN                              #  P22
010936,001187: 04,2527           00002                           ADRES    RENDEZVU                              #  P21
010937,001188: 04,2530           00002                           ADRES    RENDEZVU                              #  P20
010938,001189: 04,2531           00004                           ADRES    DESASCNT                              #  P12
010939,001190: 04,2532           00000                           ADRES    COSTALIN                              #  P06
010940,001191: 04,2533     4755               DNLADP00           =        ZERO                                  
010941,001192: 04,2533                        COSTALIN           =        0                                     
010942,001193: 04,2533                        AGSUPDAT           =        1                                     
010943,001194: 04,2533                        RENDEZVU           =        2                                     
010944,001195: 

Page 251

010946,001197: 04,2533                        ORBMANUV           =        3                                     
010947,001198: 04,2533                        DESASCNT           =        4                                     
010948,001199: 04,2533                        LUNRSALN           =        5                                     
010949,001200: 
010950,001201: 13,2026                                           BANK     13                                    
010951,001202: 13,2000                                           SETLOC   INTINIT                               
010952,001203: 13,2000                                           BANK                                           
010953,001204: 
010954,001205: 13,2026                                           COUNT*   $$/INTIN                              
010955,001206: 
010956,001207: 13,2026  E3,1554                                  EBANK=   RRECTCSM                              
010957,001208: 
010958,001209:                                                                                                  #  THIS ROUTINE DOES THE POO INTEGRATION
010959,001210: 
010960,001211: 13,2026           43014        STATEUP            SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
010961,001212: 13,2027           01474                                    VINTFLAG                              
010962,001213: 13,2030           04347                                    SURFFLAG                              #  ALSO 6X6 W-MATRIX IF LM ON LUNAR
010963,001214: 13,2031           26036                                    DOINT                                 #       SURFACE AND W-MATRIX VALID
010964,001215: 13,2032           43014                           BOF      SET                                   #       FOR RENDEZVOUS NAVIGATION.
010965,001216: 13,2033           02756                                    RENDWFLG                              
010966,001217: 13,2034           26036                                    DOINT                                 
010967,001218: 13,2035           01476                                    DIM0FLAG                              
010968,001219: 13,2036           45014        DOINT              CLEAR    CALL                                  
010969,001220: 13,2037           01667                                    PRECIFLG                              #  ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
010970,001221: 13,2040           27134                                    INTEGRV                               #  WHEN MODREG = 0
010971,001222: 
010972,001223: 13,2041           71214                           BON      DLOAD                                 
010973,001224: 13,2042           04307                                    SURFFLAG                              
010974,001225: 13,2043           26063                                    NO-INT                                
010975,001226: 13,2044           01571                                    TETCSM                                
010976,001227: 13,2045           34041                           STCALL   TDEC1                                 
010977,001228: 13,2046           27412                                    INTSTALL                              
010978,001229: 13,2047           45014                           CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
010979,001230: 13,2050           01674                                    VINTFLAG                              
010980,001231: 13,2051           26644                                    SETIFLGS                              
010981,001232: 13,2052           77614                           BOF                                            #  ALSO 9X9 W-MATRIX IF W IS VALID
010982,001233: 13,2053           02756                                    RENDWFLG                              
010983,001234: 13,2054           26060                                    DOINT2                                
010984,001235: 13,2055           43014                           SET      SET                                   
010985,001236: 13,2056           01476                                    DIM0FLAG                              
010986,001237: 13,2057           01475                                    D6OR9FLG                              
010987,001238: 13,2060           45014        DOINT2             SET      CALL                                  
010988,001239: 13,2061           01467                                    PRECIFLG                              #  DISENGAGE 4 TIME STEP LOGIC IN INTEG.
010989,001240: 13,2062           27134                                    INTEGRV                               
010990,001241: 13,2063           77614        NO-INT             CLRGO                                          
010991,001242: 13,2064           01236                                    NODOFLAG                              
010992,001243: 13,2065           26632                                    ENDINT                                
010993,001244: 
010994,001245: 
010995,001246:                                                                                                  #  THISVINT IS CALLED BY MIDTOAV1 AND 2
010996,001247: 

Page 252

010998,001249: 13,2066           43414        THISVINT           CLEAR    RVQ                                   
010999,001250: 13,2067           01674                                    VINTFLAG                              

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