Source Code

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

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

002603,000002:                                                                                                  ## Copyright:   Public domain.
002604,000003:                                                                                                  ## Filename:    RESTART_TABLES_AND_RESTARTS_ROUTINE.agc
002605,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
002606,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
002607,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
002608,000007:                                                                                                  ## Assembler:   yaYUL
002609,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
002610,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
002611,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
002612,000011:                                                                                                  ##              2016-10-04 RSB  Transcribed.
002613,000012:                                                                                                  ##              2016-10-30 MAS  Some spelling corrections and a missing 2CADR symbol.
002614,000013:                                                                                                  ##              2016-11-01 RSB  Typos.
002615,000014:                                                                                                  ##              2016-11-02 RSB  More typos.
002616,000015:                                                                                                  ##              2016-11-03 RSB  Added a bunch of SBANK= workarounds.
002617,000016:                                                                                                  ##              2016-12-03 RSB  Used octopus/ProoferComments to proof comments.
002618,000017:                                                                                                  ##                              Fixed 17 errors in 15 pages, but process isn't
002619,000018:                                                                                                  ##                              complete.
002620,000019:                                                                                                  ##              2016-12-05 RSB  Fixed more comments with octopus/ProoferComments;
002621,000020:                                                                                                  ##                              comment-proofing process complete.
002622,000021:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes identified while proofing Artemis 72.
002623,000022:                                                                                                  ##              2017-06-17 MAS  Globally removed all SBANK= workarounds.
002624,000023: 

Page 62

002626,000025:                                                                                                  #  RESTART TABLES
002627,000026:                                                                                                  #   DO NOT REMOVE FROM THE BEGINNING OF THIS BANK
002628,000027:                                                                                                  #  ------------------
002629,000028: 
002630,000029:                                                                                                  #  THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP.  THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
002631,000030:                                                                                                  #  RESTART TABLES.  THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
002632,000031:                                                                                                  #  EACH USING THREE LOCATIONS.  THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
002633,000032:                                                                                                  #  WAY THINGS ARE PUT IN TO THE TABLES.
002634,000033:                                                                                                  #       A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT WITH ITS 2CADR IN THE CADRTAB. FOR
002635,000034:                                                                                                  #  EXAMPLE,
002636,000035: 
002637,000036:                                                                                                  #                5.7SPOT         OCT     23000
002638,000037:                                                                                                  #                                2CADR   SOMEJOB
002639,000038: 
002640,000039:                                                                                                  #  A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED WITH A PRIORITY OF 23.
002641,000040: 
002642,000041:                                                                                                  #  A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY.  IN ITS PRDTTAB IS
002643,000042:                                                                                                  #  PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
002644,000043:                                                                                                  #  WITH.  EXAMPLE,
002645,000044: 
002646,000045:                                                                                                  #                3.6SPOT         GENADR  DELTAT
002647,000046:                                                                                                  #                               -GENADR  LONGTASK
002648,000047:                                                                                                  #                                BBCON   LONGTASK
002649,000048: 
002650,000049:                                                                                                  #                                OCT     31000
002651,000050:                                                                                                  #                                2CADR   JOBAGAIN
002652,000051: 
002653,000052:                                                                                                  #  THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED.  IT SHOULD
002654,000053:                                                                                                  #  BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OF THE 2CADR OF THE
002655,000054:                                                                                                  #  TASK.  FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
002656,000055: 
002657,000056:                                                                                                  #  WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY.  IF PRDTTAB OF THE PHASE SPOT
002658,000057:                                                                                                  #  IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
002659,000058:                                                                                                  #  LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY.  IT SHOULD BE NOTED AS ABOVE, THAT
002660,000059:                                                                                                  #  IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE.  WITH
002661,000060:                                                                                                  #  WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
002662,000061:                                                                                                  #  TASK.  EXAMPLES,
002663,000062: 
002664,000063:                                                                                                  #                                OCT     77777           THIS WILL CAUSE AN IMMEDIATE RESTART
002665,000064:                                                                                                  #                                -2CADR  ATASK           OF THE TASK :ATASK:
002666,000065:                                                                                                  #        
002667,000066:                                                                                                  #                                DEC     200             IF THE TIME OF THE 2 SECONDS SINCE DUMMY
002668,000067:                                                                                                  #                                -2CADR  DUMMY           WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
002669,000068:                                                                                                  #                                                        IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
002670,000069:                                                                                                  #                                                        IT NORMALLY WOULD HAVE BEGUN.
002671,000070: 
002672,000071:                                                                                                  #                                -GENADR DTIME           WHERE DTIME CONTAINS THE DELTA TIME
002673,000072:                                                                                                  #                                -2CADR  TASKTASK        OTHERWISE THIS IS AS ABOVE
002674,000073: 
002675,000074:                                                                                                  #  ***** NOW THE TABLES THEMSELVES *****

Page 63

002677,000076: 
002678,000077:    4064                        PRDTTAB            EQUALS   24000                                 #  USED TO FIND THE PRIORITY OR DELTA TIME
002679,000078:    4064                        CADRTAB            EQUALS   24001                                 #  THIS AND THE NEXT LOCATION (RELATIVE)
002680,000079:                                                                                                  #      CONTAIN THE RESTART CADR
002681,000080: 
002682,000081: 06,2000                                           BANK     06                                    
002683,000082: 06,2000  E3,1400                                  EBANK=   LST1                                  #  GOPROG MUST SWITCH IN THIS EBANK
002684,000083: 
002685,000084: 06,2000           02627        PHS2CADR           GENADR   PHSPART2                              #  DO NOT REMOVE THE FOLLOWING 6 LOCATIONS
002686,000085: 06,2001           02414        PRT2CADR           GENADR   GETPART2                              #      FROM BEGINNING OF BANK
002687,000086: 06,2002           05741        LGCLCADR           GENADR   LONGCALL                              
002688,000087: 06,2003           05516        FVACCADR           GENADR   FINDVAC                               
002689,000088: 06,2004           05663        WTLTCADR           GENADR   WAITLIST                              
002690,000089: 06,2005           05221        RTRNCADR           TC       SWRETURN                              
002691,000090: 
002692,000091: 06,2006           10000        1.2SPOT            OCT      10000                                 #  TEMPORARY ENTRY TO ESTABLISH TABLE
002693,000092: 06,2007  E3,1400                                  EBANK=   LST1                                  
002694,000093: 06,2007           05576 04003                     2CADR    DUMMYJOB                              
002695,000094: 
002696,000095: 06,2011           10000                           OCT      10000                                 
002697,000096: 06,2012  E3,1400                                  EBANK=   LST1                                  
002698,000097: 06,2012           05576 04003                     2CADR    DUMMYJOB                              
002699,000098: 
002700,000099:                                                                                                  #  ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
002701,000100: 
002702,000101: 06,2014           00303        1.3SPOT            DEC      195        B-14                       
002703,000102: 06,2015  E5,1565                                  EBANK=   ETHROT                                
002704,000103: 06,2015           74321 17712                     -2CADR   PCNTOVER                              
002705,000104: 
002706,000105:                                                                                                  #  ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
002707,000106: 
002708,000107: 06,2017           20000        2.2SPOT            OCT      20000                                 
002709,000108: 06,2020  E4,1566                                  EBANK=   TDEC                                  
002710,000109: 06,2020           02063 74064                     2CADR    11REDO2                               
002711,000110: 
002712,000111: 06,2022           01304                           GENADR   TDECTEMP                              
002713,000112: 06,2023           75657                           -GENADR  TIG11-30                              
002714,000113: 06,2024  E4,1566                                  EBANK=   TDEC                                  
002715,000114: 06,2024           74064                           BBCON    TIG11-30                              
002716,000115: 
002717,000116: 06,2025           15530        2.4SPOT            DEC      7000       B-14                       
002718,000117: 06,2026  E4,1566                                  EBANK=   TDEC                                  
002719,000118: 06,2026           74741 11713                     -2CADR   POSTKALC                              
002720,000119: 
002721,000120: 06,2030           20000                           OCT      20000                                 
002722,000121: 06,2031  E4,1566                                  EBANK=   TDEC                                  
002723,000122: 06,2031           03023 66064                     2CADR    CALLKALC                              
002724,000123: 
002725,000124:                                                                                                  #  ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE

Page 64

002727,000126: 
002728,000127: 06,2033           77777        2.3SPOT            OCT      77777                                 #  MISSION SCHEDULING PACKAGE TO SET UP
002729,000128: 06,2034  E3,1400                                  EBANK=   LST1                                  
002730,000129: 06,2034           75646 15714                     -2CADR   REDOMDUE                              
002731,000130: 
002732,000131: 06,2036           12574        2.5SPOT            DEC      5500       B-14                       
002733,000132: 06,2037  E4,1566                                  EBANK=   TDEC                                  
002734,000133: 06,2037           75123 25773                     -2CADR   SIVB2                                 
002735,000134: 
002736,000135: 06,2041           77777        2.7SPOT            OCT      77777                                 
002737,000136: 06,2042  E4,1566                                  EBANK=   TDEC                                  
002738,000137: 06,2042           75614 25773                     -2CADR   SBORBA                                
002739,000138: 
002740,000139: 06,2044           00620        2.11SPOT           DEC      400        B-14                       
002741,000140: 06,2045  E4,1566                                  EBANK=   TDEC                                  
002742,000141: 06,2045           75470 25773                     -2CADR   SBORB8                                
002743,000142: 
002744,000143: 06,2047           76035        2.13SPOT           -GENADR  DT-LIFT                               
002745,000144: 06,2050  E3,1736                                  EBANK=   TGRR                                  
002746,000145: 06,2050           75554 21774                     -2CADR   LIFTOFF                               
002747,000146: 
002748,000147: 06,2052           01274        2.15SPOT           DEC      700        B-14                       
002749,000148: 06,2053  E4,1566                                  EBANK=   TDEC                                  
002750,000149: 06,2053           75426 11713                     -2CADR   TIG4-41                               
002751,000150: 
002752,000151: 06,2055           00310        2.17SPOT           DEC      200        B-14                       
002753,000152: 06,2056  E4,1566                                  EBANK=   TDEC                                  
002754,000153: 06,2056           75361 11713                     -2CADR   TIG4-34                               
002755,000154: 
002756,000155: 06,2060           77777        2.21SPOT           OCT      77777                                 
002757,000156: 06,2061  E4,1566                                  EBANK=   TDEC                                  
002758,000157: 06,2061           75621 03713                     -2CADR   DPSTART                               
002759,000158: 
002760,000159: 06,2063           01356        2.23SPOT           DEC      750        B-14                       
002761,000160: 06,2064  E4,1566                                  EBANK=   TDEC                                  
002762,000161: 06,2064           75566 03713                     -2CADR   TIG11                                 
002763,000162: 
002764,000163: 06,2066           77777        2.25SPOT           OCT      77777                                 
002765,000164: 06,2067  E4,1566                                  EBANK=   TDEC                                  
002766,000165: 06,2067           75361 03713                     -2CADR   MP11HOLD                              
002767,000166: 
002768,000167: 06,2071           00144        2.27SPOT           DEC      100        B-14                       
002769,000168: 06,2072  E4,1566                                  EBANK=   TDEC                                  
002770,000169: 06,2072           75314 03713                     -2CADR   MP11OUT                               
002771,000170: 
002772,000171: 06,2074           20000        2.31SPOT           OCT      20000                                 
002773,000172: 06,2075  E4,1566                                  EBANK=   TDEC                                  
002774,000173: 06,2075           02017 74064                     2CADR    11REDO1                               
002775,000174: 
002776,000175: 06,2077           20000        2.33SPOT           OCT      20000                                 
002777,000176: 06,2100  E4,1566                                  EBANK=   TDEC                                  

Page 65

002779,000178: 06,2100           02032 74064                     2CADR    INTRTN                                
002780,000179: 
002781,000180: 06,2102           01304        2.35SPOT           GENADR   TDECTEMP                              
002782,000181: 06,2103           75657                           -GENADR  TIG11-30                              
002783,000182: 06,2104  E4,1566                                  EBANK=   TDEC                                  
002784,000183: 06,2104           74064                           BBCON    TIG11-30                              
002785,000184: 
002786,000185: 06,2105           77777        2.37SPOT           OCT      77777                                 
002787,000186: 06,2106  E4,1566                                  EBANK=   TDEC                                  
002788,000187: 06,2106           75453 03713                     -2CADR   MOVENDX                               
002789,000188: 
002790,000189: 06,2110           01750        2.41SPOT           DEC      1000       B-14                       
002791,000190: 06,2111  E4,1566                                  EBANK=   TDEC                                  
002792,000191: 06,2111           75445 03713                     -2CADR   CCSMPRET                              
002793,000192: 
002794,000193: 06,2113           15530        2.43SPOT           DEC      7000       B-14                       
002795,000194: 06,2114  E4,1566                                  EBANK=   TDEC                                  
002796,000195: 06,2114           74741 11713                     -2CADR   POSTKALC                              
002797,000196: 
002798,000197: 06,2116           02114        2.45SPOT           DEC      1100       B-14                       
002799,000198: 06,2117  E4,1566                                  EBANK=   TDEC                                  
002800,000199: 06,2117           74665 11713                     -2CADR   182LMP                                
002801,000200: 
002802,000201: 06,2121           11610        2.47SPOT           DEC      5000       B-14                       
002803,000202: 06,2122  E4,1566                                  EBANK=   TDEC                                  
002804,000203: 06,2122           74327 11713                     -2CADR   228LMP                                
002805,000204: 
002806,000205: 06,2124           00062        2.51SPOT           DEC      50         B-14                       
002807,000206: 06,2125     1072                                  EBANK=   AVGEXIT                               
002808,000207: 06,2125           74535 11715                     -2CADR   9ULLOFF                               
002809,000208: 
002810,000209: 06,2127           00372        2.53SPOT           DEC      250        B-14                       
002811,000210: 06,2130     1072                                  EBANK=   AVGEXIT                               
002812,000211: 06,2130           74527 11715                     -2CADR   9EDBATT                               
002813,000212: 
002814,000213: 06,2132           76473        2.55SPOT           -GENADR  TDECTEMP                              
002815,000214: 06,2133  E4,1566                                  EBANK=   TDEC                                  
002816,000215: 06,2133           74437 11713                     -2CADR   CUTOFF                                
002817,000216: 
002818,000217: 06,2135           00764        2.57SPOT           DEC      500        B-14                       
002819,000218: 06,2136  E4,1566                                  EBANK=   TDEC                                  
002820,000219: 06,2136           74415 11713                     -2CADR   87LMP                                 
002821,000220: 
002822,000221: 06,2140           77777        2.61SPOT           OCT      77777                                 
002823,000222: 06,2141  E3,1736                                  EBANK=   TGRR                                  
002824,000223: 06,2141           75547 21774                     -2CADR   REDO2.61                              
002825,000224: 
002826,000225: 06,2143           77777        2.63SPOT           OCT      77777                                 
002827,000226: 06,2144  E3,1736                                  EBANK=   TGRR                                  
002828,000227: 06,2144           75534 21774                     -2CADR   REDO2.63                              
002829,000228: 

Page 66

002831,000230:                                                                                                  #  ANY MORE GROUP 2.0DD RESTART VALUES SHOULD GO HERE
002832,000231: 
002833,000232: 06,2146  06,2006               3.2SPOT            EQUALS   1.2SPOT                               
002834,000233: 
002835,000234:                                                                                                  #  ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
002836,000235: 
002837,000236: 06,2146           00062        3.3SPOT            DEC      50         B-14                       
002838,000237: 06,2147  E4,1566                                  EBANK=   TDEC                                  
002839,000238: 06,2147           75415 03713                     -2CADR   ABMON                                 
002840,000239: 
002841,000240: 06,2151           77777        3.5SPOT            OCT      77777                                 
002842,000241: 06,2152  E4,1566                                  EBANK=   TDEC                                  
002843,000242: 06,2152           75307 17713                     -2CADR   TUMTASK                               
002844,000243: 
002845,000244: 06,2154           01743        3.7SPOT            GENADR   DT-LETJT                              
002846,000245: 06,2155           75507                           -GENADR  POSTLET                               
002847,000246: 06,2156  E3,1736                                  EBANK=   TGRR                                  
002848,000247: 06,2156           56003                           BBCON    POSTLET                               
002849,000248: 
002850,000249: 06,2157           77777        3.11SPOT           OCT      77777                                 
002851,000250: 06,2160     1164                                  EBANK=   MTIMER4                               
002852,000251: 06,2160           75740 15715                     -2CADR   REDO3.11                              
002853,000252: 
002854,000253: 06,2162           00144        3.13SPOT           DEC      100        B-14                       
002855,000254: 06,2163     1164                                  EBANK=   MTIMER4                               
002856,000255: 06,2163           75777 15715                     -2CADR   MMAINT                                
002857,000256: 
002858,000257: 06,2165           02260        3.15SPOT           DEC      1200       B-14                       
002859,000258: 06,2166  E4,1566                                  EBANK=   TDEC                                  
002860,000259: 06,2166           75224 03713                     -2CADR   NEXLMP                                
002861,000260: 
002862,000261: 06,2170           00310        3.17SPOT           DEC      200        B-14                       
002863,000262: 06,2171  E4,1566                                  EBANK=   TDEC                                  
002864,000263: 06,2171           75215 03713                     -2CADR   NEXLMP1                               
002865,000264: 
002866,000265: 06,2173           00144        3.21SPOT           DEC      100        B-14                       
002867,000266: 06,2174  E4,1566                                  EBANK=   TDEC                                  
002868,000267: 06,2174           75207 03713                     -2CADR   NEXLMP2                               
002869,000268: 
002870,000269: 06,2176           13560        3.23SPOT           DEC      6000       B-14                       
002871,000270: 06,2177  E4,1566                                  EBANK=   TDEC                                  
002872,000271: 06,2177           75200 03713                     -2CADR   NEXLMP3                               
002873,000272: 
002874,000273: 06,2201           00144        3.25SPOT           DEC      100        B-14                       
002875,000274: 06,2202  E4,1566                                  EBANK=   TDEC                                  
002876,000275: 06,2202           75232 03713                     -2CADR   MP11TASK                              
002877,000276: 
002878,000277: 06,2204           20000        3.27SPOT           OCT      20000                                 
002879,000278: 06,2205  E5,1400                                  EBANK=   XSM                                   
002880,000279: 06,2205           02651 72065                     2CADR    REDO3.27                              
002881,000280: 

Page 67

002883,000282: 06,2207           77777        3.31SPOT           OCT      77777                                 
002884,000283: 06,2210  E4,1745                                  EBANK=   TTGO                                  
002885,000284: 06,2210           74326 21773                     -2CADR   DUMMY13                               
002886,000285: 
002887,000286: 06,2212           04704        3.33SPOT           DEC      2500       B-14                       
002888,000287: 06,2213  E4,1745                                  EBANK=   TTGO                                  
002889,000288: 06,2213           74272 21773                     -2CADR   TRMDMY13                              
002890,000289: 
002891,000290:                                                                                                  #  ANY MORE GROUP 3.0DD RESTART VALUES SHOULD GO HERE
002892,000291: 
002893,000292: 06,2215  06,2006               4.2SPOT            EQUALS   1.2SPOT                               
002894,000293: 
002895,000294:                                                                                                  #  ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
002896,000295: 
002897,000296: 06,2215           30000        4.3SPOT            OCT      30000                                 
002898,000297: 06,2216  E5,1565                                  EBANK=   ETHROT                                
002899,000298: 06,2216           03540 60065                     2CADR    ACCLJOB                               
002900,000299: 
002901,000300: 06,2220           10000        4.5SPOT            OCT      10000                                 
002902,000301: 06,2221  E3,1652                                  EBANK=   RATEINDX                              
002903,000302: 06,2221           02670 56003                     2CADR    COLDSOAK                              
002904,000303: 
002905,000304: 06,2223           15000        4.7SPOT            OCT      15000                                 
002906,000305: 06,2224  E3,1736                                  EBANK=   TGRR                                  
002907,000306: 06,2224           02056 56003                     2CADR    MP2JOB                                
002908,000307: 
002909,000308: 06,2226           25000        4.11SPOT           OCT      25000                                 
002910,000309: 06,2227  E5,1565                                  EBANK=   ETHROT                                
002911,000310: 06,2227           03507 60065                     2CADR    PCNTJOB                               
002912,000311: 
002913,000312: 06,2231           01304        4.13SPOT           GENADR   TDECTEMP                              
002914,000313: 06,2232           74643                           -GENADR  TIG9-66                               
002915,000314: 06,2233  E4,1566                                  EBANK=   TDEC                                  
002916,000315: 06,2233           66064                           BBCON    TIG9-66                               
002917,000316: 
002918,000317: 06,2234           27000        4.15SPOT           OCT      27000                                 
002919,000318: 06,2235  E4,1566                                  EBANK=   TDEC                                  
002920,000319: 06,2235           03157 66064                     2CADR    ORBINTJB                              
002921,000320: 
002922,000321: 06,2237           76472        4.17SPOT           -GENADR  TDECTEMP   +1                         
002923,000322: 06,2240     1072                                  EBANK=   AVGEXIT                               
002924,000323: 06,2240           74547 11715                     -2CADR   TIG9-0                                
002925,000324: 
002926,000325:                                                                                                  #  ANY MORE GROUP 4.0DD RESTART VALUES SHOULD GO HERE
002927,000326: 
002928,000327: 06,2242           21000        5.2SPOT            OCT      21000                                 
002929,000328: 06,2243  E4,1514                                  EBANK=   RAVEGON                               
002930,000329: 06,2243           02412 60064                     2CADR    NORMLIZE                              
002931,000330: 
002932,000331: 06,2245           00310                           DEC      200        B-14                       

Page 68

002934,000333: 06,2246  E5,1511                                  EBANK=   DVCNTR                                
002935,000334: 06,2246           75144 17712                     -2CADR   REREADAC                              
002936,000335: 
002937,000336: 06,2250           00310        5.4SPOT            DEC      200        B-14                       
002938,000337: 06,2251  E5,1570                                  EBANK=   BMEMORY                               
002939,000338: 06,2251           75777 17712                     -2CADR   PREREAD                               
002940,000339: 
002941,000340: 06,2253           32000                           OCT      32000                                 
002942,000341: 06,2254  E3,1400                                  EBANK=   LST1                                  
002943,000342: 06,2254           03575 24003                     2CADR    LASTBIAS                              
002944,000343: 
002945,000344: 06,2256           00310        5.6SPOT            DEC      200        B-14                       
002946,000345: 06,2257  E5,1511                                  EBANK=   DVCNTR                                
002947,000346: 06,2257           75144 17712                     -2CADR   REREADAC                              
002948,000347: 
002949,000348: 06,2261           20000                           OCT      20000                                 
002950,000349: 06,2262  E5,1511                                  EBANK=   DVCNTR                                
002951,000350: 06,2262           02133 60065                     2CADR    SERVICER                              
002952,000351: 
002953,000352:                                                                                                  #  ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
002954,000353: 
002955,000354: 06,2264           00310        5.3SPOT            DEC      200        B-14                       
002956,000355: 06,2265  E5,1511                                  EBANK=   DVCNTR                                
002957,000356: 06,2265           75144 17712                     -2CADR   REREADAC                              
002958,000357: 
002959,000358: 06,2267           00000 00000  5.5SPOT            2DEC     0          B-28                       #  5.5 SPOT NOT USED
002960,000359: 
002961,000360: 06,2271           00000                           DEC      0          B-14                       
002962,000361: 
002963,000362: 06,2272           20000        5.7SPOT            OCT      20000                                 
002964,000363: 06,2273  E5,1400                                  EBANK=   XSM                                   
002965,000364: 06,2273           02020 72065                     2CADR    RSTGTS1                               
002966,000365: 
002967,000366: 06,2275           77777        5.11SPOT           OCT      77777                                 
002968,000367: 06,2276  E5,1400                                  EBANK=   XSM                                   
002969,000368: 06,2276           75706 05712                     -2CADR   ALLOOP1                               
002970,000369: 
002971,000370: 06,2300           20000        5.13SPOT           OCT      20000                                 
002972,000371: 06,2301  E5,1400                                  EBANK=   XSM                                   
002973,000372: 06,2301           02727 72065                     2CADR    WTLISTNT                              
002974,000373: 
002975,000374: 06,2303           20000        5.15SPOT           OCT      20000                                 
002976,000375: 06,2304  E5,1400                                  EBANK=   XSM                                   
002977,000376: 06,2304           02757 72065                     2CADR    NOCHORLD                              
002978,000377: 
002979,000378: 06,2306           20000        5.17SPOT           OCT      20000                                 
002980,000379: 06,2307  E5,1400                                  EBANK=   XSM                                   
002981,000380: 06,2307           02710 72065                     2CADR    GEOSTRT4                              
002982,000381: 
002983,000382: 06,2311           20000        5.21SPOT           OCT      20000                                 

Page 69

002985,000384: 06,2312  E5,1400                                  EBANK=   XSM                                   
002986,000385: 06,2312           02126 72065                     2CADR    ALFLT1                                
002987,000386: 
002988,000387: 06,2314           77777        5.23SPOT           OCT      77777                                 
002989,000388: 06,2315  E5,1400                                  EBANK=   XSM                                   
002990,000389: 06,2315           75666 05712                     -2CADR   SPECSTS                               
002991,000390: 
002992,000391: 06,2317           20000        5.25SPOT           OCT      20000                                 
002993,000392: 06,2320  E5,1400                                  EBANK=   XSM                                   
002994,000393: 06,2320           02630 72065                     2CADR    RESTAIER                              
002995,000394: 
002996,000395: 06,2322           00620        5.27SPOT           DEC      400        B-14                       
002997,000396: 06,2323  E5,1506                                  EBANK=   DVTOTAL                               
002998,000397: 06,2323           75777 17712                     -2CADR   PREREAD                               
002999,000398: 
003000,000399: 06,2325           77777        5.31SPOT           OCT      77777                                 
003001,000400: 06,2326  E5,1537                                  EBANK=   NEGXDV                                
003002,000401: 06,2326           75707 17712                     -2CADR   REDO5.31                              
003003,000402: 
003004,000403: 06,2330           77777        5.33SPOT           OCT      77777                                 
003005,000404: 06,2331  E5,1511                                  EBANK=   DVCNTR                                
003006,000405: 06,2331           75777 17712                     -2CADR   PREREAD                               
003007,000406: 
003008,000407: 06,2333           76435        5.35SPOT           -GENADR  RSDTTEMP                              
003009,000408: 06,2334  E5,1506                                  EBANK=   DVTOTAL                               
003010,000409: 06,2334           75777 17712                     -2CADR   PREREAD                               
003011,000410: 
003012,000411: 06,2336           77777        5.37SPOT           OCT      77777                                 
003013,000412: 06,2337  E3,1736                                  EBANK=   TGRR                                  
003014,000413: 06,2337           75754 21774                     -2CADR   SETPIPDT                              
003015,000414: 
003016,000415:                                                                                                  #  ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
003017,000416: 
003018,000417: 06,2341           00764        6.2SPOT            DEC      500        B-14                       
003019,000418: 06,2342  E7,1407                                  EBANK=   DNTMBUFF                              
003020,000419: 06,2342           75225 55770                     -2CADR   DAPOFF                                
003021,000420: 
003022,000421: 06,2344           30000                           OCT      30000                                 
003023,000422: 06,2345  E7,1407                                  EBANK=   DNTMBUFF                              
003024,000423: 06,2345           02541 22007                     2CADR    TGOFF                                 
003025,000424: 
003026,000425:                                                                                                  #  ANY MORE GROUP 6.EVEN RESTART VALUES SHOULD GO HERE
003027,000426: 
003028,000427: 06,2347           00764        6.3SPOT            DEC      500        B-14                       
003029,000428: 06,2350  E7,1407                                  EBANK=   DNTMBUFF                              
003030,000429: 06,2350           75225 55770                     -2CADR   DAPOFF                                
003031,000430: 
003032,000431: 06,2352           33000        6.5SPOT            OCTAL    33000                                 
003033,000432: 06,2353  E4,1677                                  EBANK=   STBUFF                                
003034,000433: 06,2353           02440 54004                     2CADR    I=4.CONT                              
003035,000434: 

Page 70

003037,000436: 06,2355           30000        6.7SPOT            OCT      30000                                 
003038,000437: 06,2356  E4,1677                                  EBANK=   STBUFF                                
003039,000438: 06,2356           02464 54004                     2CADR    UPQUITRM                              
003040,000439: 
003041,000440: 06,2360           76432        6.11SPOT           -GENADR  DAPOFFDT                              
003042,000441: 06,2361  E7,1407                                  EBANK=   DNTMBUFF                              
003043,000442: 06,2361           75504 03710                     -2CADR   11DAPOFF                              
003044,000443: 
003045,000444:                                                                                                  #  ANY MORE GROUP 6.0DD RESTART VALUES SHOULD GO HERE
003046,000445: 
003047,000446: 06,2363           00000        SIZETAB            GENADR   1.2SPOT    -24006                     
003048,000447: 06,2364           00010                           GENADR   1.3SPOT    -24004                     
003049,000448: 06,2365           00011                           GENADR   2.2SPOT    -24006                     
003050,000449: 06,2366           00027                           GENADR   2.3SPOT    -24004                     
003051,000450: 06,2367           00000                           GENADR   3.2SPOT    -24006                     
003052,000451: 06,2370           00142                           GENADR   3.3SPOT    -24004                     
003053,000452: 06,2371           00000                           GENADR   4.2SPOT    -24006                     
003054,000453: 06,2372           00211                           GENADR   4.3SPOT    -24004                     
003055,000454: 06,2373           00234                           GENADR   5.2SPOT    -24006                     
003056,000455: 06,2374           00260                           GENADR   5.3SPOT    -24004                     
003057,000456: 06,2375           00333                           GENADR   6.2SPOT    -24006                     
003058,000457: 06,2376           00343                           GENADR   6.3SPOT    -24004                     
003059,000458: 

Page 71

003061,000460: 06,2377           30151        RESTARTS           CA       MPAC       +5                         #  GET GROUP NUMBER -1
003062,000461: 06,2400           60000                           DOUBLE                                         #  SAVE FOR INDEXING
003063,000462: 06,2401           54145                           TS       TEMP2G                                
003064,000463: 
003065,000464: 06,2402           32003                           CA       FVACCADR                              #  LET:S ASSUME THIS IS A JOB, THIS WILL
003066,000465: 06,2403           54734                           TS       GOLOC      -1                         #  SAVE US A COUPLE OF LOCATIONS, BUT NOT 
003067,000466:                                                                                                  #  NECESSARIALY ANY TIME  - SO BE IT -
003068,000467: 
003069,000468: 06,2404           32000                           CA       PHS2CADR                              #  SET UP EXIT IN CASE IT IS AN EVEN
003070,000469: 06,2405           54147                           TS       TEMPSWCH                              #  TABLE PHASE
003071,000470: 
003072,000471: 06,2406           32005                           CA       RTRNCADR                              #  TO SAVE TIME ASSUME IT WILL GET NEXT
003073,000472: 06,2407           54737                           TS       GOLOC      +2                         #  GROUP AFTER THIS
003074,000473: 
003075,000474: 06,2410           30144                           CA       TEMPPHS                               
003076,000475: 06,2411           75352                           MASK     OCT1400                               
003077,000476: 06,2412           10000                           CCS      A                                     #  IS IT A VARIABLE OR TABLE RESTART
003078,000477: 06,2413           12424                           TCF      ITSAVAR                               #  IT;S A VARIABLE RESTART
003079,000478: 
003080,000479: 06,2414           10144        GETPART2           CCS      TEMPPHS                               #  IS IT AN X.1 RESTART
003081,000480: 06,2415           10000                           CCS      A                                     
003082,000481: 06,2416           12513                           TCF      ITSATBL                               #  NO, ITS A TABLE RESTART
003083,000482: 
003084,000483: 06,2417           35640                           CA       PRIO14                                #  IT IS AN X.1 RESTART, THEREFORE START
003085,000484: 06,2420           05516                           TC       FINDVAC                               #  THE DISPLAY RESTART JOB
003086,000485: 06,2421  E3,1400                                  EBANK=   LST1                                  
003087,000486: 06,2421           05567 04003                     2CADR    INITDSP                               
003088,000487: 
003089,000488: 06,2423           02005                           TC       RTRNCADR                              #  FINISHED WITH THIS GROUP, GET NEXT ONE
003090,000489: 
003091,000490: 06,2424     5567               INITDSP            EQUALS   ENDOFJOB                              
003092,000491: 
003093,000492: 06,2424           75352        ITSAVAR            MASK     OCT1400                               #  IS IT TYPE B ?
003094,000493: 06,2425           10000                           CCS      A                                     
003095,000494: 06,2426           12475                           TCF      ITSLIKEB                              #  YES, IT IS TYPE B
003096,000495: 
003097,000496: 06,2427           00006                           EXTEND                                         #  STORE THE JOB (OR TASK) 2CADR FOR EXIT
003098,000497: 06,2430           50145                           NDX      TEMP2G                                
003099,000498: 06,2431           31517                           DCA      PHSNAME1                              
003100,000499: 06,2432           52736                           DXCH     GOLOC                                 
003101,000500: 
003102,000501: 06,2433           30144                           CA       TEMPPHS                               #  SEE IF THIS IS A JOB, TASK, OR A LONGCAL
003103,000502: 06,2434           77765                           MASK     OCT7                                  
003104,000503: 06,2435           65336                           AD       MINUS2                                
003105,000504: 06,2436           10000                           CCS      A                                     
003106,000505: 06,2437           12576                           TCF      ITSLNGCL                              #  ITS A LONGCALL
003107,000506: 
003108,000507: 06,2440           37776        OCT37776           OCT      37776                                 #  CANT GET HERE
003109,000508: 

Page 72

003111,000510: 06,2441           12443                           TCF      ITSAWAIT                              
003112,000511: 
003113,000512: 06,2442           12510                           TCF      ITSAJOB                               #  ITS A JOB
003114,000513: 
003115,000514: 06,2443           32004        ITSAWAIT           CA       WTLTCADR                              #  SET UP WAITLIST CALL
003116,000515: 06,2444           54734                           TS       GOLOC      -1                         
003117,000516: 
003118,000517: 06,2445           50145                           NDX      TEMP2G                                #  DIRECTLY STORED
003119,000518: 06,2446           31114                           CA       PHSPRDT1                              
003120,000519: 06,2447           10000        TIMETEST           CCS      A                                     #  IS IT AN IMMEDIATE RESTART
003121,000520: 06,2450           24000                           INCR     A                                     #  NO.
003122,000521: 06,2451           12454                           TCF      FINDTIME                              #  FIND OUT WHEN IT SHOULD BEGIN
003123,000522: 
003124,000523: 06,2452           14064                           TCF      ITSINDIR                              #  STORED INDIRECTLY
003125,000524: 
003126,000525: 06,2453           12473                           TCF      IMEDIATE                              #  IT WANTS AN IMMEDIATE RESTART
003127,000526: 
003128,000527:                                                                                                  #  ***** THIS MUST BE IN FIXED FIXED *****
003129,000528: 
003130,000529:    4064                                           BLOCK    02                                    
003131,000530:    4064           22736        ITSINDIR           LXCH     GOLOC      +1                         #  GET THE CORRECT E BANK IN CASE THIS IS
003132,000531:    4065           22006                           LXCH     BB                                    #  SWITCHED ERRASIBLE
003133,000532: 
003134,000533:    4066           50000                           NDX      A                                     #  GET THE TIME INDIRECTLY
003135,000534:    4067           30001                           CA       1                                     
003136,000535: 
003137,000536:    4070           22006                           LXCH     BB                                    #  RESTORE THE BB AND GOLOC
003138,000537:    4071           22736                           LXCH     GOLOC      +1                         
003139,000538: 
003140,000539:    4072           12454                           TCF      FINDTIME                              #  FIND OUT WHEN IT SHOULD BEGIN
003141,000540: 
003142,000541:                                                                                                  #  ***** YOUB MAY RETURN TO SWITCHED FIXED *****
003143,000542: 
003144,000543: 06,2454                                           BANK     06                                    
003145,000544: 06,2454           40000        FINDTIME           COM                                            #  MAKE NEGATIVE SINCE IT WILL BE SUBTRACTD
003146,000545: 06,2455           54001                           TS       L                                     #  AND SAVE
003147,000546: 06,2456           50145                           NDX      TEMP2G                                
003148,000547: 06,2457           41113                           CS       TBASE1                                
003149,000548: 06,2460           00006                           EXTEND                                         
003150,000549: 06,2461           60025                           SU       TIME1                                 
003151,000550: 06,2462           10000                           CCS      A                                     
003152,000551: 06,2463           40000                           COM                                            
003153,000552: 06,2464           62440                           AD       OCT37776                              
003154,000553: 06,2465           67763                           AD       ONE                                   
003155,000554: 06,2466           60001                           AD       L                                     
003156,000555: 06,2467           10000                           CCS      A                                     
003157,000556: 06,2470           37767                           CA       ZERO                                  
003158,000557: 06,2471           12473                           TCF      +2                                    
003159,000558: 06,2472           12473                           TCF      +1                                    
003160,000559: 06,2473           67763        IMEDIATE           AD       ONE                                   

Page 73

003162,000561: 06,2474           00734                           TC       GOLOC      -1                         
003163,000562: 06,2475           32005        ITSLIKEB           CA       RTRNCADR                              #  TYPE B,             SO STORE RETURN IN
003164,000563: 06,2476           54147                           TS       TEMPSWCH                              #  TEMPSWCH IN CASE OF AN EVEN PHASE
003165,000564: 
003166,000565: 06,2477           32001                           CA       PRT2CADR                              #  SET UP EXIT TO GET TABLE PART OF THIS
003167,000566: 06,2500           54737                           TS       GOLOC      +2                         #  VARIABLE TYPE OF PHASE
003168,000567: 
003169,000568: 06,2501           30144                           CA       TEMPPHS                               #  MAKE THE PHASE LOOK RIGHT FOR THE TABLE
003170,000569: 06,2502           75342                           MASK     OCT177                                #  PART OF THIS VARIABLE PHASE
003171,000570: 06,2503           54144                           TS       TEMPPHS                               
003172,000571: 
003173,000572: 06,2504           00006                           EXTEND                                         
003174,000573: 06,2505           50145                           NDX      TEMP2G                                #  OBTAIN THE JOB;S 2CADR
003175,000574: 06,2506           31517                           DCA      PHSNAME1                              
003176,000575: 06,2507           52736                           DXCH     GOLOC                                 
003177,000576: 
003178,000577: 06,2510           50145        ITSAJOB            NDX      TEMP2G                                #  NOW ADD THE PRIORITY AND LET;S GO
003179,000578: 06,2511           31114                           CA       PHSPRDT1                              
003180,000579: 06,2512           00734                           TC       GOLOC      -1                         
003181,000580: 
003182,000581: 06,2513           54020        ITSATBL            TS       CYR                                   #  FIND OUT IF THE PHASE IS ODD OR EVEN
003183,000582: 06,2514           10020                           CCS      CYR                                   
003184,000583: 06,2515           12516                           TCF      +1                                    #  IT;S EVEN
003185,000584: 06,2516           12616                           TCF      ITSEVEN                               
003186,000585: 
003187,000586: 06,2517           32005                           CA       RTRNCADR                              #  IN CASE THIS IS THE SECOND PART OF A
003188,000587: 06,2520           54737                           TS       GOLOC      +2                         #  TYPE B RESTART, WE NEED PROPER EXIT
003189,000588: 
003190,000589: 06,2521           30144                           CA       TEMPPHS                               #  SET UP POINTER FOR FINDING OUR PLACE IN
003191,000590: 06,2522           54021                           TS       SR                                    #  THE RESTART TABLES
003192,000591: 06,2523           60021                           AD       SR                                    
003193,000592: 06,2524           50145                           NDX      TEMP2G                                
003194,000593: 06,2525           62364                           AD       SIZETAB    +1                         
003195,000594: 06,2526           54146                           TS       POINTER                               
003196,000595: 
003197,000596: 06,2527           00006        CONTBL2            EXTEND                                         #  FIND OUT WHAT;S IN THE TABLE
003198,000597: 06,2530           50146                           NDX      POINTER                               
003199,000598: 06,2531           32002                           DCA      CADRTAB                               #  GET THE 2CADR
003200,000599: 
003201,000600: 06,2532           22736                           LXCH     GOLOC      +1                         #  STORE THE BB INFORMATION
003202,000601: 
003203,000602: 06,2533           10000                           CCS      A                                     #  IS IT A JOB OR IS IT TIMED
003204,000603: 06,2534           24000                           INCR     A                                     #  POSITIVE, MUST BE A JOB
003205,000604: 06,2535           12610                           TCF      ITSAJOB2                              
003206,000605: 
003207,000606: 06,2536           24000                           INCR     A                                     #  MUST BE EITHER A WAITLIST OR LONGCALL
003208,000607: 06,2537           54735                           TS       GOLOC                                 #  LET-S STORE THE CORRECT CADR
003209,000608: 
003210,000609: 06,2540           32004                           CA       WTLTCADR                              #  SET UP OUR EXIT TO WAITLIST
003211,000610: 06,2541           54734                           TS       GOLOC      -1                         
003212,000611: 

Page 74

003214,000613: 06,2542           30736                           CA       GOLOC      +1                         #  NOW FIND OUT IF IT IS A WAITLIST CALL
003215,000614: 06,2543           77752                           MASK     BIT10                                 #  THIS SHOULD BE ONE IF WE HAVE -BB
003216,000615: 06,2544           10000                           CCS      A                                     #  FOR THAT MATTER SO SHOULD BE BITS 9,8,7,
003217,000616:                                                                                                  #  6,5, AND LAST BUT NOT LEAST (PERHAPS NOT
003218,000617:                                                                                                  #  IN IMPORTANCE ANYWAY.  BIT 4
003219,000618: 06,2545           12603                           TCF      ITSWTLST                              #  IT IS A WAITLIST CALL
003220,000619: 
003221,000620: 06,2546           50146                           NDX      POINTER                               #  OBTAIN THE ORIGINAL DELTA T
003222,000621: 06,2547           32000                           CA       PRDTTAB                               #  ADDRESS FOR THIS LONGCALL
003223,000622: 
003224,000623: 06,2550           14073                           TCF      ITSLGCL1                              #  NOW GO GET THE DELTA TIME
003225,000624: 
003226,000625:                                                                                                  #  ***** THIS MUST BE IN FIXED FIXED *****
003227,000626: 
003228,000627:    4073                                           BLOCK    02                                    
003229,000628:    4073           22736        ITSLGCL1           LXCH     GOLOC      +1                         #  OBTAIN THE CORRECT E BANK
003230,000629:    4074           22006                           LXCH     BB                                    
003231,000630:    4075           22736                           LXCH     GOLOC      +1                         #  AND PRESERVE OUR E AND F BANKS
003232,000631: 
003233,000632:    4076           00006                           EXTEND                                         #  GET THE DELTA TIME
003234,000633:    4077           50000                           NDX      A                                     
003235,000634:    4100           30001                           DCA      0                                     
003236,000635: 
003237,000636:    4101           22736                           LXCH     GOLOC      +1                         #  RESTORE OUR E AND F BANK
003238,000637:    4102           22006                           LXCH     BB                                    #  RESTORE THE TASKS E AND F BANKS
003239,000638:    4103           22736                           LXCH     GOLOC      +1                         #  AND PRESERVE OUR L
003240,000639:    4104           12551                           TCF      ITSLGCL2                              #  NOT LET:S PROCESS THIS LONGCALL
003241,000640: 
003242,000641:                                                                                                  #  ***** YOUB MAY RETURN TO SWITCHED FIXED *****
003243,000642: 
003244,000643: 06,2551                                           BANK     06                                    
003245,000644: 06,2551           53154        ITSLGCL2           DXCH     LONGTIME                              
003246,000645: 
003247,000646: 06,2552           00006                           EXTEND                                         #  CALCULATE TIME LEFT
003248,000647: 06,2553           40025                           DCS      TIME2                                 
003249,000648: 06,2554           21154                           DAS      LONGTIME                              
003250,000649: 06,2555           00006                           EXTEND                                         
003251,000650: 06,2556           31433                           DCA      LONGBASE                              
003252,000651: 06,2557           21154                           DAS      LONGTIME                              
003253,000652: 
003254,000653: 06,2560           11153                           CCS      LONGTIME                              #  FIND OUT HOW THIS SHOULD BE RESTARTED
003255,000654: 06,2561           12571                           TCF      LONGCLCL                              
003256,000655: 06,2562           12564                           TCF      +2                                    
003257,000656: 06,2563           12470                           TCF      IMEDIATE   -3                         
003258,000657: 06,2564           11154                           CCS      LONGTIME   +1                         
003259,000658: 06,2565           12571                           TCF      LONGCLCL                              
003260,000659: 06,2566           12567                           NOOP                                           #  CAN:T GET HERE   *********
003261,000660: 06,2567           12470                           TCF      IMEDIATE   -3                         
003262,000661: 06,2570           12473                           TCF      IMEDIATE                              
003263,000662: 

Page 75

003265,000664: 06,2571           32002        LONGCLCL           CA       LGCLCADR                              #  WE WILL GO TO LONGCALL
003266,000665: 06,2572           54734                           TS       GOLOC      -1                         
003267,000666: 
003268,000667: 06,2573           00006                           EXTEND                                         #  PREPARE OUR ENTRY TO LONGCALL
003269,000668: 06,2574           31154                           DCA      LONGTIME                              
003270,000669: 06,2575           00734                           TC       GOLOC      -1                         
003271,000670: 
003272,000671: 06,2576           32004        ITSLNGCL           CA       WTLTCADR                              #  ASSUME IT WILL GO TO WAITLIST
003273,000672: 06,2577           54734                           TS       GOLOC      -1                         
003274,000673: 
003275,000674: 06,2600           50145                           NDX      TEMP2G                                
003276,000675: 06,2601           41114                           CS       PHSPRDT1                              #  GET THE DELTA T ADDRESS
003277,000676: 
003278,000677: 06,2602           14073                           TCF      ITSLGCL1                              #  NOW GET THE DELTA TIME
003279,000678: 
003280,000679: 06,2603           40736        ITSWTLST           CS       GOLOC      +1                         #  CORRECT THE BBCON INFORMATION
003281,000680: 06,2604           54736                           TS       GOLOC      +1                         
003282,000681: 
003283,000682: 06,2605           50146                           NDX      POINTER                               #  GET THE DT AND FIND OUT IF IT WAS STORED
003284,000683: 06,2606           32000                           CA       PRDTTAB                               #  DIRECTLY OR INDIRECTLY
003285,000684: 
003286,000685: 06,2607           12447                           TCF      TIMETEST                              #  FIND OUT HOW THE TIME IS STORED
003287,000686: 
003288,000687: 06,2610           56735        ITSAJOB2           XCH      GOLOC                                 #  STORE THE CADR
003289,000688: 
003290,000689: 06,2611           32003                           CA       FVACCADR                              #  STORE TC FINDVAC.
003291,000690: 06,2612           54734                           TS       GOLOC      -1                         
003292,000691: 
003293,000692: 06,2613           50146                           NDX      POINTER                               #  ADD THE PRIORITY AND LET;S GO
003294,000693: 06,2614           32000                           CA       PRDTTAB                               
003295,000694: 
003296,000695: 06,2615           00734                           TC       GOLOC      -1                         
003297,000696: 
003298,000697: 06,2616           30147        ITSEVEN            CA       TEMPSWCH                              #  SET UP FOR EITHER THE SECOND PART OF THE
003299,000698: 06,2617           54737                           TS       GOLOC      +2                         #  TABLE, OR A RETURN FOR THE NEXT GROUP
003300,000699: 
003301,000700: 06,2620           50145                           NDX      TEMP2G                                #  SET UP POINTER FOR OUR LOCATION WITHIN
003302,000701: 06,2621           32363                           CA       SIZETAB                               #  THE TABLE
003303,000702: 06,2622           60144                           AD       TEMPPHS                               #  THIS MAY LOOK BAD BUT LET;S SEE YOU DO
003304,000703: 06,2623           60144                           AD       TEMPPHS                               #  BETTER IN TIME OR NUMBERR OF LOCATIONS
003305,000704: 06,2624           60144                           AD       TEMPPHS                               
003306,000705: 06,2625           54146                           TS       POINTER                               
003307,000706: 
003308,000707: 06,2626           12527                           TCF      CONTBL2                               #  NOW PROCESS WHAT IS IN THE TABLE
003309,000708: 
003310,000709: 06,2627           36311        PHSPART2           CA       THREE                                 #  SET THE POINTER FOR THE SECOND HALF OF
003311,000710: 06,2630           26146                           ADS      POINTER                               #  THE TABLE
003312,000711: 
003313,000712: 06,2631           32005                           CA       RTRNCADR                              #  THIS WILL BE OUR LAST TIME THROUGH THE
003314,000713: 06,2632           54737                           TS       GOLOC      +2                         #  EVEN TABLE, SO AFTER IT GET THE NEXT

Page 76

003316,000715:                                                                                                  #  GROUP
003317,000716: 06,2633           12527                           TCF      CONTBL2                               #  SO LET;S GET THE SECOND ENTRY IN THE TBL
003318,000717: 
003319,000718: 06,2634     0144               TEMPPHS            EQUALS   MPAC                                  
003320,000719: 06,2634     0145               TEMP2G             EQUALS   MPAC       +1                         
003321,000720: 06,2634     0146               POINTER            EQUALS   MPAC       +2                         
003322,000721: 06,2634     0147               TEMPSWCH           EQUALS   MPAC       +3                         
003323,000722: 06,2634     0735               GOLOC              EQUALS   VAC5       +20D                       
003324,000723: 06,2634     5336               MINUS2             EQUALS   NEG2                                  
003325,000724: 06,2634     5342               OCT177             EQUALS   LOW7                                  
003326,000725: 
003327,000726:                                                                                                  #  SETRSTRT - RESTART FLAG UP OR DOWN DEPENDING ON CONTENTS OF ERASABLE RSTRTWRD.
003328,000727: 
003329,000728:                                                                                                  #  CALLING SEQUENCE
003330,000729:                                                                                                  #                CAF     BITX            USE BIT CORRESPONDING TO MISS PHASE NUM.
003331,000730:                                                                                                  #                TC      SETRSTRT
003332,000731: 
003333,000732:    4105                                           BLOCK    02                                    
003334,000733: 
003335,000734:    4105           22002        SETRSTRT           LXCH     Q                                     
003336,000735:    4106           71127                           MASK     RSTRTWRD                              
003337,000736:    4107           00006                           EXTEND                                         
003338,000737:    4110           14114                           BZF      +4                                    
003339,000738: 
003340,000739:    4111           06051                           TC       FLAG1UP                               #  USER MISSION PHASE IS RESTARTABLE
003341,000740:    4112           04000                           OCT      04000                                 
003342,000741:    4113           00001                           TC       L                                     
003343,000742: 
003344,000743:    4114           06067                 +4        TC       FLAG1DWN                              #  USER MISSION PHASE NOT RESTARTABLE
003345,000744:    4115           04000                           OCT      04000                                 
003346,000745:    4116           00001                           TC       L                                     

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