Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

008717,000002:                                                                                                  ## Copyright:   Public domain.
008718,000003:                                                                                                  ## Filename:    FRESH_START_AND_RESTART.agc
008719,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
008720,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the second release
008721,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
008722,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
008723,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
008724,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
008725,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
008726,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
008727,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
008728,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
008729,000014:                                                                                                  ##              the original YUL assembler.
008730,000015:                                                                                                  ##
008731,000016:                                                                                                  ## Assembler:   yaYUL
008732,000017:                                                                                                  ## Contact:     Hartmuth Gutsche <hgutsche@xplornet.com>.
008733,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
008734,000019:                                                                                                  ## Pages:       211-237
008735,000020:                                                                                                  ## Mod history: 2009-05-19 HG   Transcribed from page images.
008736,000021:                                                                                                  ##              2010-12-31 JL   Fixed page number comments.
008737,000022:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
008738,000023:                                                                                                  ##              2011-01-06 JL   Added missing comment characters.
008739,000024:                                                                                                  ##              2016-12-13 RSB  Proofed text comments with octopus/ProoferComments
008740,000025:                                                                                                  ##                              and corrected the errors found.
008741,000026:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
008742,000027:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
008743,000028:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1, and modified to make
008744,000029:                                                                                                  ##                              equivalent to LMY99 Rev 0 / Luminary Rev 99.
008745,000030:                                                                                                  ##              2017-08-15 RSB  Comment-text fixes identified in proofing vs AP11ROPE.
008746,000031:                                                                                                  ##              2017-08-19 MAS  Fixed a label error found transcribing Zerlina 56.
008747,000032: 
008748,000033:                                                                                                  ## This source code has been transcribed or otherwise adapted from
008749,000034:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
008750,000035:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
008751,000036:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
008752,000037:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
008753,000038:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
008754,000039:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
008755,000040:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
008756,000041:                                                                                                  ## actually created.
008757,000042:                                                                                                  ##
008758,000043:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
008759,000044:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
008760,000045:                                                                                                  ## the listing from which it was transcribed. It has been verified to
008761,000046:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
008762,000047:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
008763,000048:                                                                                                  ##
008764,000049:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
008765,000050:                                                                                                  ##
008766,000051:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
008767,000052: 

Page 211

008769,000054: 10,2000                                           BANK     10                                    
008770,000055: 05,2000                                           SETLOC   FRANDRES                              
008771,000056: 05,2000                                           BANK                                           
008772,000057: 
008773,000058: 05,2447  E3,1400                                  EBANK=   LST1                                  
008774,000059: 
008775,000060: 05,2447                                           COUNT*   $$/START                              #  FRESH AND RESTART
008776,000061: 05,2447           00004        SLAP1              INHINT                                         #  FRESH START.  COMES HERE FROM PINBALL.
008777,000062: 05,2450           03107                           TC       STARTSUB                              #  SUBROUTINE DOES MOST OF THE WORK.
008778,000063: 
008779,000064: 05,2451           12456        STARTSW            TCF      SKIPSIM                               #  PATCH....TCF STARTSIM...FOR SIMULATION
008780,000065: 05,2452           34736        STARTSIM           CAF      BIT14                                 
008781,000066: 05,2453           05105                           TC       FINDVAC                               
008782,000067: 05,2454           77777        SIM2CADR           OCT      77777                                 #  PATCH 2CADR (AND EBANK DESIGNATION) OF
008783,000068: 05,2455           77777                           OCT      77777                                 #  SIMULATION START ADDRESS.
008784,000069: 
008785,000070: 05,2456           31036        SKIPSIM            CA       DSPTAB     +11D                       #  TURN OFF ALL DSPTAB +11D LAMPS
008786,000071: 05,2457           74771                           MASK     BITS4&6                               #  EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
008787,000072: 05,2460           64735                           AD       BIT15                                 #  REQUESTED FRESH START.
008788,000073: 05,2461           55036                           TS       DSPTAB     +11D                       
008789,000074: 
008790,000075: 05,2462           34740                           CA       BIT12                                 #  INITIALIZE DOWNLINK ERASABLE MEMORY
008791,000076: 05,2463           54333                           TS       DUMPCNT                               #  DUMP FOR ONE PASS.
008792,000077: 
008793,000078: 05,2464           34755                           CA       ZERO                                  
008794,000079: 05,2465           55365                           TS       ERCOUNT                               
008795,000080: 05,2466           54375                           TS       FAILREG                               
008796,000081: 05,2467           54376                           TS       FAILREG    +1                         
008797,000082: 05,2470           54377                           TS       FAILREG    +2                         
008798,000083: 05,2471           54320                           TS       REDOCTR                               
008799,000084: 
008800,000085: 05,2472           44644                           CS       PRIO12                                
008801,000086: 05,2473           55313                           TS       DSRUPTSW                              
008802,000087: 
008803,000088: 05,2474           34736        DOFSTART           CAF      BIT14                                 #  INSURE ENGINE IS OFF.
008804,000089: 05,2475           00006                           EXTEND                                         
008805,000090: 05,2476           01011                           WRITE    DSALMOUT                              
008806,000091: 05,2477           44755                           CS       ZERO                                  
008807,000092: 05,2500           54055                           TS       THRUST                                
008808,000093: 
008809,000094: 05,2501           34751        DOFSTRT1           CAF      FOUR                                  
008810,000095: 05,2502           55273                           TS       RCSFLAGS                              #  INITIALIZE ATTITUDE ERROR DISPLAYS.
008811,000096: 05,2503           34355                           CA       PRIO30                                
008812,000097: 05,2504           54366                           TS       RESTREG                               #  SUPER BANK PRIORITY FOR DISPLAYS.
008813,000098: 
008814,000099: 05,2505           34755                           CA       ZERO                                  
008815,000100: 05,2506           55246                           TS       ABDELV                                #  DAP INITIALIZATION
008816,000101: 05,2507           54371                           TS       NVSAVE                                
008817,000102: 05,2510           55072                           TS       EBANKTEM                              

Page 212

008819,000104: 05,2511           55262                           TS       CH5MASK                               
008820,000105: 05,2512           55263                           TS       CH6MASK                               
008821,000106: 05,2513           55276                           TS       PVALVEST                              #  FOR RCS FAILURE MONITOR
008822,000107: 05,2514           55360                           TS       ERESTORE                              #  ***** MUST NOT BE REMOVED FROM DOFSTART
008823,000108: 05,2515           55362                           TS       SMODE                                 #  ***** MUST NOT BE REMOVED FROM DOFSTART
008824,000109: 05,2516           54332                           TS       DNLSTCOD                              #  SELECT POO DOWNLIST
008825,000110: 05,2517           55324                           TS       AGSWORD                               #  ALLOW AGS INITIALIZATION
008826,000111: 05,2520           55501                           TS       UPSVFLAG                              #  ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
008827,000112: 05,2521           00006                           EXTEND                                         
008828,000113: 05,2522           01005                           WRITE    CHAN5                                 #  TURN OFF RCS JETS.
008829,000114: 05,2523           00006                           EXTEND                                         
008830,000115: 05,2524           01006                           WRITE    CHAN6                                 #  TURN OFF RCS JETS.
008831,000116: 05,2525           00006                           EXTEND                                         
008832,000117: 05,2526           01012                           WRITE    CHAN12                                
008833,000118: 05,2527           00006                           EXTEND                                         
008834,000119: 05,2530           01013                           WRITE    CHAN13                                
008835,000120: 05,2531           00006                           EXTEND                                         
008836,000121: 05,2532           01014                           WRITE    CHAN14                                
008837,000122: 05,2533           41036                           CS       DSPTAB     +11D                       
008838,000123: 05,2534           74771                           MASK     BITS4&6                               
008839,000124: 05,2535           10000                           CCS      A                                     
008840,000125: 05,2536           02542                           TC       +4                                    
008841,000126: 05,2537           34771                           CA       BITS4&6                               
008842,000127: 05,2540           00006                           EXTEND                                         #  THE IMU WAS IN COARSE ALIGN IN GIMBAL
008843,000128: 05,2541           05012                           WOR      CHAN12                                #  LOCK, SO PUT IT BACK INTO COARSE ALIGN.
008844,000129: 05,2542           02643                 +4        TC       MR.KLEAN                              
008845,000130: 
008846,000131: 05,2543           44755                           CS       ZERO                                  
008847,000132: 05,2544           55011                           TS       MODREG                                
008848,000133: 
008849,000134: 05,2545           33362                           CAF      IM30INIF                              #  FRESH START IMU INITIALIZATION.
008850,000135: 05,2546           55302                           TS       IMODES30                              
008851,000136: 
008852,000137: 05,2547           33067                           CAF      MAXDB                                 
008853,000138: 05,2550           55346                           TS       DB                                    
008854,000139: 05,2551           34751                           CAF      FOUR                                  
008855,000140: 05,2552           55325                           TS       RATEINDX                              #  INITIALIZE KALCMANU RATE
008856,000141: 05,2553           33063                           CA       BOOLSTRT                              
008857,000142: 05,2554           54111                           TS       DAPBOOLS                              
008858,000143: 05,2555           35015                           CAF      EBANK6                                
008859,000144: 05,2556           54003                           TS       EBANK                                 
008860,000145: 05,2557  E6,1400                                  EBANK=   HIASCENT                              
008861,000146: 
008862,000147: 05,2557           33060                           CA       STIKSTRT                              
008863,000148: 05,2560           55444                           TS       STIKSENS                              
008864,000149: 05,2561           33061                           CA       RATESTRT                              
008865,000150: 05,2562           55476                           TS       -RATEDB                               
008866,000151: 05,2563           32000                           CAF      FULLAPS                               #  INITIALIZE MAXIMUM ASCENT MASS FOR USE
008867,000152: 05,2564           55400                           TS       HIASCENT                              #    BY 1/ACCS UNTIL THE PAD LOAD IS DONE.
008868,000153: 05,2565           33064                           CA       77001OCT                              #      LOAD DAP FILTER GAINS PAD LOAD

Page 213

008870,000155: 05,2566           55403                           TS       DKTRAP                                #        TO BEST PRESENT ESTIMATE OF GOODIES
008871,000156: 05,2567           55406                           TS       LMTRAP                                #  .14 DEG
008872,000157: 05,2570           33065                           CA       60DEC                                 
008873,000158: 05,2571           55405                           TS       DKKAOSN                               
008874,000159: 05,2572           55410                           TS       LMKAOSN                               #  6 SEC GAIN FOR ALPHA
008875,000160: 05,2573           34755                           CA       ZERO                                  
008876,000161: 05,2574           55407                           TS       LMOMEGAN                              #  UNITY GAIN
008877,000162: 05,2575           34363                           CA       TEN                                   
008878,000163: 05,2576           55404                           TS       DKOMEGAN                              #  1 SEC GAIN FOR OMEGA
008879,000164: 05,2577           34744                           CAF      BIT8                                  #  SET DOCKED DB TO 1.4 DEG.  MAY OVERWRITE
008880,000165: 05,2600           55411                           TS       DKDB                                  #        WITH PAD LOAD.
008881,000166: 05,2601           35026                           CAF      IM33INIT                              
008882,000167: 05,2602           64746                           AD       BIT6                                  #  KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
008883,000168: 05,2603           55303                           TS       IMODES33                              #        OFF UNTIL ICDU ZERO IS FINISHED.
008884,000169: 
008885,000170: 05,2604           00006                           EXTEND                                         #  INITIALIZE SWITCHES ONLY ON FRESH START.
008886,000171: 05,2605           33367                           DCA      SWINIT                                
008887,000172: 05,2606           52075                           DXCH     STATE                                 
008888,000173: 05,2607           33370                           CA       SWINIT     +2                         
008889,000174: 05,2610           54076                           TS       STATE      +2                         
008890,000175: 05,2611           34737                           CA       REFSMBIT                              #  DO NOT ALTER REFSMFLG ON FRESH START.
008891,000176: 05,2612           70077                           MASK     STATE      +3                         
008892,000177: 05,2613           63371                           AD       SWINIT     +3                         
008893,000178: 05,2614           54077                           TS       STATE      +3                         
008894,000179: 05,2615           00006                           EXTEND                                         
008895,000180: 05,2616           33373                           DCA      SWINIT     +4                         
008896,000181: 05,2617           52101                           DXCH     STATE      +4                         
008897,000182: 05,2620           00006                           EXTEND                                         
008898,000183: 05,2621           33375                           DCA      SWINIT     +6                         
008899,000184: 05,2622           52103                           DXCH     STATE      +6                         
008900,000185: 05,2623           34744                           CA       SURFFBIT                              #  DO NOT ALTER  SURFFLAG ON FRESH START.
008901,000186: 05,2624           64740                           AD       CMOONBIT                              #                CMOONFLG
008902,000187: 05,2625           64741                           AD       LMOONBIT                              #                LMOONFLG
008903,000188: 05,2626           70104                           MASK     STATE      +8D                        
008904,000189: 05,2627           63376                           AD       SWINIT     +8D                        
008905,000190: 05,2630           54104                           TS       STATE      +8D                        
008906,000191: 05,2631           33377                           CA       SWINIT     +9D                        
008907,000192: 05,2632           54105                           TS       STATE      +9D                        
008908,000193: 05,2633           34737                           CA       APSFLBIT                              #  DO NOT ALTER APSFLAG ON FRESH START.
008909,000194: 05,2634           70106                           MASK     STATE      +10D                       
008910,000195: 05,2635           63400                           AD       SWINIT     +10D                       
008911,000196: 05,2636           54106                           TS       STATE      +10D                       
008912,000197: 05,2637           33401                           CAF      SWINIT     +11D                       
008913,000198: 05,2640           54107                           TS       STATE      +11D                       
008914,000199: 
008915,000200: 05,2641           04635        ENDRSTRT           TC       POSTJUMP                              #  NOW IN ANOTHER BANK.
008916,000201: 05,2642           03210                           CADR     DUMMYJOB   +2                         #  PICKS UP AT RELINT.   (DONT ZERO NEWJOB)
008917,000202: 
008918,000203: 05,2643           00004        MR.KLEAN           INHINT                                         

Page 214

008920,000205: 05,2644           00006                           EXTEND                                         
008921,000206: 05,2645           34755                           DCA      NEG0                                  
008922,000207: 05,2646           52755                           DXCH     -PHASE2                               
008923,000208: 05,2647           00006        P00KLEAN           EXTEND                                         
008924,000209: 05,2650           34755                           DCA      NEG0                                  
008925,000210: 05,2651           52761                           DXCH     -PHASE4                               
008926,000211: 05,2652           00006        V37KLEAN           EXTEND                                         
008927,000212: 05,2653           34755                           DCA      NEG0                                  
008928,000213: 05,2654           52753                           DXCH     -PHASE1                               
008929,000214: 05,2655           00006                           EXTEND                                         
008930,000215: 05,2656           34755                           DCA      NEG0                                  
008931,000216: 05,2657           52757                           DXCH     -PHASE3                               
008932,000217: 05,2660           00006                           EXTEND                                         
008933,000218: 05,2661           34755                           DCA      NEG0                                  
008934,000219: 05,2662           52763                           DXCH     -PHASE5                               
008935,000220: 05,2663           00006                           EXTEND                                         
008936,000221: 05,2664           34755                           DCA      NEG0                                  
008937,000222: 05,2665           52765                           DXCH     -PHASE6                               
008938,000223: 05,2666           00002                           TC       Q                                     
008939,000224: 

Page 215

008941,000226:                                                                                                  #  COMES HERE FROM LOCATION 4000, GOJAM. RESTART ANY PROGRAMS WHICH MAY HAVE BEEN RUNNING AT THE TIME
008942,000227: 
008943,000228: 05,2667  E3,1400                                  EBANK=   LST1                                  
008944,000229: 05,2667           24320        GOPROG             INCR     REDOCTR                               #  ADVANCE RESTART COUNTER.
008945,000230: 
008946,000231: 05,2670           22002                           LXCH     Q                                     
008947,000232: 05,2671           00006                           EXTEND                                         
008948,000233: 05,2672           04007                           ROR      SUPERBNK                              
008949,000234: 05,2673           53433                           DXCH     RSBBQ                                 
008950,000235: 05,2674           31036                           CA       DSPTAB     +11D                       
008951,000236: 05,2675           74750                           MASK     BIT4                                  
008952,000237: 05,2676           00006                           EXTEND                                         
008953,000238: 05,2677           12703                           BZF      +4                                    
008954,000239: 05,2700           64746                           AD       BIT6                                  #  SET ERROR COUNTER ENABLE
008955,000240: 05,2701           00006                           EXTEND                                         
008956,000241: 05,2702           05012                           WOR      CHAN12                                #  ISS WAS IN COARS ALIGN SO GO BACK TO
008957,000242: 05,2703           03070        BUTTONS            TC       LIGHTSET                              
008958,000243: 
008959,000244:                                                                                                  #  ERASCHK TEMPORARILY STORES THE CONTENTS OF TWO ERASABLE LOCATIONS, X
008960,000245:                                                                                                  #  AND X+1 INTO SKEEP5 AND SKEEP6.  IT ALSO STORES X INTO SKEEP7 AND
008961,000246:                                                                                                  #  ERESTORE.  IF ERASCHK IS INTERRUPTED BY A RESTART, C(ERESTORE) SHOULD
008962,000247:                                                                                                  #  EQUAL C(SKEEP7), AND BE A + NUMBER LESS THAN 2000 OCT.  OTHERWISE
008963,000248:                                                                                                  #  C(ERESTORE) SHOULD EQUAL +0.
008964,000249: 
008965,000250: 05,2704           34350                           CAF      HI5                                   
008966,000251: 05,2705           71360                           MASK     ERESTORE                              
008967,000252: 05,2706           00006                           EXTEND                                         
008968,000253: 05,2707           12711                           BZF      +2                                    #  IF ERESTORE NOT = +0 OR +N LESS THAN 2K,
008969,000254: 05,2710           13105                           TCF      NONAVKEY   +3                         #  DO FRESH START - E MEMORY MIGHT BE BAD
008970,000255: 05,2711           41360                           CS       ERESTORE                              
008971,000256: 05,2712           00006                           EXTEND                                         
008972,000257: 05,2713           12730                           BZF      DORSTART                              #  = +0 CONTINUE WITH RESTART.
008973,000258: 05,2714           61377                           AD       SKEEP7                                
008974,000259: 05,2715           00006                           EXTEND                                         
008975,000260: 05,2716           12720                           BZF      +2                                    #  = SKEEP7, RESTORE E MEMORY.
008976,000261: 05,2717           13105                           TCF      NONAVKEY   +3                         #  DO FRESH START - E MEMORY MIGHT BE BAD
008977,000262: 05,2720           31374                           CA       SKEEP4                                
008978,000263: 05,2721           54003                           TS       EBANK                                 #  EBANK OF E MEMORY THAT WAS UNDER TEST.
008979,000264: 05,2722           00006                           EXTEND                                         #  (NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN)
008980,000265: 05,2723           31376                           DCA      SKEEP5                                
008981,000266: 05,2724           51377                           INDEX    SKEEP7                                
008982,000267: 05,2725           52001                           DXCH     0000                                  #  E MEMORY RESTORED.
008983,000268: 05,2726           34755                           CA       ZERO                                  
008984,000269: 05,2727           55360                           TS       ERESTORE                              
008985,000270: 05,2730           03107        DORSTART           TC       STARTSUB                              #  DO INITIALIZATION AFTER ERASE RESTORE.
008986,000271: 
008987,000272: 05,2731           44736        SETINFL            CS       INTFLBIT                              
008988,000273: 05,2732           70106                           MASK     FLGWRD10                              
008989,000274: 05,2733           54106                           TS       FLGWRD10                              

Page 216

008991,000276: 05,2734           33364                           CA       9,6,4                                 #  LEAVE PROG ALARM, GIMBAL LOCK, NO ATT
008992,000277: 05,2735           71036                           MASK     DSPTAB     +11D                       #  LAMPS INTACT ON HARDWARE RESTART
008993,000278: 05,2736           64735                           AD       BIT15                                 
008994,000279: 05,2737           57036                           XCH      DSPTAB     +11D                       
008995,000280: 05,2740           33350                           CAF      IFAILINH                              #  LEAVE IMU FAILURE INHIBITS INTACT ON
008996,000281: 05,2741           71302                           MASK     IMODES30                              #  HARDWARE RESTART. RESET ALL FAILURE
008997,000282: 05,2742           63363                           AD       IM30INIR                              #  CODES.
008998,000283: 05,2743           55302                           TS       IMODES30                              
008999,000284: 
009000,000285: 05,2744           31324                           CA       AGSWORD                               #  BE SURE OF CORRECT DOWNLIST
009001,000286: 05,2745           54332                           TS       DNLSTCOD                              
009002,000287: 
009003,000288: 05,2746           34750                           CA       BIT4                                  #  TURN ON THROTTLE COUNTER
009004,000289: 05,2747           00006                           EXTEND                                         
009005,000290: 05,2750           05014                           WOR      CHAN14                                #  TURN ON THRUST DRIVE
009006,000291: 05,2751           40101                           CS       FLAGWRD5                              
009007,000292: 05,2752           74745                           MASK     ENGONBIT                              
009008,000293: 05,2753           10000                           CCS      A                                     
009009,000294: 05,2754           12761                           TCF      +5                                    
009010,000295: 05,2755           34737                           CAF      BIT13                                 
009011,000296: 05,2756           00006                           EXTEND                                         
009012,000297: 05,2757           05011                           WOR      DSALMOUT                              #  TURN ENGINE ON
009013,000298: 05,2760           12775                           TCF      GOPROG3                               
009014,000299: 05,2761           34736                 +5        CAF      BIT14                                 
009015,000300: 05,2762           00006                           EXTEND                                         
009016,000301: 05,2763           05011                           WOR      DSALMOUT                              #  TURN ENGINE OFF.
009017,000302: 05,2764           12775                           TCF      GOPROG3                               
009018,000303: 
009019,000304: 05,2765           00004        ENEMA              INHINT                                         
009020,000305: 05,2766           03124                           TC       STARTSB1                              
009021,000306: 05,2767           12771                           TCF      GOPROG2A                              
009022,000307: 05,2770           03146        GOPROG2            TC       STARTSB2                              
009023,000308: 05,2771           03070        GOPROG2A           TC       LIGHTSET                              
009024,000309: 05,2772           43066                           CS       RSFLGBTS                              #  CLEAR BITS 7 AND 14.
009025,000310: 05,2773           70106                           MASK     FLGWRD10                              
009026,000311: 05,2774           54106                           TS       FLGWRD10                              
009027,000312: 
009028,000313: 05,2775           34756        GOPROG3            CAF      NUMGRPS                               #  VERIFY PHASE TABLE AGREEMENTS
009029,000314: 05,2776           54161        PCLOOP             TS       MPAC       +5                         
009030,000315: 05,2777           60000                           DOUBLE                                         
009031,000316: 05,3000           00006                           EXTEND                                         
009032,000317: 05,3001           50000                           INDEX    A                                     
009033,000318: 05,3002           30753                           DCA      -PHASE1                               #  COMPLEMENT INTO A, DIRECT INTO L.
009034,000319: 05,3003           00006                           EXTEND                                         
009035,000320: 05,3004           06001                           RXOR     LCHAN                                 #  RESULT MUST BE -0 FOR AGREEMENT.
009036,000321: 05,3005           10000                           CCS      A                                     
009037,000322: 05,3006           13054                           TCF      PTBAD                                 #  RESTART FAILURE.
009038,000323: 05,3007           13054                           TCF      PTBAD                                 
009039,000324: 05,3010           13054                           TCF      PTBAD                                 

Page 217

009041,000326: 05,3011           10161                           CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
009042,000327: 05,3012           12776                           TCF      PCLOOP                                
009043,000328: 
009044,000329: 05,3013           54162                           TS       MPAC       +6                         #  SET TO +0.
009045,000330: 05,3014           05315                           TC       MMDSPLAY                              #  DISPLAY MAJOR MODE
009046,000331: 
009047,000332: 05,3015           00004                           INHINT                                         #  RELINT DONE IN MMDSPLAY
009048,000333: 
009049,000334: 05,3016           44736                           CS       DIDFLBIT                              #  CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
009050,000335: 05,3017           70075                           MASK     FLAGWRD1                              #  RE-INITIALIZE ITSELF IF IT HAD BEEN
009051,000336: 05,3020           54075                           TS       FLAGWRD1                              #  OPERATING AT THE TIME OF THE RESTART.
009052,000337: 
009053,000338: 05,3021           44740                           CS       RODFLBIT                              #  CLEAR RODFLAG.  IF P66 IS IN OPERATION
009054,000339: 05,3022           70075                           MASK     FLAGWRD1                              #        IT WILL RE-INITIALIZE ITSELF AND
009055,000340: 05,3023           54075                           TS       FLAGWRD1                              #        CONTINUE.
009056,000341: 
009057,000342: 05,3024           44741                           CS       P21FLBIT                              #  CLEAR P21 FLAG SO THAT P21 WILL COMPUTE
009058,000343: 05,3025           70074                           MASK     FLAGWRD0                              #  NEW BASE STATE VECTORS.
009059,000344: 05,3026           54074                           TS       FLAGWRD0                              
009060,000345: 
009061,000346: 05,3027           34756                           CAF      NUMGRPS                               #  SEE IF ANY GROUPS RUNNING.
009062,000347: 05,3030           54161        NXTRST             TS       MPAC       +5                         
009063,000348: 05,3031           60000                           DOUBLE                                         
009064,000349: 05,3032           50000                           INDEX    A                                     
009065,000350: 05,3033           10753                           CCS      PHASE1                                
009066,000351: 05,3034           13036                           TCF      PACTIVE                               #  PNZ - GROUP ACTIVE.
009067,000352: 05,3035           13043                           TCF      PINACT                                #  +0 - GROUP NOT RUNNING.
009068,000353: 
009069,000354: 05,3036           54154        PACTIVE            TS       MPAC                                  
009070,000355: 05,3037           24154                           INCR     MPAC                                  #  ABS OF PHASE.
009071,000356: 05,3040           24162                           INCR     MPAC       +6                         #  INDICATE GROUP DEMANDS PRESENT.
009072,000357: 05,3041           33062                           CA       RACTCADR                              
009073,000358: 05,3042           04622                           TC       SWCALL                                #  MUST RETURN TO SWRETURN.
009074,000359: 
009075,000360: 05,3043           10161        PINACT             CCS      MPAC       +5                         #  PROCESS ALL RESTART GROUPS.
009076,000361: 05,3044           13030                           TCF      NXTRST                                
009077,000362: 
009078,000363: 05,3045           10162                           CCS      MPAC       +6                         #  NO, CHECK PHASE ACTIVITY FLAG
009079,000364: 05,3046           12641                           TCF      ENDRSTRT                              #  PHASE ACTIVE
009080,000365: 05,3047           34735                           CAF      BIT15                                 #  IS MODE -0
009081,000366: 05,3050           71011                           MASK     MODREG                                
009082,000367: 05,3051           00006                           EXTEND                                         
009083,000368: 05,3052           16001                           BZF      GOTOPOOH                              #  NO
009084,000369: 05,3053           12641                           TCF      ENDRSTRT                              #  YES
009085,000370: 05,3054           05567        PTBAD              TC       ALARM                                 #  SET ALARM TO SHOW PHASE TABLE FAILURE.
009086,000371: 05,3055           01107                           OCT      1107                                  
009087,000372: 
009088,000373: 05,3056           12501                           TCF      DOFSTRT1                              
009089,000374:                                                                                                  # ******** ****** ******

Page 218

009091,000376:                                                                                                  #  DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
009092,000377: 
009093,000378: 05,3057     4737               OCT10000           =        BIT13                                 
009094,000379: 05,3057     4355               OCT30000           =        PRIO30                                
009095,000380: 05,3057           07777        OCT7777            OCT      7777                                  
009096,000381: 05,3060           32321        STIKSTRT           DEC      0.825268                              #  20 D/S MAXIMUM COMMANDED RATE
009097,000382: 05,3061           77445        RATESTRT           DEC      -218       B-14                       
009098,000383: 05,3062           03526        RACTCADR           CADR     RESTARTS                              
009099,000384: 05,3063           21312        BOOLSTRT           OCT      21312                                 
009100,000385: 05,3064           77001        77001OCT           OCT      77001                                 #  .14 DEG SCALED AT 4.5 DEG
009101,000386: 05,3065           00074        60DEC              DEC      60         B-14                       
009102,000387: 05,3066           20100        RSFLGBTS           OCT      20100                                 
009103,000388: 05,3067           03434        MAXDB              OCTAL    03434                                 #  5 DEG ATTITUDE DEADBAND, SCALED AT 45.
009104,000389: 
009105,000390: 05,3070           34747        LIGHTSET           CAF      BIT5                                  #  CHECK FOR MARK REJECT AND ERROR RESET
009106,000391: 05,3071           00006                           EXTEND                                         
009107,000392: 05,3072           02016                           RAND     NAVKEYIN                              
009108,000393: 05,3073           00006                           EXTEND                                         
009109,000394: 05,3074           13102                           BZF      NONAVKEY                              #  NO MARK REJECT
009110,000395: 05,3075           00006                           EXTEND                                         
009111,000396: 05,3076           00015                           READ     MNKEYIN                               #  CHECK IF KEYS 2M AND 5M ON
009112,000397: 05,3077           63361                           AD       -ELR                                  #  MAIN DSKY KEYCODE (BITS 1-5)
009113,000398: 05,3100           00006                           EXTEND                                         
009114,000399: 05,3101           13103                           BZF      +2                                    
009115,000400: 
009116,000401: 05,3102           00002        NONAVKEY           TC       Q                                     
009117,000402: 
009118,000403: 05,3103           03107                           TC       STARTSUB                              
009119,000404: 05,3104           12474                           TCF      DOFSTART                              
009120,000405: 05,3105           03107                 +3        TC       STARTSUB                              
009121,000406: 05,3106           12501                           TCF      DOFSTRT1                              #  DO FRESH START BUT DON'T TOUCH ENGINE
009122,000407: 

Page 219

009124,000409:                                                                                                  #  INITIALIZATION COMMON TO BOTH FRESH START AND RESTART.
009125,000410: 
009126,000411: 05,3107  E6,1537                                  EBANK=   AOSQ                                  
009127,000412: 05,3107           33351        STARTSUB           CAF      LDNPHAS1                              #  SET POINTER SO NEXT 20MS DOWNRUPT WILL
009128,000413: 05,3110           54335                           TS       DNTMGOTO                              #  CAUSE THE CURRENT DOWNLIST TO BE
009129,000414:                                                                                                  #  INTERRUPTED AND START SENDING FROM THE
009130,000415:                                                                                                  #  BEGINNING OF THE CURRENT DOWNLIST.
009131,000416: 05,3111           34746                           CAF      BIT6                                  
009132,000417: 05,3112           00006                           EXTEND                                         
009133,000418: 05,3113           02033                           RAND     CHAN33                                
009134,000419: 05,3114           63365                           AD       RMODINIT                              
009135,000420: 05,3115           54110                           TS       RADMODES                              
009136,000421: 

In LMY99 R1, the STARTSB1 label has been moved to this line. This is the sole non-comment change between Luminary Rev 99 and LMY99 Rev 1.

009139,000424: 05,3116           34733                           CAF      POSMAX                                
009140,000425: 05,3117           54026                           TS       TIME3                                 
009141,000426: 05,3120           67746                           AD       MINUS2                                
009142,000427: 05,3121           54027                           TS       TIME4                                 
009143,000428: 05,3122           67747                           AD       NEGONE                                
009144,000429: 05,3123           54030                           TS       TIME5                                 
009145,000430: 
009146,000431: 05,3124           35015        STARTSB1           CAF      EBANK6                                
009147,000432: 05,3125           54003                           TS       EBANK                                 
009148,000433: 
009149,000434: 05,3126           44737                           CS       BIT13                                 #  CAUSE DAPIDLER TO CALL 1/ACCS
009150,000435: 05,3127           71273                           MASK     RCSFLAGS                              
009151,000436: 05,3130           55273                           TS       RCSFLAGS                              #  ZERO BIT 13
009152,000437: 05,3131           34733                           CAF      POSMAX                                #  DISABLE TIME6 CLOCK.  JUST IN CASE A T6
009153,000438: 05,3132           55466                           TS       T6NEXT                                #        RUPT IS ALREADY IN THE PRIORITY CHAIN,
009154,000439: 05,3133           00006                           EXTEND                                         #        ENSURE THAT IT'S INPUTS WILL RENDER IT
009155,000440: 05,3134           03013                           WAND     CHAN13                                #        INEFFECTUAL.
009156,000441: 05,3135           34755                           CAF      ZERO                                  
009157,000442: 05,3136           55465                           TS       NXT6ADR                               
009158,000443: 05,3137           55472                           TS       NEXTP                                 
009159,000444: 
009160,000445: 05,3140           44751                           CS       ACCSOKAY                              
009161,000446: 05,3141           70111                           MASK     DAPBOOLS                              
009162,000447: 05,3142           54111                           TS       DAPBOOLS                              
009163,000448: 
009164,000449: 05,3143           00006                           EXTEND                                         #  SET T5RUPT FOR DAPIDLER PROGRAM.
009165,000450: 05,3144           33347                           DCA      IDLEADR                               
009166,000451: 05,3145           53275                           DXCH     T5ADR                                 
009167,000452: 
009168,000453: 05,3146           33360        STARTSB2           CAF      OCT30001                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
009169,000454: 05,3147           00006                           EXTEND                                         #  ENGINE ON, OFF AND ISS WARNING.
009170,000455: 05,3150           03011                           WAND     DSALMOUT                              
009171,000456: 
009172,000457: 05,3151           44743                           CS       READRBIT                              #  CLEAR READRFLG FOR R29.
009173,000458: 05,3152           70077                           MASK     FLAGWRD3                              
009174,000459: 05,3153           54077                           TS       FLAGWRD3                              

Page 220

009176,000461: 
009177,000462: 05,3154           40077                           CS       FLAGWRD3                              #  DURING SOFTWARE RESTART, CLEAR TURNON,
009178,000463: 05,3155           74741                           MASK     NR29FBIT                              #  REPOSITION, CDU ZERO AND REMODE BITS
009179,000464: 05,3156           00006                           EXTEND                                         #  IN RADMODES, SINCE TASKS ASSOCIATED
009180,000465: 05,3157           13161                           BZF      +2                                    #  WITH THESE BITS HAVE BEEN KILLED
009181,000466: 05,3160           34742                           CAF      BIT10                                 #  ALSO IF R29 HAD BEEN REQUESTED,
009182,000467: 05,3161           63354                           AD       OCT32001                              #  (NOR29FLG = 0) CLEAR BIT 10 RADMODES
009183,000468: 05,3162           40000                           COM                                            #  TO MAKE R29 FORGET IT HAD STARTED
009184,000469: 05,3163           70110                           MASK     RADMODES                              #  DESIGNATING
009185,000470: 05,3164           54110                           TS       RADMODES                              
009186,000471: 05,3165           33356                           CAF      OCT27470                              #  DURING SOFTWARE RESTART, DO NOT DISTURB
009187,000472: 05,3166           00006                           EXTEND                                         #  IMU FLAGS.  (COURSE ALIGN ENABLE, ZERO
009188,000473: 05,3167           03012                           WAND     CHAN12                                #  IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
009189,000474:                                                                                                  #  TRIM DRIVES.  LEAVE RR LOCKON ENABLE
009190,000475:                                                                                                  #  ALONE.
009191,000476: 
009192,000477: 05,3170           44750                           CS       NORRMBIT                              #  ENABLE R25.
009193,000478: 05,3171           70101                           MASK     FLAGWRD5                              
009194,000479: 05,3172           54101                           TS       FLAGWRD5                              
009195,000480: 
009196,000481: 05,3173           44741                           CS       R77FLBIT                              #  CLEAR R77FLAG
009197,000482: 05,3174           70101                           MASK     FLAGWRD5                              
009198,000483: 05,3175           54101                           TS       FLAGWRD5                              
009199,000484: 05,3176           33357                           CAF      OCT74160                              #  DURING SOFTWARE RESTART, DO NOT DUSTURB
009200,000485: 05,3177           00006                           EXTEND                                         #  TELEMETRY FLAGS, RESET TRAP FLAGS, AND
009201,000486: 05,3200           03013                           WAND     CHAN13                                #  ENABLE T6RUPT FLAG.
009202,000487: 
009203,000488: 05,3201           34740                           CAF      BIT12                                 #  REENABLE RUPT10 (RUPT QUICKLY
009204,000489: 05,3202           00006                           EXTEND                                         #        RESUMES EXCEPT DURING P64)
009205,000490: 05,3203           05013                           WOR      CHAN13                                
009206,000491: 
009207,000492: 05,3204           34746                           CAF      BIT6                                  #  DURING SOFTWARE RESTART, DO NOT DISTURB
009208,000493: 05,3205           00006                           EXTEND                                         #  GYRO ENABLE FLAG.
009209,000494: 05,3206           03014                           WAND     CHAN14                                
009210,000495: 
009211,000496: 05,3207  E3,1400                                  EBANK=   LST1                                  
009212,000497: 05,3207           35007                           CAF      STARTEB                               
009213,000498: 05,3210           54003                           TS       EBANK                                 #  SET FOR E3
009214,000499: 
009215,000500: 05,3211           34734                           CAF      NEG1/2                                #  INITIALIZE WAITLIST DELTA-TS.
009216,000501: 05,3212           55407                           TS       LST1       +7                         
009217,000502: 05,3213           55406                           TS       LST1       +6                         
009218,000503: 05,3214           55405                           TS       LST1       +5                         
009219,000504: 05,3215           55404                           TS       LST1       +4                         
009220,000505: 05,3216           55403                           TS       LST1       +3                         
009221,000506: 05,3217           55402                           TS       LST1       +2                         
009222,000507: 05,3220           55401                           TS       LST1       +1                         
009223,000508: 05,3221           55400                           TS       LST1                                  
009224,000509: 
009225,000510: 05,3222           45236                           CS       ENDTASK                               
009226,000511: 05,3223           55410                           TS       LST2                                  

Page 221

009228,000513: 05,3224           55412                           TS       LST2       +2                         
009229,000514: 05,3225           55414                           TS       LST2       +4                         
009230,000515: 05,3226           55416                           TS       LST2       +6                         
009231,000516: 05,3227           55420                           TS       LST2       +8D                        
009232,000517: 05,3230           55422                           TS       LST2       +10D                       
009233,000518: 05,3231           55424                           TS       LST2       +12D                       
009234,000519: 05,3232           55426                           TS       LST2       +14D                       
009235,000520: 05,3233           55430                           TS       LST2       +16D                       
009236,000521: 05,3234           45237                           CS       ENDTASK    +1                         
009237,000522: 05,3235           55411                           TS       LST2       +1                         
009238,000523: 05,3236           55413                           TS       LST2       +3                         
009239,000524: 05,3237           55415                           TS       LST2       +5                         
009240,000525: 05,3240           55417                           TS       LST2       +7                         
009241,000526: 05,3241           55421                           TS       LST2       +9D                        
009242,000527: 05,3242           55423                           TS       LST2       +11D                       
009243,000528: 05,3243           55425                           TS       LST2       +13D                       
009244,000529: 05,3244           55427                           TS       LST2       +15D                       
009245,000530: 05,3245           55431                           TS       LST2       +17D                       
009246,000531: 
009247,000532: 05,3246           44755                           CS       ZERO                                  #  MAKE ALL EXECUTIVE REGISTER SETS
009248,000533: 05,3247           54167                           TS       PRIORITY                              #  AVAILABLE.
009249,000534: 05,3250           54203                           TS       PRIORITY   +12D                       
009250,000535: 05,3251           54217                           TS       PRIORITY   +24D                       
009251,000536: 05,3252           54233                           TS       PRIORITY   +36D                       
009252,000537: 05,3253           54247                           TS       PRIORITY   +48D                       
009253,000538: 05,3254           54263                           TS       PRIORITY   +60D                       
009254,000539: 05,3255           54277                           TS       PRIORITY   +72D                       
009255,000540: 05,3256           54313                           TS       PRIORITY   +84D                       
009256,000541: 
009257,000542: 05,3257           55313                           TS       DSRUPTSW                              
009258,000543: 05,3260           54067                           TS       NEWJOB                                #  SHOWS NO ACTIVE JOBS.
009259,000544: 
009260,000545: 05,3261           33353                           CAF      VAC1ADRC                              #  MAKE ALL VAC AREAS AVAILABLE.
009261,000546: 05,3262           54400                           TS       VAC1USE                               
009262,000547: 05,3263           63355                           AD       LTHVACA                               
009263,000548: 05,3264           54454                           TS       VAC2USE                               
009264,000549: 05,3265           63355                           AD       LTHVACA                               
009265,000550: 05,3266           54530                           TS       VAC3USE                               
009266,000551: 05,3267           63355                           AD       LTHVACA                               
009267,000552: 05,3270           54604                           TS       VAC4USE                               
009268,000553: 05,3271           63355                           AD       LTHVACA                               
009269,000554: 05,3272           54660                           TS       VAC5USE                               
009270,000555: 
009271,000556: 05,3273           34363                           CAF      TEN                                   
009272,000557: 05,3274           54154        DSPOFF             TS       MPAC                                  #  R1, R2, R3).
009273,000558: 05,3275           44740                           CS       BIT12                                 
009274,000559: 05,3276           50154                           INDEX    MPAC                                  
009275,000560: 05,3277           55023                           TS       DSPTAB                                
009276,000561: 05,3300           10154                           CCS      MPAC                                  
009277,000562: 05,3301           13274                           TCF      DSPOFF                                
009278,000563: 

Page 222

009280,000565: 05,3302           55326                           TS       DELAYLOC                              
009281,000566: 05,3303           55327                           TS       DELAYLOC   +1                         
009282,000567: 05,3304           55330                           TS       DELAYLOC   +2                         
009283,000568: 05,3305           55074                           TS       R1SAVE                                
009284,000569: 05,3306           54045                           TS       INLINK                                
009285,000570: 05,3307           54776                           TS       DSPCNT                                
009286,000571: 05,3310           55042                           TS       CADRSTOR                              
009287,000572: 05,3311           55013                           TS       REQRET                                
009288,000573: 05,3312           55015                           TS       CLPASS                                
009289,000574: 05,3313           55012                           TS       DSPLOCK                               
009290,000575: 05,3314           55020                           TS       MONSAVE                               #  KILL MONITOR
009291,000576: 05,3315           55021                           TS       MONSAVE1                              
009292,000577: 05,3316           55001                           TS       VERBREG                               
009293,000578: 05,3317           55002                           TS       NOUNREG                               
009294,000579: 05,3320           55043                           TS       DSPLIST                               
009295,000580: 05,3321           55312                           TS       MARKSTAT                              
009296,000581: 05,3322           55044                           TS       EXTVBACT                              #  MAKE EXTENDED VERBS AVAILABLE
009297,000582: 05,3323           55304                           TS       IMUCADR                               
009298,000583: 05,3324           55305                           TS       OPTCADR                               
009299,000584: 05,3325           55306                           TS       RADCADR                               
009300,000585: 05,3326           55307                           TS       ATTCADR                               
009301,000586: 05,3327           55314                           TS       LGYRO                                 
009302,000587: 05,3330           54100                           TS       FLAGWRD4                              #  KILL INTERFACE DISPLAYS
009303,000588: 05,3331           34760                           CAF      NOUTCON                               
009304,000589: 05,3332           55016                           TS       NOUT                                  
009305,000590: 
009306,000591: 05,3333           44753                           CS       ONE                                   
009307,000592: 05,3334           55100                           TS       SAMPLIM                               
009308,000593: 05,3335           34746                           CAF      BIT6                                  
009309,000594: 05,3336           71303                           MASK     IMODES33                              #  LEAVE BIT 6 UNCHANGED
009310,000595: 05,3337           65026                           AD       IM33INIT                              #  NO PIP OR TM FAILS.  BIT6=0 IN THIS WORD.
009311,000596: 05,3340           55303                           TS       IMODES33                              
009312,000597: 
009313,000598: 05,3341           33352                           CAF      LESCHK                                #  SELF CHECK GO-TO REGISTER.
009314,000599: 05,3342           55361                           TS       SELFRET                               
009315,000600: 
009316,000601: 05,3343           44360                           CS       VD1                                   
009317,000602: 05,3344           54777                           TS       DSPCOUNT                              
009318,000603: 
009319,000604: 05,3345           00002                           TC       Q                                     
009320,000605: 05,3346  E6,1537                                  EBANK=   AOSQ                                  
009321,000606: 05,3346           02024 34066  IDLEADR            2CADR    DAPIDLER                              
009322,000607: 
009323,000608: 05,3350           00435        IFAILINH           OCT      435                                   
009324,000609: 05,3351           03515        LDNPHAS1           GENADR   DNPHASE1                              
009325,000610: 05,3352           03336        LESCHK             GENADR   SELFCHK                               
009326,000611: 05,3353           00400        VAC1ADRC           ADRES    VAC1USE                               
009327,000612: 05,3354           32001        OCT32001           OCT      32001                                 
009328,000613: 05,3355           00054        LTHVACA            DEC      44         B-14                       
009329,000614: 

Page 223

009331,000616: 05,3356           27470        OCT27470           OCT      27470                                 
009332,000617: 05,3357           74160        OCT74160           OCT      74160                                 
009333,000618: 05,3360           30001        OCT30001           OCT      30001                                 
009334,000619: 05,3361     5007               STARTEB            EQUALS   EBANK3                                
009335,000620: 05,3361     4756               NUMGRPS            EQUALS   FIVE                                  
009336,000621: 05,3361           77755        -ELR               OCT      -22                                   #  -ERROR LIGHT RESET KEY CODE.
009337,000622: 05,3362           37411        IM30INIF           OCT      37411                                 #  INHIBITS IMU FAIL FOR 5 SEC AND PIP ISSW
009338,000623: 05,3363           37000        IM30INIR           OCT      37000                                 
009339,000624: 05,3364     5026               IM33INIT           =        PRIO16                                #  NO PIP OR TM FAIL SIGNALS.
009340,000625: 05,3364           00450        9,6,4              OCT      450                                   
009341,000626: 05,3365           00102        RMODINIT           OCT      00102                                 
009342,000627: 05,3366           00000        SWINIT             OCT      0                                     
009343,000628: 05,3367           00000                           OCT      0                                     
009344,000629: 05,3370           00000                           OCT      0                                     
009345,000630: 05,3371           02000                           OCT      02000                                 #  BIT 11 = NOR29FLG
009346,000631: 05,3372           00000                           OCT      0                                     
009347,000632: 05,3373           00000                           OCT      0                                     
009348,000633: 05,3374           00000                           OCT      0                                     
009349,000634: 05,3375           00100                           OCT      00100                                 
009350,000635: 
009351,000636: 05,3376           00000                           OCT      0                                     
009352,000637: 05,3377           00000                           OCT      0                                     
009353,000638: 05,3400           00000                           OCT      0                                     
009354,000639: 05,3401           40000                           OCT      40000                                 #  BIT 15 = LRBYPASS.
009355,000640: 

Page 224

009357,000642:                                                                                                  #  PROGRAM NAME          GOTOPOOH                ASSEMBLY SUNDANCE
009358,000643:                                                                                                  #  LOG SECTION           FRESH START AND RESTART
009359,000644: 
009360,000645:                                                                                                  #  FUNCTIONAL DESCRIPTION
009361,000646: 
009362,000647:                                                                                                  #        FLASH V 37 ON DSKY %MM CHANGE REQUEST "
009363,000648: 
009364,000649:                                                                                                  #  INPUT/OUTPUT INFORMATION
009365,000650: 
009366,000651:                                                                                                  #        A. CALLING SEQUENCE                     TC GOTOPOOH
009367,000652:                                                                                                  #        B. ERASABLE INITIALIZATION              NONE
009368,000653:                                                                                                  #        C. OUTPUT FLASH V 37 ON DSKY
009369,000654:                                                                                                  #        D. DEBRIS                               L
009370,000655: 
009371,000656:                                                                                                  #  PROGRAM ANALYSIS
009372,000657: 
009373,000658:                                                                                                  #        A. SUBROUTINES CALLED                   PRIODSPR, LINUS
009374,000659:                                                                                                  #        B. NORMAL EXIT                          TCF ENDOFJOB
009375,000660:                                                                                                  #        C. ALARM AND ABORT EXITS                NONE
009376,000661: 
009377,000662:    6001                                           BLOCK    03                                    
009378,000663:    6000                                           SETLOC   FFTAG5                                
009379,000664:    6000                                           BANK                                           
009380,000665: 
009381,000666:    6001                                           COUNT*   $$/P00                                
009382,000667:    6001           34764        GOTOPOOH           CAF      OCT33                                 #  4.33 SPOT FOR GOPOOFIX
009383,000668:    6002           54001                           TS       L                                     
009384,000669:    6003           40000                           COM                                            
009385,000670:    6004           52761                           DXCH     -PHASE4                               
009386,000671: 
009387,000672:    6005           04635                           TC       POSTJUMP                              
009388,000673:    6006           10024                           CADR     GOPOOFIX                              
009389,000674:    6007           00024        OCT24              MM       20         B-14                       
009390,000675:    6010           00031        OCT31              MM       25         B-14                       
009391,000676: 
009392,000677: 20,2004                                           BANK     20                                    
009393,000678: 04,2000                                           SETLOC   VERB37                                
009394,000679: 04,2000                                           BANK                                           
009395,000680: 
009396,000681: 04,2024                                           COUNT*   $$/P00                                #  VERB 37 AND P00 IN BANK 4.
009397,000682: 04,2024           05516        GOPOOFIX           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE
009398,000683: 04,2025           00311                           ADRES    XOVINFLG                              
009399,000684: 
009400,000685: 04,2026           05516                           TC       DOWNFLAG                              #  INSURE THAT ULLAGE IS OFF
009401,000686: 04,2027           00314                           ADRES    ULLAGFLG                              

Page 225

009403,000688: 04,2030           05476                           TC       CLEARMRK   +2                         #  RELEASE MARK DISPLAY SYSTEM.
009404,000689: 04,2031           32037                           CAF      V37N99                                
009405,000690: 04,2032           04616                           TC       BANKCALL                              
009406,000691: 04,2033           20476                           CADR     GOFLASH                               
009407,000692: 04,2034           12031                           TCF      -3                                    
009408,000693: 04,2035           12031                           TCF      -4                                    
009409,000694: 04,2036           12031                           TCF      -5                                    
009410,000695: 
009411,000696: 04,2037           11343        V37N99             VN       3799                                  
009412,000697: 

Page 226

009414,000699:                                                                                                  #  PROGRAM NAME          V37                     ASSEMBLY SUNDANCE
009415,000700: 
009416,000701:                                                                                                  #  LOG SECTION           FRESH START AND RESTART
009417,000702: 
009418,000703:                                                                                                  #  FUNCTIONAL DESCRIPTION
009419,000704: 
009420,000705:                                                                                                  #        1. CHECK IF NEW PROGRAM ALLOWED.  IF BIT 1 OF FLAGWRD2 (NODOFLAG) IS SET, AN ALARM 1520 IS CALLED.
009421,000706:                                                                                                  #        2. CHECK FOR VALIDITY OF PROGRAM SELECTED.  IF AN INVALID PROGRAM IS SELECTED, THE OPERATOR ERROR LIGHT IS
009422,000707:                                                                                                  #           SET AND CURRENT ACTIVITY, IF ANY, CONTINUES.
009423,000708:                                                                                                  #        3. SERVICER IS TERMINATED IF IT HAS BEEN RUNNING.
009424,000709:                                                                                                  #        4. INSTALL IS EXECUTED TO AVOID INTERRUPTING INTEGRATION.
009425,000710:                                                                                                  #        5. THE ENGINE IS TURNED OFF AND THE DAP IS INITIALIZED FOR COAST.
009426,000711:                                                                                                  #        6. TRACK AND UPDATE FLAGS ARE SET TO ZERO.
009427,000712:                                                                                                  #        7. DISPLAY SYSTEM IS RELEASED.
009428,000713:                                                                                                  #        8. THE FOLLOWING ARE PERFORMED FOR EACH OF THE THREE CASES.
009429,000714:                                                                                                  #                A. PROGRAM SELECTED IS P00.
009430,000715:                                                                                                  #                        1. RENDEZVOUS AND P25 FLAGS ARE RESET.  (KILL P20 AND P25)
009431,000716:                                                                                                  #                        2. STATINT1 IS SCHEDULED BY SETTING RESTART GROUP 2.
009432,000717:                                                                                                  #                        3. MAJOR MODE 00 IS STORED IN THE MODE REGISTER (MODREG).
009433,000718:                                                                                                  #                        4. SUPERBANK 3 IS SELECTED.
009434,000719:                                                                                                  #                        5. NODOFLAG IS RESET.
009435,000720:                                                                                                  #                        6. ALL RESTART GROUPS EXCEPT GROUP2 ARE CLEARED. CONTROL IS TRANSFERRED TO RESTART PROGRAM (GOPROG2)
009436,000721:                                                                                                  #                           WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE
009437,000722:                                                                                                  #                           INITIATED.
009438,000723:                                                                                                  #                B. PROGRAM SELECTED IS P20 OR P25.
009439,000724:                                                                                                  #                        1. IF THE CURRENT MAJOR MODE IS THE SAME AS THE SELECTED NEWPROGRAM, THE PROGRAM IS RE-INITIALIZED
009440,000725:                                                                                                  #                           VIA V37XEQ, ALL RESTART GROUPS, EXCEPT GROUP 4 ARE CLEARED.
009441,000726:                                                                                                  #                        2. IF THE CURRENT MAJOR MODE IS NOT EQUAL TO THE NEW REQUEST, A CHECK IS MADE TO SEE IF THE REQUEST-
009442,000727:                                                                                                  #                           ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND,
009443,000728:                                                                                                  #                           AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXISTING
009444,000729:                                                                                                  #                           P20 OR P25 IS RESTARTED TO CONTINUE, AND ITS MM IS SET.
009445,000730:                                                                                                  #                        3. CONTROL IS TRANSFERRED TO GOPROG2.
009446,000731:                                                                                                  #                C. PROGRAM SELECTED IS NEITHER P00, P20, NOR P25
009447,000732:                                                                                                  #                        1. V37XEQ IS SCHEDULED (AS A JOB) BY SETTING RESTART GROUP 4
009448,000733:                                                                                                  #                        2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RESTART
009449,000734:                                                                                                  #                           GROUPS.  IF THE RENDEZVOUS OR THE P25 FLAG IS ON, GROUP 2 IS NOT CLEARED, ALLOWING THESE PROGRAMS
009450,000735:                                                                                                  #                           TO CONTINUE.
009451,000736: 
009452,000737:                                                                                                  #  INPUT/OUTPUT INFORMATION
009453,000738: 
009454,000739:                                                                                                  #        A. CALLING SEQUENCE
009455,000740:                                                                                                  #                CONTROL IS DIRECTED TO V37 BY THE VERBFAN ROUTINE.
009456,000741:                                                                                                  #                VERBFAN GOES TO C(VERBTAB+C(VERBREG)). VERB 37 = MMCHANG.
009457,000742:                                                                                                  #                MMCHANG EXECUTES A   TC POSTJUMP, CADR V37.
009458,000743: 
009459,000744:                                                                                                  #        B. ERASABLE INITIALIZATION              NONE
009460,000745: 
009461,000746:                                                                                                  #        C. OUTPUT

Page 227

009463,000748:                                                                                                  #                MAJOR MODE CHANGE
009464,000749: 
009465,000750:                                                                                                  #        D. DEBRIS
009466,000751:                                                                                                  #                MMNUMBER, MPAC +1, MINDEX, BASETEMP +C(MINDEX), FLAGWRD0, FLAGWRD1, FLAGWRD2, MODREG, GOLOC -1,
009467,000752:                                                                                                  #                GOLOC, GOLOC +1, GOLOC +2, BASETEMP, -PHASE2, PHASE2, -PHASE4
009468,000753: 
009469,000754:                                                                                                  #  PROGRAM ANALYSIS
009470,000755: 
009471,000756:                                                                                                  #        A. SUBROUTINES CALLED
009472,000757:                                                                                                  #                ALARM, RELDSP, PINBRNCH, INTSTALL, ENGINOF2, ALLCOAST, V37KLEAN, GOPROG2, FALTON, FINDVAC, SUPERSW,
009473,000758:                                                                                                  #                DSPMM
009474,000759: 
009475,000760:                                                                                                  #        B. NORMAL EXIT                          TC ENDOFJOB
009476,000761: 
009477,000762:                                                                                                  #        C. ALARMS                               1520 (MAJOR MODE CHANGE NOT PERMITTED)
009478,000763: 
009479,000764: 04,2040           54775        V37                TS       MMNUMBER                              #  SAVE MAJOR MODE
009480,000765: 04,2041           34355                           CAF      PRIO30                                #  RESTART AT PINBALL PRIORITY
009481,000766: 04,2042           54366                           TS       RESTREG                               
009482,000767: 
009483,000768: 04,2043           31302                           CA       IMODES30                              #  IS IMU BEINB INITIALIZED
009484,000769: 04,2044           74746                           MASK     BIT6                                  
009485,000770: 04,2045           10000                           CCS      A                                     
009486,000771: 04,2046           12065                           TCF      CANTROD                               
009487,000772: 
009488,000773: 04,2047           40775                           CS       MMNUMBER                              #  IS P70 REQUESTED?
009489,000774: 04,2050           62400                           AD       DEC70                                 
009490,000775: 04,2051           00006                           EXTEND                                         
009491,000776: 04,2052           12373                           BZF      SETUP70                               #  YES
009492,000777: 04,2053           64753                           AD       ONE                                   #  IS P71 REQUESTED?
009493,000778: 04,2054           00006                           EXTEND                                         
009494,000779: 04,2055           12372                           BZF      SETUP71                               #  YES
009495,000780: 
009496,000781: 04,2056           30775                           CA       MMNUMBER                              #  IS NEW REQUEST POO
009497,000782: 04,2057           00006                           EXTEND                                         
009498,000783: 04,2060           12107                           BZF      ISSERVON                              #  YES, CHECK SERVICER STATUS
009499,000784: 
009500,000785: 04,2061           40076                           CS       FLAGWRD2                              #  NO, IS NODO V37 FLAG SET
009501,000786: 04,2062           74753                           MASK     NODOBIT                               
009502,000787: 04,2063           10000                           CCS      A                                     
009503,000788: 04,2064           12072                           TCF      CHECKTAB                              #  NO
009504,000789: 04,2065           05567        CANTROD            TC       ALARM                                 
009505,000790: 04,2066           01520                           OCT      1520                                  
009506,000791: 
009507,000792: 04,2067           04457        V37BAD             TC       RELDSP                                #  RELEASES DISPLAY FROM ASTRONAUT
009508,000793: 
009509,000794: 04,2070           04635                           TC       POSTJUMP                              #  BRING BACK LAST NORMAL DISPLAY IF THERE
009510,000795: 04,2071           21050                           CADR     PINBRNCH                              #  WAS ONE.  OTHERWISE DO AN EOJ.
009511,000796: 
009512,000797: 04,2072           32477        CHECKTAB           CA       NOV37MM                               #  INDEX FOR MM TABLES.
009513,000798: 

Page 228

009515,000800: 04,2073           54155        AGAINMM            TS       MPAC       +1                         
009516,000801: 04,2074           50155                           NDX      MPAC       +1                         
009517,000802: 04,2075           32441                           CA       PREMM1                                #  OBTAIN WHICH MM THIS IS FOR
009518,000803: 04,2076           76074                           MASK     LOW7                                  
009519,000804: 04,2077           40000                           COM                                            
009520,000805: 04,2100           60775                           AD       MMNUMBER                              
009521,000806: 04,2101           10000                           CCS      A                                     
009522,000807: 04,2102           10155                           CCS      MPAC       +1                         #  IF GR, SEE IF ANY MORE IN LIST
009523,000808: 04,2103           12073                           TCF      AGAINMM                               #  YES, GET NEXT ONE
009524,000809: 04,2104           12322                           TCF      V37NONO                               #  LAST TIME OR PASSED MM
009525,000810: 
009526,000811: 04,2105           30155                           CA       MPAC       +1                         
009527,000812: 04,2106           54774                           TS       MINDEX                                #  SAVE INDEX FOR LATER
009528,000813: 
009529,000814: 04,2107           40103        ISSERVON           CS       FLAGWRD7                              #  V37 FLAG SET - I.E. IS SERVICER GOING
009530,000815: 04,2110           74746                           MASK     V37FLBIT                              
009531,000816: 04,2111           10000                           CCS      A                                     
009532,000817: 04,2112           12134                           TCF      CANV37                                #  NO
009533,000818: 
009534,000819: 04,2113           05516                           TC       DOWNFLAG                              #  YES, TURN OFF THE AVERAGE FLAG AND
009535,000820: 04,2114           00163                           ADRES    AVEGFLAG                              #  WAIT FOR SERVICER TO RETURN TO CANV37.
009536,000821: 
009537,000822: 04,2115           32366                           CAF      V37RETAD                              
009538,000823: 04,2116           55260                           TS       OUTROUTE                              
009539,000824: 
009540,000825: 04,2117           15155                           TCF      ENDOFJOB                              
009541,000826: 
009542,000827: 04,2120           40074        V37RET             CS       FLAGWRD0                              #  IS P20 OR P22 RUNNING?
009543,000828: 04,2121           74745                           MASK     RNDVZBIT                              
009544,000829: 04,2122           10000                           CCS      A                                     
009545,000830: 04,2123           12125                           TCF      +2                                    #  NO. CHECK FOR P25.
009546,000831: 04,2124           12132                           TCF      2.7SPT                                #  YES. DO 2.7SPOT
009547,000832: 04,2125           40074                           CS       FLAGWRD0                              #  IS P25 RUNNING?
009548,000833: 04,2126           74743                           MASK     P25FLBIT                              
009549,000834: 04,2127           10000                           CCS      A                                     
009550,000835: 04,2130           32367        2.0SPT             CA       OCT37667                              
009551,000836: 04,2131           64747        2.11SPT            AD       BIT5                                  
009552,000837: 04,2132           62370        2.7SPT             AD       OCT40072                              
009553,000838: 04,2133           05357                           TC       PHSCHNGA                              
009554,000839: 
009555,000840: 04,2134           34755        CANV37             CAF      ZERO                                  
009556,000841: 04,2135           00006                           EXTEND                                         
009557,000842: 04,2136           01007                           WRITE    SUPERBNK                              
009558,000843: 
009559,000844: 04,2137           32365                           CAF      R00AD                                 
009560,000845: 04,2140           54374                           TS       TEMPFLSH                              
009561,000846: 
009562,000847: 04,2141           05353                           TC       PHASCHNG                              
009563,000848: 04,2142           00014                           OCT      14                                    
009564,000849: 

Page 229

009566,000851: 
009567,000852: 04,2143           06037        R00                TC       INTPRET                               
009568,000853: 
009569,000854: 04,2144           77624                           CALL                                           #  WAIT FOR INTEGRATION TO FINISH
009570,000855: 04,2145           27414                                    INTSTALL                              
009571,000856: 04,2146           77776        DUMMYAD            EXIT                                           
009572,000857: 
009573,000858: 04,2147           05516                           TC       DOWNFLAG                              
009574,000859: 04,2150           00124                           ADRES    3AXISFLG                              #  RESET 3-AXIS FLAG
009575,000860: 
009576,000861: 04,2151           34735                           CAF      LRBYBIT                               #  CLEAN UP THE R12 FLAGWORD.
009577,000862: 04,2152           54107                           TS       FLGWRD11                              
009578,000863: 
009579,000864: 04,2153           05516                           TC       DOWNFLAG                              #  INSURE THAT THE R04FLAG IS CLEAR.
009580,000865: 04,2154           00063                           ADRES    R04FLAG                               
009581,000866: 
009582,000867: 04,2155           05516                           TC       DOWNFLAG                              #  INSURE MUNFLAG IS CLEAR.
009583,000868: 04,2156           00141                           ADRES    MUNFLAG                               
009584,000869: 
009585,000870: 04,2157           05516                           TC       DOWNFLAG                              #  ALLOW X-AXIS OVERRIDE.
009586,000871: 04,2160           00311                           ADRES    XOVINFLG                              
009587,000872: 04,2161           10775                           CCS      MMNUMBER                              #  IS THIS A POOH REQUEST
009588,000873: 04,2162           12310                           TCF      NOUVEAU                               #  NO, PICK UP NEW PROGRAM
009589,000874: 
009590,000875: 04,2163           04457        P00H               TC       RELDSP                                #  RELEASE DISPLAY SYSTEM
009591,000876: 
009592,000877: 04,2164           35017                           CAF      PRIO5                                 #  SET VARIABLE RESTART PRIORITY FOR
009593,000878: 04,2165           55056                           TS       PHSPRDT2                              #  P00 INTEGRATION.
009594,000879: 
009595,000880: 04,2166           06011                           TC       CLRADMOD                              #  CLRADMOD DOES AN INHINT.
009596,000881: 
009597,000882: 04,2167           44753                           CS       NODOBIT                               #  TURN OFF NODOFLAG.
009598,000883: 04,2170           70076                           MASK     FLAGWRD2                              
009599,000884: 04,2171           54076                           TS       FLAGWRD2                              
009600,000885: 
009601,000886: 04,2172           34756                           CA       FIVE                                  #  SET RESTART FOR STATEINT1
009602,000887: 04,2173           54001                           TS       L                                     
009603,000888: 04,2174           40000                           COM                                            
009604,000889: 04,2175           52755                           DXCH     -PHASE2                               
009605,000890: 
009606,000891: 04,2176           42371                           CS       OCT700                                #  TURN OFF P20, P25, IMU IN USE FLAG
009607,000892: 04,2177           70074                           MASK     FLAGWRD0                              
009608,000893: 04,2200           54074                           TS       FLAGWRD0                              #                         RENDFLG
009609,000894: 
009610,000895: 04,2201           34755                           CAF      DNLADP00                              
009611,000896: 
009612,000897: 04,2202           54332        SEUDOP00           TS       DNLSTCOD                              #  SET UP APPROPRIATE DOWNLIST CODE
009613,000898: 04,2203           55324                           TS       AGSWORD                               #    (CURRENT LIST WILL BE COMPLETED BEFORE
009614,000899:                                                                                                  #      NEW ONE IS STARTED)
009615,000900: 04,2204           04674                           TC       IBNKCALL                              
009616,000901: 04,2205           75555                           CADR     ENGINOF1                              
009617,000902: 

Page 230

009619,000904: 04,2206           04674                           TC       IBNKCALL                              #  INSURE ALLCOAST.
009620,000905: 04,2207           40204                           CADR     ALLCOAST                              #  DOES A RESTORDB.
009621,000906: 
009622,000907: 04,2210           44775                           CS       OCT120                                #  TURN OFF TRACK, UPDATE FLAGS
009623,000908: 04,2211           55072                           TS       EBANKTEM                              
009624,000909: 04,2212           70075                           MASK     FLAGWRD1                              
009625,000910: 04,2213           54075                           TS       FLAGWRD1                              
009626,000911: 
009627,000912: 04,2214           04674                           TC       IBNKCALL                              #  KILL GROUPS 1,3,5,6
009628,000913: 04,2215           12652                           CADR     V37KLEAN                              
009629,000914: 
009630,000915: 04,2216           10775                           CCS      MMNUMBER                              #  IS IT POOH
009631,000916: 04,2217           12226                           TCF      RENDVOO                               #  NO
009632,000917: 04,2220           04674        GOMOD              TC       IBNKCALL                              #  REDUNDANT EXCEPT FOR GROUP 4
009633,000918: 04,2221           12647                           CADR     P00KLEAN                              
009634,000919: 
009635,000920: 04,2222           30775                           CA       MMNUMBER                              
009636,000921: 04,2223           55011                           TS       MODREG                                
009637,000922: 
009638,000923: 04,2224           04635        GOGOPROG           TC       POSTJUMP                              
009639,000924: 04,2225           12770                           CADR     GOPROG2                               
009640,000925: 
009641,000926: 04,2226           41011        RENDVOO            CS       MODREG                                #  IS CURRENT PROGRAM 22
009642,000927: 04,2227           62326                           AD       OCT26                                 
009643,000928: 04,2230           00006                           EXTEND                                         
009644,000929: 04,2231           12250                           BZF      RESET22                               #  YES - CLEAR RENDEZVOUS FLAG
009645,000930: 
009646,000931: 04,2232           40775                           CS       MMNUMBER                              #  IS NEW PROGRAM P22
009647,000932: 04,2233           62326                           AD       OCT26                                 
009648,000933: 04,2234           00006                           EXTEND                                         
009649,000934: 04,2235           12250                           BZF      RESET22                               
009650,000935: 
009651,000936: 04,2236           67746                           AD       NEG2                                  #  IS NEW PROGRAM = P20 OR P25
009652,000937: 04,2237           00006                           EXTEND                                         
009653,000938: 04,2240           12262                           BZF      RENDNOO                               #  YES
009654,000939: 04,2241           64756                           AD       FIVE                                  #  25
009655,000940: 04,2242           00006                           EXTEND                                         
009656,000941: 04,2243           12262                           BZF      RENDNOO                               #  YES
009657,000942: 
009658,000943: 04,2244           32324                           CA       OCT500                                #  NO, IS EITHER P20 OR P25 RUNNING
009659,000944: 04,2245           70074                           MASK     FLAGWRD0                              
009660,000945: 04,2246           10000                           CCS      A                                     
009661,000946: 04,2247           12257                           TCF      P00FIZZ                               #  YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
009662,000947: 
009663,000948: 04,2250           42371        RESET22            CS       OCT700                                #  CLEAR RENDEZVOUS, P25
009664,000949: 04,2251           70074                           MASK     FLAGWRD0                              #  AND IMU IN USE FLAGS
009665,000950: 04,2252           54074                           TS       FLAGWRD0                              
009666,000951: 04,2253           06011                           TC       CLRADMOD                              

Page 231

009668,000953: 
009669,000954: 04,2254           00006        KILL2              EXTEND                                         #  NO, KILL 2
009670,000955: 04,2255           34755                           DCA      NEG0                                  
009671,000956: 04,2256           52755                           DXCH     -PHASE2                               
009672,000957: 
009673,000958: 04,2257           32364        P00FIZZ            CAF      V37QCAD                               #  RESTART POINT FOR V37XEQ
009674,000959: 04,2260           54374                           TS       TEMPFLSH                              
009675,000960: 
009676,000961: 04,2261           12224                           TCF      GOGOPROG                              
009677,000962: 
009678,000963: 04,2262           41011        RENDNOO            CS       MODREG                                
009679,000964: 04,2263           66007                           AD       OCT24                                 
009680,000965: 04,2264           00006                           EXTEND                                         
009681,000966: 04,2265           12254                           BZF      KILL2                                 #  P20 OR P25 ON TOP OF P20 OR P25 -
009682,000967: 
009683,000968: 04,2266           64756                           AD       FIVE                                  
009684,000969: 04,2267           00006                           EXTEND                                         
009685,000970: 04,2270           12254                           BZF      KILL2                                 
009686,000971: 
009687,000972: 04,2271           32324                           CA       OCT500                                
009688,000973: 04,2272           70074                           MASK     FLAGWRD0                              
009689,000974: 04,2273           60775                           AD       MMNUMBER                              
009690,000975: 04,2274           40000                           COM                                            
009691,000976: 04,2275           62327                           AD       P20REG                                #  IS IT 20 AND IS RENDEZVOUS FLAG ON
009692,000977: 04,2276           00006                           EXTEND                                         
009693,000978: 04,2277           12304                           BZF      STATQUO                               #  YES
009694,000979: 04,2300           62325                           AD       OCT305                                #  IS IT 25 AND IS P25 BIT ON
009695,000980: 04,2301           00006                           EXTEND                                         
009696,000981: 04,2302           12304                           BZF      STATQUO                               #  YES, LEAVE AS IS
009697,000982: 04,2303           12254                           TCF      KILL2                                 
009698,000983: 
009699,000984: 04,2304           40075        STATQUO            CS       FLAGWRD1                              #  SET TRACKFLAG
009700,000985: 04,2305           74775                           MASK     OCT120                                #        UPDATE FLAG
009701,000986: 04,2306           26075                           ADS      FLAGWRD1                              
009702,000987: 
009703,000988: 04,2307           12220                           TCF      GOMOD                                 
009704,000989: 
009705,000990: 04,2310           32324        NOUVEAU            CAF      OCT500                                #  IS P20 OR P25 FLAG SET
009706,000991: 04,2311           70074                           MASK     FLAGWRD0                              
009707,000992: 04,2312           10000                           CCS      A                                     
009708,000993: 04,2313           12316                           TCF      +3                                    #  YES
009709,000994: 04,2314           05516                           TC       DOWNFLAG                              #  NO, RESET IMUINUSE FLAG
009710,000995: 04,2315           00007                           ADRES    IMUSE                                 
009711,000996: 
009712,000997: 04,2316           50774                           INDEX    MINDEX                                
009713,000998: 04,2317           32500                           CAF      DNLADMM1                              #  OBTAIN APPROPRIATE DOWNLIST ADDRESS
009714,000999: 
009715,001000: 04,2320           00004                           INHINT                                         
009716,001001: 04,2321           12202                           TCF      SEUDOP00                              
009717,001002: 
009718,001003: 04,2322           04364        V37NONO            TC       FALTON                                #  COME HERE IF MM REQUESTED DOESNT EXIST

Page 232

009720,001005: 04,2323           12067                           TCF      V37BAD                                
009721,001006: 
009722,001007: 04,2324     4750               OCT00010           EQUALS   BIT4                                  
009723,001008: 04,2324           00500        OCT500             OCT      500                                   #  BITS 7 AND 9
009724,001009: 04,2325           00305        OCT305             OCT      305                                   
009725,001010: 04,2326           00026        OCT26              OCT      26                                    
009726,001011: 04,2327           00124        P20REG             OCT      124                                   
009727,001012: 
009728,001013: 04,2330           00004        V37XEQ             INHINT                                         
009729,001014: 04,2331           50774                           INDEX    MINDEX                                
009730,001015: 04,2332           32441                           CAF      PREMM1                                #  OBTAIN PRIO, EBANK, AND MM
009731,001016: 04,2333           55060                           TS       MMTEMP                                
009732,001017: 04,2334           54020                           TS       CYR                                   #  SHIFT RIGHT TO BITS 14-10
009733,001018: 
009734,001019: 04,2335           30020                           CA       CYR                                   
009735,001020: 04,2336           77725                           MASK     PRIO37                                
009736,001021: 04,2337           55062                           TS       PHSPRDT4                              #  PRESET GROUP 4 RESTART PRIORITY
009737,001022: 04,2340           54063                           TS       NEWPRIO                               #  STORE PRIO FOR SPVAC
009738,001023: 
009739,001024: 04,2341           31060                           CA       MMTEMP                                #  OBTAIN EBANK - BITS 8, 9, 10 OF MMTEMP.
009740,001025: 04,2342           00006                           EXTEND                                         
009741,001026: 04,2343           74744                           MP       BIT8                                  
009742,001027: 04,2344           74757                           MASK     LOW3                                  
009743,001028: 04,2345           54001                           TS       L                                     
009744,001029: 
009745,001030: 04,2346           50774                           INDEX    MINDEX                                
009746,001031: 04,2347           32403                           CAF      FCADRMM1                              
009747,001032: 04,2350           55061                           TS       BASETEMP                              #  MAKE BBCON BY ADDING HI5 OF FCADR
009748,001033: 04,2351           74350                           MASK     HI5                                   
009749,001034: 04,2352           26001                           ADS      L                                     
009750,001035: 
009751,001036: 04,2353           31061                           CA       BASETEMP                              #  OBTAIN GENADR PORTION OF 2CADR.
009752,001037: 04,2354           75012                           MASK     LOW10                                 
009753,001038: 04,2355           64741                           AD       BIT11                                 
009754,001039: 
009755,001040: 04,2356           05116                           TC       SPVAC                                 
009756,001041: 
009757,001042: 04,2357           31060        V37XEQC            CA       MMTEMP                                #  UPON RETURN FROM FINDVAC PLACE THE
009758,001043: 04,2360           76074                           MASK     LOW7                                  #  NEW MM IN MODREG (THE LOW 7 BITS OF
009759,001044: 04,2361           05314                           TC       NEWMODEA                              #  PHSPRDT1)
009760,001045: 
009761,001046: 04,2362           04457                           TC       RELDSP                                #  RELEASE DISPLAY
009762,001047: 04,2363           05155                           TC       ENDOFJOB                              #  AND EXIT
009763,001048: 
009764,001049: 04,2364     5660               NEG7               EQUALS   OCT77770                              
009765,001050: 
009766,001051: 04,2364     1060               MMTEMP             EQUALS   PHSPRDT3                              
009767,001052: 04,2364     1061               BASETEMP           EQUALS   TBASE4                                
009768,001053: 04,2364           10333        V37QCAD            CADR     V37XEQ     +3                         
009769,001054: 04,2365           10146        R00AD              CADR     DUMMYAD                               
009770,001055: 

Page 233

009772,001057: 04,2366           10120        V37RETAD           CADR     V37RET                                
009773,001058: 04,2367           37667        OCT37667           OCT      37667                                 
009774,001059: 04,2370           40072        OCT40072           OCT      40072                                 
009775,001060: 04,2371           00700        OCT700             OCT      700                                   
009776,001061: 
009777,001062: 04,2372           36245        SETUP71            CAF      THREE                                 
009778,001063: 04,2373           54002        SETUP70            TS       Q                                     
009779,001064: 04,2374           00006                           EXTEND                                         
009780,001065: 04,2375           32402                           DCA      P70CADR                               
009781,001066: 04,2376           60002                           AD       Q                                     
009782,001067: 04,2377           52006                           DTCB                                           
009783,001068: 
009784,001069: 04,2400           00106        DEC70              DEC      70         B-14                       
009785,001070: 04,2401  E7,1520                                  EBANK=   R                                     
009786,001071: 04,2401           02072 42067  P70CADR            2CADR    P70                                   
009787,001072: 
009788,001073:                                                                                                  #  FOR VERB 37 TWO TABLES ARE MAINTAINED.  EACH TABLE HAS AN ENTRY FOR EACH
009789,001074:                                                                                                  #  MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD.  THE ENTRIES ARE PUT
009790,001075:                                                                                                  #  INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
009791,001076:                                                                                                  #  TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
009792,001077: 
009793,001078:                                                                                                  #  THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
009794,001079:                                                                                                  #  THE MAJOR MODE.  FOR EXAMPLE, 
009795,001080: 
009796,001081:                                                                                                  #        FCADRMM1        FCADR   P79             START OF P 79
009797,001082:                                                                                                  #                        FCADR   PROG18          START OF P 18
009798,001083:                                                                                                  #                        FCADR   P01             START OF P 01
009799,001084: 
009800,001085:                                                                                                  #  NOTE,         THE FIRST ENTRY MUST BE LABLED FCADRMM1.
009801,001086:                                                                                                  #  ----
009802,001087: 
009803,001088: 04,2403           71526        FCADRMM1           FCADR    P79                                   
009804,001089: 04,2404           71274                           FCADR    P78                                   
009805,001090: 04,2405           26207                           FCADR    P76                                   
009806,001091: 04,2406           72731                           FCADR    P75                                   
009807,001092: 04,2407           72547                           FCADR    P74                                   
009808,001093: 04,2410           72220                           FCADR    P73                                   
009809,001094: 04,2411           72031                           FCADR    P72                                   
009810,001095: 04,2412           62144                           FCADR    LANDJUNK                              
009811,001096: 04,2413           64776                           FCADR    P63LM                                 
009812,001097: 04,2414           33314                           FCADR    P57                                   
009813,001098: 04,2415           32050                           FCADR    PROG52                                
009814,001099: 04,2416           31427                           FCADR    P51                                   
009815,001100: 04,2417           75436                           FCADR    P47LM                                 
009816,001101: 04,2420           75410                           FCADR    P42LM                                 
009817,001102: 04,2421           75272                           FCADR    P41LM                                 
009818,001103: 04,2422           75147                           FCADR    P40LM                                 
009819,001104: 04,2423           71521                           FCADR    P39                                   
009820,001105: 04,2424           71271                           FCADR    P38                                   

Page 234

009822,001107: 04,2425           72725                           FCADR    P35                                   
009823,001108: 04,2426           72545                           FCADR    P34                                   
009824,001109: 04,2427           72216                           FCADR    P33                                   
009825,001110: 04,2430           72027                           FCADR    P32                                   
009826,001111: 04,2431           72450                           FCADR    P31                                   
009827,001112: 04,2432           72000                           FCADR    P30                                   
009828,001113: 04,2433           50404                           FCADR    PROG25                                
009829,001114: 04,2434           50000                           FCADR    PROG22                                
009830,001115: 04,2435           51505                           FCADR    PROG21                                
009831,001116: 04,2436           50000                           FCADR    PROG20                                
009832,001117: 04,2437           60061                           FCADR    P12LM                                 
009833,001118: 04,2440           77655                           FCADR    P06                                   
009834,001119: 
009835,001120:                                                                                                  #  THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND PRIORITY
009836,001121:                                                                                                  #  INFORMATION, IT IS IN THE FOLLOWING FORM,
009837,001122: 
009838,001123:                                                                                                  #        PPP PPE EEM MMM MMM
009839,001124: 
009840,001125:                                                                                                  #        WHERE THE       7 M BITS CONTAIN THE MAJOR MODE NUMBER
009841,001126:                                                                                                  #                        3 E BITS CONTAIN THE E-BANK NUMBER
009842,001127:                                                                                                  #                        5 P BITS CONTAIN THE PRIORITY AT WHICH THE JOB IS
009843,001128:                                                                                                  #                            TO BE STARTED
009844,001129: 
009845,001130:                                                                                                  #        FOR EXAMPLE,
009846,001131: 
009847,001132:                                                                                                  #                PREMM1          OCT     67213           PRIORITY        33
009848,001133:                                                                                                  #                                                        E-BANK  5
009849,001134:                                                                                                  #                                                        MAJOR MODE      11
009850,001135:                                                                                                  #                                OCT     25437           PRIORITY        12
009851,001136:                                                                                                  #                                                        E-BANK  6
009852,001137:                                                                                                  #                                                        MAJOR MODE      31
009853,001138: 
009854,001139:                                                                                                  #  NOTE,         THE FIRST ENTRY MUST BE LABELED PREMM1
009855,001140: 
009856,001141: 04,2441           27717        PREMM1             OCT      27717                                 #  MM 79         EBANK 7         PRIO 13
009857,001142: 04,2442           27716                           OCT      27716                                 #  MM 78         EBANK 7         PRIO 13
009858,001143: 04,2443           27714                           OCT      27714                                 #  MM 76         EBANK 7         PRIO 13
009859,001144: 04,2444           27713                           OCT      27713                                 #  MM 75         EBANK 7         PRIO 13
009860,001145: 04,2445           27712                           OCT      27712                                 #  MM 74         EBANK 7         PRIO 13
009861,001146: 04,2446           27711                           OCT      27711                                 #  MM 73         EBANK 7         PRIO 13
009862,001147: 04,2447           27710                           OCT      27710                                 #  MM 72         EBANK 7         PRIO 13
009863,001148: 04,2450           27704                           OCT      27704                                 #  MM 68         EBANK 7         PRIO 13
009864,001149: 04,2451           27677                           OCT      27677                                 #  MM 63         EBANK 7         PRIO 13
009865,001150: 04,2452           27271                           OCT      27271                                 #  MM 57         EBANK 5         PRIO 13
009866,001151: 04,2453           27264                           OCT      27264                                 #  MM 52         EBANK 5         PRIO 13
009867,001152: 04,2454           27263                           OCT      27263                                 #  MM 51         EBANK 5         PRIO 13
009868,001153: 04,2455           27657                           OCT      27657                                 #  MM 47         EBANK 7         PRIO 13
009869,001154: 04,2456           27652                           OCT      27652                                 #  MM 42         EBANK 7         PRIO 13
009870,001155: 04,2457           27651                           OCT      27651                                 #  MM 41         EBANK 7         PRIO 13
009871,001156: 04,2460           27650                           OCT      27650                                 #  MM 40         EBANK 7         PRIO 13
009872,001157: 04,2461           27647                           OCT      27647                                 #  MM 39         EBANK 7         PRIO 13
009873,001158: 04,2462           27646                           OCT      27646                                 #  MM 38         EBANK 7         PRIO 13

Page 235

009875,001160: 04,2463           27643                           OCT      27643                                 #  MM 35         EBANK 7         PRIO 13
009876,001161: 04,2464           27642                           OCT      27642                                 #  MM 34         EBANK 7         PRIO 13
009877,001162: 04,2465           27641                           OCT      27641                                 #  MM 33         EBANK 7         PRIO 13
009878,001163: 04,2466           27640                           OCT      27640                                 #  MM 32         EBANK 7         PRIO 13
009879,001164: 04,2467           27637                           OCT      27637                                 #  MM 31         EBANK 7         PRIO 13
009880,001165: 04,2470           27636                           OCT      27636                                 #  MM 30         EBANK 7         PRIO 13
009881,001166: 04,2471           27631                           OCT      27631                                 #  MM 25         EBANK 7         PRIO 13
009882,001167: 04,2472           27626                           OCT      27626                                 #  MM 22         EBANK 7         PRIO 13
009883,001168: 04,2473           27625                           OCT      27625                                 #  MM 21         EBANK 7         PRIO 13
009884,001169: 04,2474           27624                           OCT      27624                                 #  MM 20         EBANK 7         PRIO 13
009885,001170: 04,2475           27614                           OCT      27614                                 #  MM 12         EBANK 7         PRIO 13
009886,001171: 04,2476           27006                           OCT      27006                                 #  MM 06         EBANK 4         PRIO 13
009887,001172: 
009888,001173:                                                                                                  #  NOTE,         THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
009889,001174:                                                                                                  #  ----          THE ABOVE LISTS-1(IE, THE NUMBER OF MAJOR MODES (EXCEPT P00)
009890,001175:                                                                                                  #                THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
009891,001176: 
009892,001177: 04,2477           00035        NOV37MM            DEC      29         B-14                       #  MM'S -1
009893,001178: 
009894,001179: 04,2500           00002        DNLADMM1           ADRES    RENDEZVU                              #  P79
009895,001180: 04,2501           00002                           ADRES    RENDEZVU                              #  P78
009896,001181: 04,2502           00002                           ADRES    RENDEZVU                              
009897,001182: 04,2503           00002                           ADRES    RENDEZVU                              #  P75
009898,001183: 04,2504           00002                           ADRES    RENDEZVU                              #  P74
009899,001184: 04,2505           00002                           ADRES    RENDEZVU                              #  P73
009900,001185: 04,2506           00002                           ADRES    RENDEZVU                              #  P72
009901,001186: 04,2507           00004                           ADRES    DESASCNT                              #  P68
009902,001187: 04,2510           00004                           ADRES    DESASCNT                              #  P63
009903,001188: 04,2511           00005                           ADRES    LUNRSALN                              #  P57
009904,001189: 04,2512           00000                           ADRES    COSTALIN                              #  P52
009905,001190: 04,2513           00000                           ADRES    COSTALIN                              #  P51
009906,001191: 04,2514           00003                           ADRES    ORBMANUV                              #  P47
009907,001192: 04,2515           00003                           ADRES    ORBMANUV                              #  P42
009908,001193: 04,2516           00003                           ADRES    ORBMANUV                              #  P41
009909,001194: 04,2517           00003                           ADRES    ORBMANUV                              #  P40
009910,001195: 04,2520           00002                           ADRES    RENDEZVU                              #  P39
009911,001196: 04,2521           00002                           ADRES    RENDEZVU                              #  P38
009912,001197: 04,2522           00002                           ADRES    RENDEZVU                              #  P35
009913,001198: 04,2523           00002                           ADRES    RENDEZVU                              #  P34
009914,001199: 04,2524           00002                           ADRES    RENDEZVU                              #  P33
009915,001200: 04,2525           00002                           ADRES    RENDEZVU                              #  P32
009916,001201: 04,2526           00002                           ADRES    RENDEZVU                              #  P31LM
009917,001202: 04,2527           00002                           ADRES    RENDEZVU                              #  P30
009918,001203: 04,2530           00002                           ADRES    RENDEZVU                              #  P25
009919,001204: 04,2531           00005                           ADRES    LUNRSALN                              #  P22
009920,001205: 04,2532           00002                           ADRES    RENDEZVU                              #  P21
009921,001206: 04,2533           00002                           ADRES    RENDEZVU                              #  P20
009922,001207: 04,2534           00004                           ADRES    DESASCNT                              #  P12
009923,001208: 04,2535           00000                           ADRES    COSTALIN                              #  P06
009924,001209: 04,2536     4755               DNLADP00           =        ZERO                                  
009925,001210: 04,2536                        COSTALIN           =        0                                     

Page 236

009927,001212: 04,2536                        AGSUPDAT           =        1                                     
009928,001213: 04,2536                        RENDEZVU           =        2                                     
009929,001214: 04,2536                        ORBMANUV           =        3                                     
009930,001215: 04,2536                        DESASCNT           =        4                                     
009931,001216: 04,2536                        LUNRSALN           =        5                                     
009932,001217: 
009933,001218: 13,2026                                           BANK     13                                    
009934,001219: 13,2000                                           SETLOC   INTINIT                               
009935,001220: 13,2000                                           BANK                                           
009936,001221: 
009937,001222: 13,2026                                           COUNT*   $$/INTIN                              
009938,001223: 
009939,001224: 13,2026  E3,1554                                  EBANK=   RRECTCSM                              
009940,001225: 
009941,001226:                                                                                                  #  THIS ROUTINE DOES THE POO INTEGRATION
009942,001227: 
009943,001228: 13,2026           43014        STATEUP            SET      BOF                                   #  EXTRAPOLATE CM STATE VECTOR
009944,001229: 13,2027           01474                                    VINTFLAG                              
009945,001230: 13,2030           04347                                    SURFFLAG                              #  ALSO 6X6 W-MATRIX IF LM ON LUNAR
009946,001231: 13,2031           26036                                    DOINT                                 #        SURFACE AND W-MATRIX VALID
009947,001232: 13,2032           43014                           BOF      SET                                   #        FOR RENDEZVOUS NAVIGATION.
009948,001233: 13,2033           02756                                    RENDWFLG                              
009949,001234: 13,2034           26036                                    DOINT                                 
009950,001235: 13,2035           01476                                    DIM0FLAG                              
009951,001236: 13,2036           45014        DOINT              CLEAR    CALL                                  
009952,001237: 13,2037           01667                                    PRECIFLG                              #  ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
009953,001238: 13,2040           27134                                    INTEGRV                               #  WHEN MODREG = 0
009954,001239: 
009955,001240: 13,2041           71214                           BON      DLOAD                                 
009956,001241: 13,2042           04307                                    SURFFLAG                              
009957,001242: 13,2043           26063                                    NO-INT                                
009958,001243: 13,2044           01571                                    TETCSM                                
009959,001244: 13,2045           34041                           STCALL   TDEC1                                 
009960,001245: 13,2046           27414                                    INTSTALL                              
009961,001246: 13,2047           45014                           CLEAR    CALL                                  #  EXTRAPOLATE LM STATE VECTOR
009962,001247: 13,2050           01674                                    VINTFLAG                              
009963,001248: 13,2051           26644                                    SETIFLGS                              
009964,001249: 13,2052           77614                           BOF                                            #  ALSO 9X9 W-MATRIX IF W IS VALID
009965,001250: 13,2053           02756                                    RENDWFLG                              
009966,001251: 13,2054           26060                                    DOINT2                                
009967,001252: 13,2055           43014                           SET      SET                                   
009968,001253: 13,2056           01476                                    DIM0FLAG                              
009969,001254: 13,2057           01475                                    D6OR9FLG                              
009970,001255: 13,2060           45014        DOINT2             SET      CALL                                  
009971,001256: 13,2061           01467                                    PRECIFLG                              #  DISENGAGE 4 TIME STEP LOGIC IN INTEG.
009972,001257: 13,2062           27134                                    INTEGRV                               
009973,001258: 13,2063           77614        NO-INT             CLRGO                                          
009974,001259: 13,2064           01236                                    NODOFLAG                              
009975,001260: 13,2065           26632                                    ENDINT                                

Page 237

009977,001262:                                                                                                  #  THISVINT IS CALLED BY MIDTOAV1 AND 2
009978,001263: 
009979,001264: 13,2066           43414        THISVINT           CLEAR    RVQ                                   
009980,001265: 13,2067           01674                                    VINTFLAG                              
009981,001266: 
009982,001267: 

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