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: 

Page 62

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

Page 63

002676,000075: 
002677,000076:    4064                        PRDTTAB            EQUALS   24000                                 #  USED TO FIND THE PRIORITY OR DELTA TIME
002678,000077:    4064                        CADRTAB            EQUALS   24001                                 #  THIS AND THE NEXT LOCATION (RELATIVE)
002679,000078:                                                                                                  #      CONTAIN THE RESTART CADR
002680,000079: 
002681,000080: 06,2000                                           BANK     06                                    
002682,000081: 06,2000  E3,1400                                  EBANK=   LST1                                  #  GOPROG MUST SWITCH IN THIS EBANK
002683,000082: 
002684,000083: 06,2000           02627        PHS2CADR           GENADR   PHSPART2                              #  DO NOT REMOVE THE FOLLOWING 6 LOCATIONS
002685,000084: 06,2001           02414        PRT2CADR           GENADR   GETPART2                              #      FROM BEGINNING OF BANK
002686,000085: 06,2002           05741        LGCLCADR           GENADR   LONGCALL                              
002687,000086: 06,2003           05516        FVACCADR           GENADR   FINDVAC                               
002688,000087: 06,2004           05663        WTLTCADR           GENADR   WAITLIST                              
002689,000088: 06,2005           05221        RTRNCADR           TC       SWRETURN                              
002690,000089: 
002691,000090: 06,2006           10000        1.2SPOT            OCT      10000                                 #  TEMPORARY ENTRY TO ESTABLISH TABLE
002692,000091: 06,2007  E3,1400                                  EBANK=   LST1                                  
002693,000092: 06,2007           05576 04003                     2CADR    DUMMYJOB                              
002694,000093: 
002695,000094: 06,2011           10000                           OCT      10000                                 
002696,000095: 06,2012  E3,1400                                  EBANK=   LST1                                  
002697,000096: 06,2012           05576 04003                     2CADR    DUMMYJOB                              
002698,000097: 
002699,000098:                                                                                                  #  ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
002700,000099: 

The following line was not present in the original program.

002702,000101: 06,2014  30,2000                                  SBANK=   LOWSUPER                              
002703,000102: 06,2014           00303        1.3SPOT            DEC      195        B-14                       
002704,000103: 06,2015  E5,1565                                  EBANK=   ETHROT                                
002705,000104: 06,2015           74321 17712                     -2CADR   PCNTOVER                              
002706,000105: 
002707,000106:                                                                                                  #  ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
002708,000107: 
002709,000108: 06,2017           20000        2.2SPOT            OCT      20000                                 
002710,000109: 06,2020  E4,1566                                  EBANK=   TDEC                                  
002711,000110: 06,2020           02063 74064                     2CADR    11REDO2                               
002712,000111: 
002713,000112: 06,2022           01304                           GENADR   TDECTEMP                              
002714,000113: 06,2023           75657                           -GENADR  TIG11-30                              
002715,000114: 06,2024  E4,1566                                  EBANK=   TDEC                                  
002716,000115: 06,2024           74064                           BBCON    TIG11-30                              
002717,000116: 
002718,000117: 06,2025           15530        2.4SPOT            DEC      7000       B-14                       
002719,000118: 06,2026  E4,1566                                  EBANK=   TDEC                                  
002720,000119: 06,2026           74741 11713                     -2CADR   POSTKALC                              
002721,000120: 
002722,000121: 06,2030           20000                           OCT      20000                                 
002723,000122: 06,2031  E4,1566                                  EBANK=   TDEC                                  
002724,000123: 06,2031           03023 66064                     2CADR    CALLKALC                              
002725,000124: 
002726,000125:                                                                                                  #  ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE

Page 64

002728,000127: 
002729,000128: 06,2033           77777        2.3SPOT            OCT      77777                                 #  MISSION SCHEDULING PACKAGE TO SET UP
002730,000129: 06,2034  E3,1400                                  EBANK=   LST1                                  
002731,000130: 06,2034           75646 15714                     -2CADR   REDOMDUE                              
002732,000131: 

The following line was not present in the original code.

002734,000133: 06,2036                                           SBANK=                                         
002735,000134: 06,2036           12574        2.5SPOT            DEC      5500       B-14                       
002736,000135: 06,2037  E4,1566                                  EBANK=   TDEC                                  
002737,000136: 06,2037           75123 25773                     -2CADR   SIVB2                                 
002738,000137: 
002739,000138: 06,2041           77777        2.7SPOT            OCT      77777                                 
002740,000139: 06,2042  E4,1566                                  EBANK=   TDEC                                  
002741,000140: 06,2042           75614 25773                     -2CADR   SBORBA                                
002742,000141: 
002743,000142: 06,2044           00620        2.11SPOT           DEC      400        B-14                       
002744,000143: 06,2045  E4,1566                                  EBANK=   TDEC                                  
002745,000144: 06,2045           75470 25773                     -2CADR   SBORB8                                
002746,000145: 
002747,000146: 06,2047           76035        2.13SPOT           -GENADR  DT-LIFT                               
002748,000147: 06,2050  E3,1736                                  EBANK=   TGRR                                  
002749,000148: 06,2050           75554 21774                     -2CADR   LIFTOFF                               
002750,000149: 

The following line was not present in the original code.

002752,000151: 06,2052  30,2000                                  SBANK=   LOWSUPER                              
002753,000152: 06,2052           01274        2.15SPOT           DEC      700        B-14                       
002754,000153: 06,2053  E4,1566                                  EBANK=   TDEC                                  
002755,000154: 06,2053           75426 11713                     -2CADR   TIG4-41                               
002756,000155: 
002757,000156: 06,2055           00310        2.17SPOT           DEC      200        B-14                       
002758,000157: 06,2056  E4,1566                                  EBANK=   TDEC                                  
002759,000158: 06,2056           75361 11713                     -2CADR   TIG4-34                               
002760,000159: 
002761,000160: 06,2060           77777        2.21SPOT           OCT      77777                                 
002762,000161: 06,2061  E4,1566                                  EBANK=   TDEC                                  
002763,000162: 06,2061           75621 03713                     -2CADR   DPSTART                               
002764,000163: 
002765,000164: 06,2063           01356        2.23SPOT           DEC      750        B-14                       
002766,000165: 06,2064  E4,1566                                  EBANK=   TDEC                                  
002767,000166: 06,2064           75566 03713                     -2CADR   TIG11                                 
002768,000167: 
002769,000168: 06,2066           77777        2.25SPOT           OCT      77777                                 
002770,000169: 06,2067  E4,1566                                  EBANK=   TDEC                                  
002771,000170: 06,2067           75361 03713                     -2CADR   MP11HOLD                              
002772,000171: 
002773,000172: 06,2071           00144        2.27SPOT           DEC      100        B-14                       
002774,000173: 06,2072  E4,1566                                  EBANK=   TDEC                                  
002775,000174: 06,2072           75314 03713                     -2CADR   MP11OUT                               
002776,000175: 
002777,000176: 06,2074           20000        2.31SPOT           OCT      20000                                 
002778,000177: 06,2075  E4,1566                                  EBANK=   TDEC                                  
002779,000178: 06,2075           02017 74064                     2CADR    11REDO1                               
002780,000179: 
002781,000180: 06,2077           20000        2.33SPOT           OCT      20000                                 
002782,000181: 06,2100  E4,1566                                  EBANK=   TDEC                                  

Page 65

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

The following line was not present in the original code.

002828,000227: 06,2140                                           SBANK=                                         
002829,000228: 06,2140           77777        2.61SPOT           OCT      77777                                 
002830,000229: 06,2141  E3,1736                                  EBANK=   TGRR                                  
002831,000230: 06,2141           75547 21774                     -2CADR   REDO2.61                              
002832,000231: 
002833,000232: 06,2143           77777        2.63SPOT           OCT      77777                                 
002834,000233: 06,2144  E3,1736                                  EBANK=   TGRR                                  
002835,000234: 06,2144           75534 21774                     -2CADR   REDO2.63                              
002836,000235: 

Page 66

002838,000237:                                                                                                  #  ANY MORE GROUP 2.0DD RESTART VALUES SHOULD GO HERE
002839,000238: 
002840,000239: 06,2146  06,2006               3.2SPOT            EQUALS   1.2SPOT                               
002841,000240: 
002842,000241:                                                                                                  #  ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
002843,000242: 

The following line was not present in the original code.

002845,000244: 06,2146  30,2000                                  SBANK=   LOWSUPER                              
002846,000245: 06,2146           00062        3.3SPOT            DEC      50         B-14                       
002847,000246: 06,2147  E4,1566                                  EBANK=   TDEC                                  
002848,000247: 06,2147           75415 03713                     -2CADR   ABMON                                 
002849,000248: 
002850,000249: 06,2151           77777        3.5SPOT            OCT      77777                                 
002851,000250: 06,2152  E4,1566                                  EBANK=   TDEC                                  
002852,000251: 06,2152           75307 17713                     -2CADR   TUMTASK                               
002853,000252: 

The following line was not present in the original code.

002855,000254: 06,2154                                           SBANK=                                         
002856,000255: 06,2154           01743        3.7SPOT            GENADR   DT-LETJT                              
002857,000256: 06,2155           75507                           -GENADR  POSTLET                               
002858,000257: 06,2156  E3,1736                                  EBANK=   TGRR                                  
002859,000258: 06,2156           56003                           BBCON    POSTLET                               
002860,000259: 

The following line was not present in the original code.

002862,000261: 06,2157  30,2000                                  SBANK=   LOWSUPER                              
002863,000262: 06,2157           77777        3.11SPOT           OCT      77777                                 
002864,000263: 06,2160     1164                                  EBANK=   MTIMER4                               
002865,000264: 06,2160           75740 15715                     -2CADR   REDO3.11                              
002866,000265: 
002867,000266: 06,2162           00144        3.13SPOT           DEC      100        B-14                       
002868,000267: 06,2163     1164                                  EBANK=   MTIMER4                               
002869,000268: 06,2163           75777 15715                     -2CADR   MMAINT                                
002870,000269: 
002871,000270: 06,2165           02260        3.15SPOT           DEC      1200       B-14                       
002872,000271: 06,2166  E4,1566                                  EBANK=   TDEC                                  
002873,000272: 06,2166           75224 03713                     -2CADR   NEXLMP                                
002874,000273: 
002875,000274: 06,2170           00310        3.17SPOT           DEC      200        B-14                       
002876,000275: 06,2171  E4,1566                                  EBANK=   TDEC                                  
002877,000276: 06,2171           75215 03713                     -2CADR   NEXLMP1                               
002878,000277: 
002879,000278: 06,2173           00144        3.21SPOT           DEC      100        B-14                       
002880,000279: 06,2174  E4,1566                                  EBANK=   TDEC                                  
002881,000280: 06,2174           75207 03713                     -2CADR   NEXLMP2                               
002882,000281: 
002883,000282: 06,2176           13560        3.23SPOT           DEC      6000       B-14                       
002884,000283: 06,2177  E4,1566                                  EBANK=   TDEC                                  
002885,000284: 06,2177           75200 03713                     -2CADR   NEXLMP3                               
002886,000285: 
002887,000286: 06,2201           00144        3.25SPOT           DEC      100        B-14                       
002888,000287: 06,2202  E4,1566                                  EBANK=   TDEC                                  
002889,000288: 06,2202           75232 03713                     -2CADR   MP11TASK                              
002890,000289: 
002891,000290: 06,2204           20000        3.27SPOT           OCT      20000                                 
002892,000291: 06,2205  E5,1400                                  EBANK=   XSM                                   
002893,000292: 06,2205           02651 72065                     2CADR    REDO3.27                              
002894,000293: 

Page 67 The following line was not present in the original code.

002897,000296: 06,2207                                           SBANK=                                         
002898,000297: 06,2207           77777        3.31SPOT           OCT      77777                                 
002899,000298: 06,2210  E4,1745                                  EBANK=   TTGO                                  
002900,000299: 06,2210           74326 21773                     -2CADR   DUMMY13                               
002901,000300: 
002902,000301: 06,2212           04704        3.33SPOT           DEC      2500       B-14                       
002903,000302: 06,2213  E4,1745                                  EBANK=   TTGO                                  
002904,000303: 06,2213           74272 21773                     -2CADR   TRMDMY13                              
002905,000304: 
002906,000305:                                                                                                  #  ANY MORE GROUP 3.0DD RESTART VALUES SHOULD GO HERE
002907,000306: 
002908,000307: 06,2215  06,2006               4.2SPOT            EQUALS   1.2SPOT                               
002909,000308: 
002910,000309:                                                                                                  #  ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
002911,000310: 

The following line was not present in the original code.

002913,000312: 06,2215  30,2000                                  SBANK=   LOWSUPER                              
002914,000313: 06,2215           30000        4.3SPOT            OCT      30000                                 
002915,000314: 06,2216  E5,1565                                  EBANK=   ETHROT                                
002916,000315: 06,2216           03540 60065                     2CADR    ACCLJOB                               
002917,000316: 

The following line was not present in the original code.

002919,000318: 06,2220                                           SBANK=                                         
002920,000319: 06,2220           10000        4.5SPOT            OCT      10000                                 
002921,000320: 06,2221  E3,1652                                  EBANK=   RATEINDX                              
002922,000321: 06,2221           02670 56003                     2CADR    COLDSOAK                              
002923,000322: 
002924,000323: 06,2223           15000        4.7SPOT            OCT      15000                                 
002925,000324: 06,2224  E3,1736                                  EBANK=   TGRR                                  
002926,000325: 06,2224           02056 56003                     2CADR    MP2JOB                                
002927,000326: 

The following line was not present in the original code.

002929,000328: 06,2226  30,2000                                  SBANK=   LOWSUPER                              
002930,000329: 06,2226           25000        4.11SPOT           OCT      25000                                 
002931,000330: 06,2227  E5,1565                                  EBANK=   ETHROT                                
002932,000331: 06,2227           03507 60065                     2CADR    PCNTJOB                               
002933,000332: 
002934,000333: 06,2231           01304        4.13SPOT           GENADR   TDECTEMP                              
002935,000334: 06,2232           74643                           -GENADR  TIG9-66                               
002936,000335: 06,2233  E4,1566                                  EBANK=   TDEC                                  
002937,000336: 06,2233           66064                           BBCON    TIG9-66                               
002938,000337: 
002939,000338: 06,2234           27000        4.15SPOT           OCT      27000                                 
002940,000339: 06,2235  E4,1566                                  EBANK=   TDEC                                  
002941,000340: 06,2235           03157 66064                     2CADR    ORBINTJB                              
002942,000341: 
002943,000342: 06,2237           76472        4.17SPOT           -GENADR  TDECTEMP   +1                         
002944,000343: 06,2240     1072                                  EBANK=   AVGEXIT                               
002945,000344: 06,2240           74547 11715                     -2CADR   TIG9-0                                
002946,000345: 
002947,000346:                                                                                                  #  ANY MORE GROUP 4.0DD RESTART VALUES SHOULD GO HERE
002948,000347: 
002949,000348: 06,2242           21000        5.2SPOT            OCT      21000                                 
002950,000349: 06,2243  E4,1514                                  EBANK=   RAVEGON                               
002951,000350: 06,2243           02412 60064                     2CADR    NORMLIZE                              
002952,000351: 
002953,000352: 06,2245           00310                           DEC      200        B-14                       

Page 68

002955,000354: 06,2246  E5,1511                                  EBANK=   DVCNTR                                
002956,000355: 06,2246           75144 17712                     -2CADR   REREADAC                              
002957,000356: 
002958,000357: 06,2250           00310        5.4SPOT            DEC      200        B-14                       
002959,000358: 06,2251  E5,1570                                  EBANK=   BMEMORY                               
002960,000359: 06,2251           75777 17712                     -2CADR   PREREAD                               
002961,000360: 

The following line was not present in the original code.

002963,000362: 06,2253                                           SBANK=                                         
002964,000363: 06,2253           32000                           OCT      32000                                 
002965,000364: 06,2254  E3,1400                                  EBANK=   LST1                                  
002966,000365: 06,2254           03575 24003                     2CADR    LASTBIAS                              
002967,000366: 

The following line was not present in the original code.

002969,000368: 06,2256  30,2000                                  SBANK=   LOWSUPER                              
002970,000369: 06,2256           00310        5.6SPOT            DEC      200        B-14                       
002971,000370: 06,2257  E5,1511                                  EBANK=   DVCNTR                                
002972,000371: 06,2257           75144 17712                     -2CADR   REREADAC                              
002973,000372: 
002974,000373: 06,2261           20000                           OCT      20000                                 
002975,000374: 06,2262  E5,1511                                  EBANK=   DVCNTR                                
002976,000375: 06,2262           02133 60065                     2CADR    SERVICER                              
002977,000376: 
002978,000377:                                                                                                  #  ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
002979,000378: 
002980,000379: 06,2264           00310        5.3SPOT            DEC      200        B-14                       
002981,000380: 06,2265  E5,1511                                  EBANK=   DVCNTR                                
002982,000381: 06,2265           75144 17712                     -2CADR   REREADAC                              
002983,000382: 
002984,000383: 06,2267           00000 00000  5.5SPOT            2DEC     0          B-28                       #  5.5 SPOT NOT USED
002985,000384: 
002986,000385: 06,2271           00000                           DEC      0          B-14                       
002987,000386: 
002988,000387: 06,2272           20000        5.7SPOT            OCT      20000                                 
002989,000388: 06,2273  E5,1400                                  EBANK=   XSM                                   
002990,000389: 06,2273           02020 72065                     2CADR    RSTGTS1                               
002991,000390: 
002992,000391: 06,2275           77777        5.11SPOT           OCT      77777                                 
002993,000392: 06,2276  E5,1400                                  EBANK=   XSM                                   
002994,000393: 06,2276           75706 05712                     -2CADR   ALLOOP1                               
002995,000394: 
002996,000395: 06,2300           20000        5.13SPOT           OCT      20000                                 
002997,000396: 06,2301  E5,1400                                  EBANK=   XSM                                   
002998,000397: 06,2301           02727 72065                     2CADR    WTLISTNT                              
002999,000398: 
003000,000399: 06,2303           20000        5.15SPOT           OCT      20000                                 
003001,000400: 06,2304  E5,1400                                  EBANK=   XSM                                   
003002,000401: 06,2304           02757 72065                     2CADR    NOCHORLD                              
003003,000402: 
003004,000403: 06,2306           20000        5.17SPOT           OCT      20000                                 
003005,000404: 06,2307  E5,1400                                  EBANK=   XSM                                   
003006,000405: 06,2307           02710 72065                     2CADR    GEOSTRT4                              
003007,000406: 
003008,000407: 06,2311           20000        5.21SPOT           OCT      20000                                 

Page 69

003010,000409: 06,2312  E5,1400                                  EBANK=   XSM                                   
003011,000410: 06,2312           02126 72065                     2CADR    ALFLT1                                
003012,000411: 
003013,000412: 06,2314           77777        5.23SPOT           OCT      77777                                 
003014,000413: 06,2315  E5,1400                                  EBANK=   XSM                                   
003015,000414: 06,2315           75666 05712                     -2CADR   SPECSTS                               
003016,000415: 
003017,000416: 06,2317           20000        5.25SPOT           OCT      20000                                 
003018,000417: 06,2320  E5,1400                                  EBANK=   XSM                                   
003019,000418: 06,2320           02630 72065                     2CADR    RESTAIER                              
003020,000419: 
003021,000420: 06,2322           00620        5.27SPOT           DEC      400        B-14                       
003022,000421: 06,2323  E5,1506                                  EBANK=   DVTOTAL                               
003023,000422: 06,2323           75777 17712                     -2CADR   PREREAD                               
003024,000423: 
003025,000424: 06,2325           77777        5.31SPOT           OCT      77777                                 
003026,000425: 06,2326  E5,1537                                  EBANK=   NEGXDV                                
003027,000426: 06,2326           75707 17712                     -2CADR   REDO5.31                              
003028,000427: 
003029,000428: 06,2330           77777        5.33SPOT           OCT      77777                                 
003030,000429: 06,2331  E5,1511                                  EBANK=   DVCNTR                                
003031,000430: 06,2331           75777 17712                     -2CADR   PREREAD                               
003032,000431: 
003033,000432: 06,2333           76435        5.35SPOT           -GENADR  RSDTTEMP                              
003034,000433: 06,2334  E5,1506                                  EBANK=   DVTOTAL                               
003035,000434: 06,2334           75777 17712                     -2CADR   PREREAD                               
003036,000435: 

The following line was not present in the original code.

003038,000437: 06,2336                                           SBANK=                                         
003039,000438: 06,2336           77777        5.37SPOT           OCT      77777                                 
003040,000439: 06,2337  E3,1736                                  EBANK=   TGRR                                  
003041,000440: 06,2337           75754 21774                     -2CADR   SETPIPDT                              
003042,000441: 
003043,000442:                                                                                                  #  ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
003044,000443: 
003045,000444: 06,2341           00764        6.2SPOT            DEC      500        B-14                       
003046,000445: 06,2342  E7,1407                                  EBANK=   DNTMBUFF                              
003047,000446: 06,2342           75225 55770                     -2CADR   DAPOFF                                
003048,000447: 
003049,000448: 06,2344           30000                           OCT      30000                                 
003050,000449: 06,2345  E7,1407                                  EBANK=   DNTMBUFF                              
003051,000450: 06,2345           02541 22007                     2CADR    TGOFF                                 
003052,000451: 
003053,000452:                                                                                                  #  ANY MORE GROUP 6.EVEN RESTART VALUES SHOULD GO HERE
003054,000453: 
003055,000454: 06,2347           00764        6.3SPOT            DEC      500        B-14                       
003056,000455: 06,2350  E7,1407                                  EBANK=   DNTMBUFF                              
003057,000456: 06,2350           75225 55770                     -2CADR   DAPOFF                                
003058,000457: 
003059,000458: 06,2352           33000        6.5SPOT            OCTAL    33000                                 
003060,000459: 06,2353  E4,1677                                  EBANK=   STBUFF                                
003061,000460: 06,2353           02440 54004                     2CADR    I=4.CONT                              
003062,000461: 

Page 70

003064,000463: 06,2355           30000        6.7SPOT            OCT      30000                                 
003065,000464: 06,2356  E4,1677                                  EBANK=   STBUFF                                
003066,000465: 06,2356           02464 54004                     2CADR    UPQUITRM                              
003067,000466: 

The following line was not present in the original code.

003069,000468: 06,2360  30,2000                                  SBANK=   LOWSUPER                              
003070,000469: 06,2360           76432        6.11SPOT           -GENADR  DAPOFFDT                              
003071,000470: 06,2361  E7,1407                                  EBANK=   DNTMBUFF                              
003072,000471: 06,2361           75504 03710                     -2CADR   11DAPOFF                              
003073,000472: 
003074,000473:                                                                                                  #  ANY MORE GROUP 6.0DD RESTART VALUES SHOULD GO HERE
003075,000474: 
003076,000475: 06,2363           00000        SIZETAB            GENADR   1.2SPOT    -24006                     
003077,000476: 06,2364           00010                           GENADR   1.3SPOT    -24004                     
003078,000477: 06,2365           00011                           GENADR   2.2SPOT    -24006                     
003079,000478: 06,2366           00027                           GENADR   2.3SPOT    -24004                     
003080,000479: 06,2367           00000                           GENADR   3.2SPOT    -24006                     
003081,000480: 06,2370           00142                           GENADR   3.3SPOT    -24004                     
003082,000481: 06,2371           00000                           GENADR   4.2SPOT    -24006                     
003083,000482: 06,2372           00211                           GENADR   4.3SPOT    -24004                     
003084,000483: 06,2373           00234                           GENADR   5.2SPOT    -24006                     
003085,000484: 06,2374           00260                           GENADR   5.3SPOT    -24004                     
003086,000485: 06,2375           00333                           GENADR   6.2SPOT    -24006                     
003087,000486: 06,2376           00343                           GENADR   6.3SPOT    -24004                     
003088,000487: 

Page 71

003090,000489: 06,2377           30151        RESTARTS           CA       MPAC       +5                         #  GET GROUP NUMBER -1
003091,000490: 06,2400           60000                           DOUBLE                                         #  SAVE FOR INDEXING
003092,000491: 06,2401           54145                           TS       TEMP2G                                
003093,000492: 
003094,000493: 06,2402           32003                           CA       FVACCADR                              #  LET:S ASSUME THIS IS A JOB, THIS WILL
003095,000494: 06,2403           54734                           TS       GOLOC      -1                         #  SAVE US A COUPLE OF LOCATIONS, BUT NOT 
003096,000495:                                                                                                  #  NECESSARIALY ANY TIME  - SO BE IT -
003097,000496: 
003098,000497: 06,2404           32000                           CA       PHS2CADR                              #  SET UP EXIT IN CASE IT IS AN EVEN
003099,000498: 06,2405           54147                           TS       TEMPSWCH                              #  TABLE PHASE
003100,000499: 
003101,000500: 06,2406           32005                           CA       RTRNCADR                              #  TO SAVE TIME ASSUME IT WILL GET NEXT
003102,000501: 06,2407           54737                           TS       GOLOC      +2                         #  GROUP AFTER THIS
003103,000502: 
003104,000503: 06,2410           30144                           CA       TEMPPHS                               
003105,000504: 06,2411           75352                           MASK     OCT1400                               
003106,000505: 06,2412           10000                           CCS      A                                     #  IS IT A VARIABLE OR TABLE RESTART
003107,000506: 06,2413           12424                           TCF      ITSAVAR                               #  IT;S A VARIABLE RESTART
003108,000507: 
003109,000508: 06,2414           10144        GETPART2           CCS      TEMPPHS                               #  IS IT AN X.1 RESTART
003110,000509: 06,2415           10000                           CCS      A                                     
003111,000510: 06,2416           12513                           TCF      ITSATBL                               #  NO, ITS A TABLE RESTART
003112,000511: 
003113,000512: 06,2417           35640                           CA       PRIO14                                #  IT IS AN X.1 RESTART, THEREFORE START
003114,000513: 06,2420           05516                           TC       FINDVAC                               #  THE DISPLAY RESTART JOB

The following line was not present in the original code.

003116,000515: 06,2421                                           SBANK=                                         
003117,000516: 06,2421  E3,1400                                  EBANK=   LST1                                  
003118,000517: 06,2421           05567 04003                     2CADR    INITDSP                               

The following line was not present in the original code.

003120,000519: 06,2423  30,2000                                  SBANK=   LOWSUPER                              
003121,000520: 
003122,000521: 06,2423           02005                           TC       RTRNCADR                              #  FINISHED WITH THIS GROUP, GET NEXT ONE
003123,000522: 
003124,000523: 06,2424     5567               INITDSP            EQUALS   ENDOFJOB                              
003125,000524: 
003126,000525: 06,2424           75352        ITSAVAR            MASK     OCT1400                               #  IS IT TYPE B ?
003127,000526: 06,2425           10000                           CCS      A                                     
003128,000527: 06,2426           12475                           TCF      ITSLIKEB                              #  YES, IT IS TYPE B
003129,000528: 
003130,000529: 06,2427           00006                           EXTEND                                         #  STORE THE JOB (OR TASK) 2CADR FOR EXIT
003131,000530: 06,2430           50145                           NDX      TEMP2G                                
003132,000531: 06,2431           31517                           DCA      PHSNAME1                              
003133,000532: 06,2432           52736                           DXCH     GOLOC                                 
003134,000533: 
003135,000534: 06,2433           30144                           CA       TEMPPHS                               #  SEE IF THIS IS A JOB, TASK, OR A LONGCAL
003136,000535: 06,2434           77765                           MASK     OCT7                                  
003137,000536: 06,2435           65336                           AD       MINUS2                                
003138,000537: 06,2436           10000                           CCS      A                                     
003139,000538: 06,2437           12576                           TCF      ITSLNGCL                              #  ITS A LONGCALL
003140,000539: 
003141,000540: 06,2440           37776        OCT37776           OCT      37776                                 #  CANT GET HERE
003142,000541: 

Page 72

003144,000543: 06,2441           12443                           TCF      ITSAWAIT                              
003145,000544: 
003146,000545: 06,2442           12510                           TCF      ITSAJOB                               #  ITS A JOB
003147,000546: 
003148,000547: 06,2443           32004        ITSAWAIT           CA       WTLTCADR                              #  SET UP WAITLIST CALL
003149,000548: 06,2444           54734                           TS       GOLOC      -1                         
003150,000549: 
003151,000550: 06,2445           50145                           NDX      TEMP2G                                #  DIRECTLY STORED
003152,000551: 06,2446           31114                           CA       PHSPRDT1                              
003153,000552: 06,2447           10000        TIMETEST           CCS      A                                     #  IS IT AN IMMEDIATE RESTART
003154,000553: 06,2450           24000                           INCR     A                                     #  NO.
003155,000554: 06,2451           12454                           TCF      FINDTIME                              #  FIND OUT WHEN IT SHOULD BEGIN
003156,000555: 
003157,000556: 06,2452           14064                           TCF      ITSINDIR                              #  STORED INDIRECTLY
003158,000557: 
003159,000558: 06,2453           12473                           TCF      IMEDIATE                              #  IT WANTS AN IMMEDIATE RESTART
003160,000559: 
003161,000560:                                                                                                  #  ***** THIS MUST BE IN FIXED FIXED *****
003162,000561: 
003163,000562:    4064                                           BLOCK    02                                    
003164,000563:    4064           22736        ITSINDIR           LXCH     GOLOC      +1                         #  GET THE CORRECT E BANK IN CASE THIS IS
003165,000564:    4065           22006                           LXCH     BB                                    #  SWITCHED ERRASIBLE
003166,000565: 
003167,000566:    4066           50000                           NDX      A                                     #  GET THE TIME INDIRECTLY
003168,000567:    4067           30001                           CA       1                                     
003169,000568: 
003170,000569:    4070           22006                           LXCH     BB                                    #  RESTORE THE BB AND GOLOC
003171,000570:    4071           22736                           LXCH     GOLOC      +1                         
003172,000571: 
003173,000572:    4072           12454                           TCF      FINDTIME                              #  FIND OUT WHEN IT SHOULD BEGIN
003174,000573: 
003175,000574:                                                                                                  #  ***** YOUB MAY RETURN TO SWITCHED FIXED *****
003176,000575: 
003177,000576: 06,2454                                           BANK     06                                    
003178,000577: 06,2454           40000        FINDTIME           COM                                            #  MAKE NEGATIVE SINCE IT WILL BE SUBTRACTD
003179,000578: 06,2455           54001                           TS       L                                     #  AND SAVE
003180,000579: 06,2456           50145                           NDX      TEMP2G                                
003181,000580: 06,2457           41113                           CS       TBASE1                                
003182,000581: 06,2460           00006                           EXTEND                                         
003183,000582: 06,2461           60025                           SU       TIME1                                 
003184,000583: 06,2462           10000                           CCS      A                                     
003185,000584: 06,2463           40000                           COM                                            
003186,000585: 06,2464           62440                           AD       OCT37776                              
003187,000586: 06,2465           67763                           AD       ONE                                   
003188,000587: 06,2466           60001                           AD       L                                     
003189,000588: 06,2467           10000                           CCS      A                                     
003190,000589: 06,2470           37767                           CA       ZERO                                  
003191,000590: 06,2471           12473                           TCF      +2                                    
003192,000591: 06,2472           12473                           TCF      +1                                    
003193,000592: 06,2473           67763        IMEDIATE           AD       ONE                                   

Page 73

003195,000594: 06,2474           00734                           TC       GOLOC      -1                         
003196,000595: 06,2475           32005        ITSLIKEB           CA       RTRNCADR                              #  TYPE B,             SO STORE RETURN IN
003197,000596: 06,2476           54147                           TS       TEMPSWCH                              #  TEMPSWCH IN CASE OF AN EVEN PHASE
003198,000597: 
003199,000598: 06,2477           32001                           CA       PRT2CADR                              #  SET UP EXIT TO GET TABLE PART OF THIS
003200,000599: 06,2500           54737                           TS       GOLOC      +2                         #  VARIABLE TYPE OF PHASE
003201,000600: 
003202,000601: 06,2501           30144                           CA       TEMPPHS                               #  MAKE THE PHASE LOOK RIGHT FOR THE TABLE
003203,000602: 06,2502           75342                           MASK     OCT177                                #  PART OF THIS VARIABLE PHASE
003204,000603: 06,2503           54144                           TS       TEMPPHS                               
003205,000604: 
003206,000605: 06,2504           00006                           EXTEND                                         
003207,000606: 06,2505           50145                           NDX      TEMP2G                                #  OBTAIN THE JOB;S 2CADR
003208,000607: 06,2506           31517                           DCA      PHSNAME1                              
003209,000608: 06,2507           52736                           DXCH     GOLOC                                 
003210,000609: 
003211,000610: 06,2510           50145        ITSAJOB            NDX      TEMP2G                                #  NOW ADD THE PRIORITY AND LET;S GO
003212,000611: 06,2511           31114                           CA       PHSPRDT1                              
003213,000612: 06,2512           00734                           TC       GOLOC      -1                         
003214,000613: 
003215,000614: 06,2513           54020        ITSATBL            TS       CYR                                   #  FIND OUT IF THE PHASE IS ODD OR EVEN
003216,000615: 06,2514           10020                           CCS      CYR                                   
003217,000616: 06,2515           12516                           TCF      +1                                    #  IT;S EVEN
003218,000617: 06,2516           12616                           TCF      ITSEVEN                               
003219,000618: 
003220,000619: 06,2517           32005                           CA       RTRNCADR                              #  IN CASE THIS IS THE SECOND PART OF A
003221,000620: 06,2520           54737                           TS       GOLOC      +2                         #  TYPE B RESTART, WE NEED PROPER EXIT
003222,000621: 
003223,000622: 06,2521           30144                           CA       TEMPPHS                               #  SET UP POINTER FOR FINDING OUR PLACE IN
003224,000623: 06,2522           54021                           TS       SR                                    #  THE RESTART TABLES
003225,000624: 06,2523           60021                           AD       SR                                    
003226,000625: 06,2524           50145                           NDX      TEMP2G                                
003227,000626: 06,2525           62364                           AD       SIZETAB    +1                         
003228,000627: 06,2526           54146                           TS       POINTER                               
003229,000628: 
003230,000629: 06,2527           00006        CONTBL2            EXTEND                                         #  FIND OUT WHAT;S IN THE TABLE
003231,000630: 06,2530           50146                           NDX      POINTER                               
003232,000631: 06,2531           32002                           DCA      CADRTAB                               #  GET THE 2CADR
003233,000632: 
003234,000633: 06,2532           22736                           LXCH     GOLOC      +1                         #  STORE THE BB INFORMATION
003235,000634: 
003236,000635: 06,2533           10000                           CCS      A                                     #  IS IT A JOB OR IS IT TIMED
003237,000636: 06,2534           24000                           INCR     A                                     #  POSITIVE, MUST BE A JOB
003238,000637: 06,2535           12610                           TCF      ITSAJOB2                              
003239,000638: 
003240,000639: 06,2536           24000                           INCR     A                                     #  MUST BE EITHER A WAITLIST OR LONGCALL
003241,000640: 06,2537           54735                           TS       GOLOC                                 #  LET-S STORE THE CORRECT CADR
003242,000641: 
003243,000642: 06,2540           32004                           CA       WTLTCADR                              #  SET UP OUR EXIT TO WAITLIST
003244,000643: 06,2541           54734                           TS       GOLOC      -1                         
003245,000644: 

Page 74

003247,000646: 06,2542           30736                           CA       GOLOC      +1                         #  NOW FIND OUT IF IT IS A WAITLIST CALL
003248,000647: 06,2543           77752                           MASK     BIT10                                 #  THIS SHOULD BE ONE IF WE HAVE -BB
003249,000648: 06,2544           10000                           CCS      A                                     #  FOR THAT MATTER SO SHOULD BE BITS 9,8,7,
003250,000649:                                                                                                  #  6,5, AND LAST BUT NOT LEAST (PERHAPS NOT
003251,000650:                                                                                                  #  IN IMPORTANCE ANYWAY.  BIT 4
003252,000651: 06,2545           12603                           TCF      ITSWTLST                              #  IT IS A WAITLIST CALL
003253,000652: 
003254,000653: 06,2546           50146                           NDX      POINTER                               #  OBTAIN THE ORIGINAL DELTA T
003255,000654: 06,2547           32000                           CA       PRDTTAB                               #  ADDRESS FOR THIS LONGCALL
003256,000655: 
003257,000656: 06,2550           14073                           TCF      ITSLGCL1                              #  NOW GO GET THE DELTA TIME
003258,000657: 
003259,000658:                                                                                                  #  ***** THIS MUST BE IN FIXED FIXED *****
003260,000659: 
003261,000660:    4073                                           BLOCK    02                                    
003262,000661:    4073           22736        ITSLGCL1           LXCH     GOLOC      +1                         #  OBTAIN THE CORRECT E BANK
003263,000662:    4074           22006                           LXCH     BB                                    
003264,000663:    4075           22736                           LXCH     GOLOC      +1                         #  AND PRESERVE OUR E AND F BANKS
003265,000664: 
003266,000665:    4076           00006                           EXTEND                                         #  GET THE DELTA TIME
003267,000666:    4077           50000                           NDX      A                                     
003268,000667:    4100           30001                           DCA      0                                     
003269,000668: 
003270,000669:    4101           22736                           LXCH     GOLOC      +1                         #  RESTORE OUR E AND F BANK
003271,000670:    4102           22006                           LXCH     BB                                    #  RESTORE THE TASKS E AND F BANKS
003272,000671:    4103           22736                           LXCH     GOLOC      +1                         #  AND PRESERVE OUR L
003273,000672:    4104           12551                           TCF      ITSLGCL2                              #  NOT LET:S PROCESS THIS LONGCALL
003274,000673: 
003275,000674:                                                                                                  #  ***** YOUB MAY RETURN TO SWITCHED FIXED *****
003276,000675: 
003277,000676: 06,2551                                           BANK     06                                    
003278,000677: 06,2551           53154        ITSLGCL2           DXCH     LONGTIME                              
003279,000678: 
003280,000679: 06,2552           00006                           EXTEND                                         #  CALCULATE TIME LEFT
003281,000680: 06,2553           40025                           DCS      TIME2                                 
003282,000681: 06,2554           21154                           DAS      LONGTIME                              
003283,000682: 06,2555           00006                           EXTEND                                         
003284,000683: 06,2556           31433                           DCA      LONGBASE                              
003285,000684: 06,2557           21154                           DAS      LONGTIME                              
003286,000685: 
003287,000686: 06,2560           11153                           CCS      LONGTIME                              #  FIND OUT HOW THIS SHOULD BE RESTARTED
003288,000687: 06,2561           12571                           TCF      LONGCLCL                              
003289,000688: 06,2562           12564                           TCF      +2                                    
003290,000689: 06,2563           12470                           TCF      IMEDIATE   -3                         
003291,000690: 06,2564           11154                           CCS      LONGTIME   +1                         
003292,000691: 06,2565           12571                           TCF      LONGCLCL                              
003293,000692: 06,2566           12567                           NOOP                                           #  CAN:T GET HERE   *********
003294,000693: 06,2567           12470                           TCF      IMEDIATE   -3                         
003295,000694: 06,2570           12473                           TCF      IMEDIATE                              
003296,000695: 

Page 75

003298,000697: 06,2571           32002        LONGCLCL           CA       LGCLCADR                              #  WE WILL GO TO LONGCALL
003299,000698: 06,2572           54734                           TS       GOLOC      -1                         
003300,000699: 
003301,000700: 06,2573           00006                           EXTEND                                         #  PREPARE OUR ENTRY TO LONGCALL
003302,000701: 06,2574           31154                           DCA      LONGTIME                              
003303,000702: 06,2575           00734                           TC       GOLOC      -1                         
003304,000703: 
003305,000704: 06,2576           32004        ITSLNGCL           CA       WTLTCADR                              #  ASSUME IT WILL GO TO WAITLIST
003306,000705: 06,2577           54734                           TS       GOLOC      -1                         
003307,000706: 
003308,000707: 06,2600           50145                           NDX      TEMP2G                                
003309,000708: 06,2601           41114                           CS       PHSPRDT1                              #  GET THE DELTA T ADDRESS
003310,000709: 
003311,000710: 06,2602           14073                           TCF      ITSLGCL1                              #  NOW GET THE DELTA TIME
003312,000711: 
003313,000712: 06,2603           40736        ITSWTLST           CS       GOLOC      +1                         #  CORRECT THE BBCON INFORMATION
003314,000713: 06,2604           54736                           TS       GOLOC      +1                         
003315,000714: 
003316,000715: 06,2605           50146                           NDX      POINTER                               #  GET THE DT AND FIND OUT IF IT WAS STORED
003317,000716: 06,2606           32000                           CA       PRDTTAB                               #  DIRECTLY OR INDIRECTLY
003318,000717: 
003319,000718: 06,2607           12447                           TCF      TIMETEST                              #  FIND OUT HOW THE TIME IS STORED
003320,000719: 
003321,000720: 06,2610           56735        ITSAJOB2           XCH      GOLOC                                 #  STORE THE CADR
003322,000721: 
003323,000722: 06,2611           32003                           CA       FVACCADR                              #  STORE TC FINDVAC.
003324,000723: 06,2612           54734                           TS       GOLOC      -1                         
003325,000724: 
003326,000725: 06,2613           50146                           NDX      POINTER                               #  ADD THE PRIORITY AND LET;S GO
003327,000726: 06,2614           32000                           CA       PRDTTAB                               
003328,000727: 
003329,000728: 06,2615           00734                           TC       GOLOC      -1                         
003330,000729: 
003331,000730: 06,2616           30147        ITSEVEN            CA       TEMPSWCH                              #  SET UP FOR EITHER THE SECOND PART OF THE
003332,000731: 06,2617           54737                           TS       GOLOC      +2                         #  TABLE, OR A RETURN FOR THE NEXT GROUP
003333,000732: 
003334,000733: 06,2620           50145                           NDX      TEMP2G                                #  SET UP POINTER FOR OUR LOCATION WITHIN
003335,000734: 06,2621           32363                           CA       SIZETAB                               #  THE TABLE
003336,000735: 06,2622           60144                           AD       TEMPPHS                               #  THIS MAY LOOK BAD BUT LET;S SEE YOU DO
003337,000736: 06,2623           60144                           AD       TEMPPHS                               #  BETTER IN TIME OR NUMBERR OF LOCATIONS
003338,000737: 06,2624           60144                           AD       TEMPPHS                               
003339,000738: 06,2625           54146                           TS       POINTER                               
003340,000739: 
003341,000740: 06,2626           12527                           TCF      CONTBL2                               #  NOW PROCESS WHAT IS IN THE TABLE
003342,000741: 
003343,000742: 06,2627           36311        PHSPART2           CA       THREE                                 #  SET THE POINTER FOR THE SECOND HALF OF
003344,000743: 06,2630           26146                           ADS      POINTER                               #  THE TABLE
003345,000744: 
003346,000745: 06,2631           32005                           CA       RTRNCADR                              #  THIS WILL BE OUR LAST TIME THROUGH THE
003347,000746: 06,2632           54737                           TS       GOLOC      +2                         #  EVEN TABLE, SO AFTER IT GET THE NEXT

Page 76

003349,000748:                                                                                                  #  GROUP
003350,000749: 06,2633           12527                           TCF      CONTBL2                               #  SO LET;S GET THE SECOND ENTRY IN THE TBL
003351,000750: 
003352,000751: 06,2634     0144               TEMPPHS            EQUALS   MPAC                                  
003353,000752: 06,2634     0145               TEMP2G             EQUALS   MPAC       +1                         
003354,000753: 06,2634     0146               POINTER            EQUALS   MPAC       +2                         
003355,000754: 06,2634     0147               TEMPSWCH           EQUALS   MPAC       +3                         
003356,000755: 06,2634     0735               GOLOC              EQUALS   VAC5       +20D                       
003357,000756: 06,2634     5336               MINUS2             EQUALS   NEG2                                  
003358,000757: 06,2634     5342               OCT177             EQUALS   LOW7                                  
003359,000758: 
003360,000759:                                                                                                  #  SETRSTRT - RESTART FLAG UP OR DOWN DEPENDING ON CONTENTS OF ERASABLE RSTRTWRD.
003361,000760: 
003362,000761:                                                                                                  #  CALLING SEQUENCE
003363,000762:                                                                                                  #                CAF     BITX            USE BIT CORRESPONDING TO MISS PHASE NUM.
003364,000763:                                                                                                  #                TC      SETRSTRT
003365,000764: 
003366,000765:    4105                                           BLOCK    02                                    
003367,000766: 
003368,000767:    4105           22002        SETRSTRT           LXCH     Q                                     
003369,000768:    4106           71127                           MASK     RSTRTWRD                              
003370,000769:    4107           00006                           EXTEND                                         
003371,000770:    4110           14114                           BZF      +4                                    
003372,000771: 
003373,000772:    4111           06051                           TC       FLAG1UP                               #  USER MISSION PHASE IS RESTARTABLE
003374,000773:    4112           04000                           OCT      04000                                 
003375,000774:    4113           00001                           TC       L                                     
003376,000775: 
003377,000776:    4114           06067                 +4        TC       FLAG1DWN                              #  USER MISSION PHASE NOT RESTARTABLE
003378,000777:    4115           04000                           OCT      04000                                 
003379,000778:    4116           00001                           TC       L                                     

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