Source Code

004308,000002: ## Copyright: Public domain. 004309,000003: ## Filename: WAITLIST.agc 004310,000004: ## Purpose: Part of the source code for Solarium build 55. This 004311,000005: ## is for the Command Module's (CM) Apollo Guidance 004312,000006: ## Computer (AGC), for Apollo 6. 004313,000007: ## Assembler: yaYUL --block1 004314,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com> 004315,000009: ## Website: www.ibiblio.org/apollo/index.html 004316,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/ 004317,000011: ## Mod history: 2009-09-21 JL Created. 004318,000012: ## 2016-08-18 RSB Some fixes. 004319,000013: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments, 004320,000014: ## and fixed errors found. 004321,000015:

Page 111

004323,000017: 
004324,000018:                                                                                                  #  CHECK-OUT STATUS - UNIT VERIFICATION COMPLETE MAY, 1965               EXCEPT LONGCALL SECTION.
004325,000019: 
004326,000020:                                                                                                  #  DO NOT CHANGE THIS SECTION WITHOUT PRB APPROVAL.
004327,000021: 
004328,000022:                                                                                                  #  GROUNDRULE....DELTA T SHOULD NOT EXCEED 12000 (= 2 MINUTES)
004329,000023: 
004330,000024:    2173                                           BANK     1                                     
004331,000025:    2173           50577        WAITLIST           TS       DELT                                  #  STORE DELTA T = TD - T (TD = DESIRED
004332,000026:    2174           30001                           XCH      Q                                     #    TIME FOR FUTURE ACTION).
004333,000027:    2175           02065                           TC       EXECCOM                               #  PICK UP TASK ADDRESS AND SAVE BANKREG.
004334,000028:    2176           06374                           TC       WTLST3                                
004335,000029: 
004336,000030: 04,6374                                           BANK     4                                     
004337,000031: 04,6374           40037        WTLST3             CS       TIME3                                 
004338,000032: 04,6375           66376                           AD       +1                                    #  CCS  A  = + 1/4
004339,000033: 04,6376           10000                           CCS      A                                     #  TEST  1/4 - C(TIME3).  IF POSITIVE,
004340,000034:                                                                                                  #  IT MEANS THAT TIME3 OVERFLOW HAS OCCURRED PRIOR TO CS  TIME3 AND THAT
004341,000035:                                                                                                  #  C(TIME3) = T - T1, INSTEAD OF 1.0 - (T1 - T).  THE FOLLOWING FOUR
004342,000036:                                                                                                  #  ORDERS SET C(A) = TD - T1 + 1 IN EITHER CASE.  C(CSQ) = CS  Q = 40001
004343,000037:                                                                                                  #  AND  C(TSQ) = TS  Q = 50001   NOTATION...   1 - 00001,  1.0 = 37777+1
004344,000038: 
004345,000039: 04,6377           64664                           AD       CSQ                                   #  OVERFLOW HAS OCCURRED.  SET C(A) = 
004346,000040: 04,6400           40000                           CS       A                                     #  T - T1 + 3/4 - 1
004347,000041: 
004348,000042:                                                                                                  #  NORMAL CASE (C(A) MINUS) YIELDS SAME C(A)  -(-(1.0-(T1-T))+1/4)-1
004349,000043: 
004350,000044: 04,6401           64561                           AD       TSQ                                   #  TS  Q  = - 3/4 + 2
004351,000045: 04,6402           60577                           AD       DELT                                  #  RESULT = TD - T1 + 1
004352,000046:                                                                                                  #                10W             

Page 112

004354,000048: 04,6403           10000                           CCS      A                                     #  TEST TD - T1 + 1
004355,000049: 
004356,000050: 04,6404           60552                           AD       LST1                                  #  IF TD - T1 POS, GO TO WTLST5 WITH
004357,000051: 04,6405           06451                           TC       WTLST5                                #  C(A) = (TD - T1) + C(LST1) = TD-T2+1
004358,000052: 
004359,000053: 04,6406           06407                           TC       +1                                    
004360,000054: 04,6407           40577                           CS       DELT                                  
004361,000055: 
004362,000056:                                                                                                  #  NOTE THAT THIS PROGRAM SECTION IS NEVER ENTERED WHEN T-T1 G/E -1, 
004363,000057:                                                                                                  #  SINCE TD-T1+1 = (TD-T) + (T-T1+1), AND DELTA T = TD-T G/E +1.  (G/E
004364,000058:                                                                                                  #  SYMBOL MEANS GREATER THAN OR EQUAL TO).  THUS THERE NEED BE NO CON-
004365,000059:                                                                                                  #  CERN OVER A PREVIOUS OR IMMINENT OVERFLOW OF TIME3 HERE.
004366,000060: 
004367,000061: 04,6410           64522                           AD       POS1/2                                #  WHEN TD IS NEXT, FORM QUANTITY
004368,000062: 04,6411           64522                           AD       POS1/2                                #    1.0 - DELTA T = 1.0 - (TD - T)
004369,000063: 04,6412           30037                           XCH      TIME3                                 
004370,000064: 04,6413           64563                           AD       MSIGN                                 
004371,000065: 04,6414           60577                           AD       DELT                                  
004372,000066: 04,6415           50577                           TS       DELT                                  
004373,000067: 04,6416           35501                           CAF      ZERO                                  
004374,000068: 04,6417           30577                           XCH      DELT                                  
004375,000069: 04,6420           30552        WTLST4             XCH      LST1                                  
004376,000070: 04,6421           30553                           XCH      LST1       +1                         
004377,000071: 04,6422           30554                           XCH      LST1       +2                         
004378,000072: 04,6423           30555                           XCH      LST1       +3                         
004379,000073: 04,6424           30556                           XCH      LST1       +4                         
004380,000074: 04,6425           30557                           XCH      LST1       +5                         
004381,000075: 04,6426           30560                           XCH      LST1       +6                         
004382,000076: 04,6427           30573                           XCH      EXECTEM2                              #  TASK ADDRESS.
004383,000077: 04,6430           20577                           INDEX    NVAL                                  
004384,000078: 04,6431           06432                           TC       +1                                    
004385,000079: 04,6432           30561                           XCH      LST2                                  
004386,000080: 04,6433           30562                           XCH      LST2       +1                         
004387,000081: 04,6434           30563                           XCH      LST2       +2                         
004388,000082: 04,6435           30564                           XCH      LST2       +3                         
004389,000083: 04,6436           30565                           XCH      LST2       +4                         
004390,000084: 04,6437           30566                           XCH      LST2       +5                         #  AT END, CHECK THAT C(LST2+5) IS STD
004391,000085: 04,6440           30567                           XCH      LST2       +6                         
004392,000086: 04,6441           30570                           XCH      LST2       +7                         
004393,000087: 04,6442           62260                           AD       ENDTASK                               #    END ITEM, AS CHECK FOR EXCEEDING
004394,000088:                                                                                                  #    THE LENGTH OF THE LIST.
004395,000089: 04,6443           10000                           CCS      A                                     
004396,000090: 04,6444           03044                           TC       ABORT                                 #  WAITLIST OVERFLOW.
004397,000091: 04,6445           01203                           OCT      01203                                 
004398,000092: 04,6446           06444                           TC       -2                                    
004399,000093: 
004400,000094: 04,6447           30572                           XCH      EXECTEM1                              #  RETURN TO CALLER.
004401,000095: 04,6450           02076                           TC       LVWTLIST                              #  SAME ROUTINE AS FINDVAC, ETC., EXIT.
004402,000096: 

Page 113

004404,000098: 
004405,000099: 04,6451           10000        WTLST5             CCS      A                                     #  TEST  TD - T2 + 1
004406,000100: 04,6452           60553                           AD       LST1       +1                         
004407,000101: 04,6453           06457                           TC       +4                                    
004408,000102: 04,6454           64516                           AD       ONE                                   
004409,000103: 04,6455           06535                           TC       WTLST2                                
004410,000104: 04,6456           00001                           OCT      1                                     
004411,000105: 
004412,000106: 04,6457           10000                 +4        CCS      A                                     #  TEST  TD - T3 + 1
004413,000107: 04,6460           60554                           AD       LST1       +2                         
004414,000108: 04,6461           06465                           TC       +4                                    
004415,000109: 04,6462           64516                           AD       ONE                                   
004416,000110: 04,6463           06535                           TC       WTLST2                                
004417,000111: 04,6464           00002                           OCT      2                                     
004418,000112: 
004419,000113: 04,6465           10000                 +4        CCS      A                                     #  TEST  TD - T4 + 1
004420,000114: 04,6466           60555                           AD       LST1       +3                         
004421,000115: 04,6467           06473                           TC       +4                                    
004422,000116: 04,6470           64516                           AD       ONE                                   
004423,000117: 04,6471           06535                           TC       WTLST2                                
004424,000118: 04,6472           00003                           OCT      3                                     
004425,000119: 
004426,000120: 04,6473           10000                 +4        CCS      A                                     #  TEST  TD - T5 + 1
004427,000121: 04,6474           60556                           AD       LST1       +4                         
004428,000122: 04,6475           06501                           TC       +4                                    
004429,000123: 04,6476           64516                           AD       ONE                                   
004430,000124: 04,6477           06535                           TC       WTLST2                                
004431,000125: 04,6500           00004                           OCT      4                                     
004432,000126: 
004433,000127: 04,6501           10000                 +4        CCS      A                                     #  TEST  TD - T6 + 1
004434,000128: 04,6502           60557                           AD       LST1       +5                         
004435,000129: 04,6503           06507                           TC       +4                                    
004436,000130: 04,6504           64516                           AD       ONE                                   
004437,000131: 04,6505           06535                           TC       WTLST2                                
004438,000132: 04,6506           00005                           OCT      5                                     
004439,000133: 

Page 114

004441,000135: 04,6507           10000                 +4        CCS      A                                     
004442,000136: 04,6510           60560                           AD       LST1       +6                         
004443,000137: 04,6511           06515                           TC       +4                                    
004444,000138: 04,6512           64516                           AD       ONE                                   
004445,000139: 04,6513           06535                           TC       WTLST2                                
004446,000140: 04,6514           00006                           OCT      6                                     
004447,000141: 
004448,000142: 04,6515           10000                 +4        CCS      A                                     
004449,000143: 04,6516           06523                           TC       WTALARM                               
004450,000144: 04,6517           30000                           NOOP                                           
004451,000145: 04,6520           64516                           AD       ONE                                   
004452,000146: 04,6521           06535                           TC       WTLST2                                
004453,000147: 04,6522           00007                           OCT      7                                     
004454,000148: 
004455,000149: 04,6523           03044        WTALARM            TC       ABORT                                 
004456,000150: 04,6524           01204                           OCT      01204                                 
004457,000151: 
004458,000152: 04,6525     2076               LVWTLIST           EQUALS   FOUNDVAC                              
004459,000153: 
004460,000154: 04,6525           10647        SVCT3X             CCS      FLAGWRD2                              #  IF DURING FREE-FALL AND AFTER
004461,000155: 04,6526           02256                           TC       TASKOVER                              #  PLATFORM HAS BEEN ALIGNED, COMPENSATE
004462,000156: 04,6527           02256                           TC       TASKOVER                              #  FOR GYRO BIAS DRIFT.
004463,000157: 04,6530           06531                           TC       +1                                    
004464,000158: 
004465,000159: 04,6531           32170                           CAF      PRIO35                                
004466,000160: 04,6532           02052                           TC       NOVAC                                 
004467,000161: 04,6533           31261                           CADR     BIASONLY                              
004468,000162: 04,6534           02256        LTSKOV             TC       TASKOVER                              #  USED BY LONGCALL.
004469,000163: 
004470,000164:                                                                                                  #  C(TIME3) = 1.0 - (T1 - T)
004471,000165: 
004472,000166:                                                                                                  #  C(LST1  ) = - (T2 - T1) + 1
004473,000167:                                                                                                  #  C(LST1+1) = - (T3 - T2) + 1
004474,000168:                                                                                                  #  C(LST1+2) = - (T4 - T3) + 1
004475,000169:                                                                                                  #  C(LST1+3) = - (T5 - T4) + 1
004476,000170:                                                                                                  #  C(LST1+4) = - (T6 - T5) + 1
004477,000171: 
004478,000172:                                                                                                  #  C(LST2  ) = TC  TASK1
004479,000173:                                                                                                  #  C(LST2+1) = TC  TASK2
004480,000174:                                                                                                  #  C(LST2+2) = TC  TASK3
004481,000175:                                                                                                  #  C(LST2+3) = TC  TASK4
004482,000176:                                                                                                  #  C(LST2+4) = TC  TASK5
004483,000177:                                                                                                  #  C(LST2+5) = TC  TASK6                                         11W
004484,000178: 

Page 115

004486,000180: 
004487,000181:                                                                                                  #  THE ENTRY TO WTLST2 JUST PRECEDING OCT  N  IS FOR T  LE TD LE T   -1.
004488,000182:                                                                                                  #                                                     N           N+1
004489,000183:                                                                                                  #  (LE MEANS LESS THAN OR EQUAL TO).  AT ENTRY, C(A) = -(TD - T   + 1)
004490,000184:                                                                                                  #                                                              N+1
004491,000185: 
004492,000186:                                                                                                  #  THE LST1 ENTRY -(T   - T +1) IS TO BE REPLACED BY -(TD - T + 1), AND
004493,000187:                                                                                                  #                    N+1   N                                 N
004494,000188: 
004495,000189:                                                                                                  #  THE ENTRY -(T   - TD + 1) IS TO BE INSERTED IMMEDIATELY FOLLOWING.
004496,000190:                                                                                                  #               N+1
004497,000191: 
004498,000192: 04,6535           30001        WTLST2             XCH      Q                                     #  NEW C(Q) = -(TD - T   + 1)
004499,000193: 04,6536           20000                           INDEX    A                                     #                     N+1
004500,000194: 04,6537           30000                           CAF      0                                     
004501,000195: 04,6540           50577                           TS       NVAL                                  #  VALUE OF N INTO NVAL
004502,000196: 
004503,000197: 04,6541           34516                           CAF      ONE                                   
004504,000198: 04,6542           60001                           AD       Q                                     
004505,000199: 04,6543           20577                           INDEX    NVAL                                  #  C(A) = -(TD - T ) + 1.
004506,000200: 04,6544           60551                           AD       LST1       -1                         #                 N
004507,000201: 
004508,000202: 04,6545           20577                           INDEX    NVAL                                  
004509,000203: 04,6546           50551                           TS       LST1       -1                         
004510,000204: 
004511,000205: 04,6547           40001                           CS       Q                                     #  -C(Q) = -(T    - TD) + 1
004512,000206: 04,6550           20577                           INDEX    NVAL                                  #             N+1
004513,000207: 04,6551           06420                           TC       WTLST4                                
004514,000208: 

Page 116

004516,000210: 
004517,000211:                                                                                                  #  THIS ROUTINE HANDLES TASKS MORE THAN 120 SECS IN THE FUTURE. IT REQUIRES CALL TIME IN LONGTIME, +1 SCALED SAME
004518,000212:                                                                                                  #  AS TIME2, 1 AND THE TASK ADDRESS IN CALLCADR. ENTER WITH
004519,000213:                                                                                                  #                                                                TC      IBNKCALL
004520,000214:                                                                                                  #                                                                CADR    LONGCALL
004521,000215:                                                                                                  #  THE ROUTINE ONLY HANDLES ONE CALL AT A TIME
004522,000216: 
004523,000217: 04,6552           30001        LONGCALL           XCH      Q                                     
004524,000218: 04,6553           51466                           TS       LONGEXIT                              
004525,000219: 
004526,000220: 04,6554           31461                           XCH      LONGTIME   +1                         
004527,000221: 04,6555           60000                           DOUBLE                                         
004528,000222: 04,6556           51461                           TS       LONGTIME   +1                         
004529,000223: 04,6557           35501                           CAF      ZERO                                  
004530,000224: 04,6560           61460                           AD       LONGTIME                              
004531,000225: 04,6561           61460                           AD       LONGTIME                              
004532,000226: 04,6562           51460                           TS       LONGTIME                              
004533,000227: 04,6563           06565                           TC       +2                                    
004534,000228: 04,6564           06564                           TC       -0                                    #  ERROR TRAP.   DT TOO BIG
004535,000229: 
004536,000230: 04,6565           34516                           CAF      ONE                                   
004537,000231: 04,6566           61461                           AD       LONGTIME   +1                         
004538,000232: 04,6567           64476                           AD       POSMAX                                
004539,000233: 04,6570           51461                           TS       LONGTIME   +1                         
004540,000234: 04,6571           35501                           CAF      ZERO                                  
004541,000235: 
004542,000236: 04,6572           61460                           AD       LONGTIME                              
004543,000237: 04,6573           64476                           AD       POSMAX                                
004544,000238: 04,6574           51460                           TS       LONGTIME                              
004545,000239: 04,6575           03062                           TC       CCSHOLE                               
004546,000240: 
004547,000241: 04,6576           34501                           CAF      BIT14                                 
004548,000242: 04,6577           25777                           EXTEND                                         
004549,000243: 04,6600           41461                           MP       LONGTIME   +1                         
004550,000244: 04,6601           51461                           TS       LONGTIME   +1                         
004551,000245: 
004552,000246: 04,6602           11460        LONGCYCL           CCS      LONGTIME                              
004553,000247: 04,6603           06613                           TC       LOOPAGIN                              
004554,000248: 
004555,000249: 04,6604           11461                           CCS      LONGTIME   +1                         #  TEST FOR LOWER ORDER ZERO
004556,000250: 04,6605           06607                           TC       +2                                    
004557,000251: 04,6606           06622                           TC       GETCADR                               
004558,000252: 
004559,000253: 04,6607           31461                           XCH      LONGTIME   +1                         
004560,000254: 04,6610           02173                           TC       WAITLIST                              
004561,000255: 04,6611           10622                           CADR     GETCADR                               
004562,000256: 
004563,000257: 04,6612           06617                           TC       LONGC1                                
004564,000258: 04,6613           51460        LOOPAGIN           TS       LONGTIME                              

Page 117

004566,000260: 04,6614           34501                           CAF      BIT14                                 
004567,000261: 04,6615           02173                           TC       WAITLIST                              
004568,000262: 04,6616           10602                           CADR     LONGCYCL                              
004569,000263: 
004570,000264: 04,6617           36534        LONGC1             CAF      LTSKOV                                
004571,000265: 04,6620           31466                           XCH      LONGEXIT                              
004572,000266: 04,6621           00000                           XAQ                                            
004573,000267: 
004574,000268: 04,6622           31467        GETCADR            XCH      CALLCADR                              
004575,000269: 04,6623           05723                           TC       BANKJUMP                              
004576,000270: 

Page 118

004578,000272: 
004579,000273:                                                                                                  #        ENTERS HERE ON T3 RUPT TO DISPATCH WAITLISTED TASK.
004580,000274: 
004581,000275:    2177                                           SETLOC   WAITLIST   +4                         #  BACK TO FF.
004582,000276: 
004583,000277:    2177           30015        T3RUPT             XCH      BANKREG                               #   TIME 3 OVERFLOW INTERRUPT PROGRAM
004584,000278:    2200           50030                           TS       BANKRUPT                              
004585,000279:    2201           30034                           XCH      OVCTR                                 #  1.  PICK UP CONTENTS OF THE OVERFLOW
004586,000280:    2202           50031                           TS       OVRUPT                                #     AND SAVE IN OVRUPT FOR ENTIRE T3RUPT.
004587,000281: 
004588,000282:    2203           45501        T3RUPT2            CS       ZERO                                  #  SET RUPTAGN TO -0 INITIALLY, AND SET
004589,000283:    2204           50571                           TS       RUPTAGN                               #  T3 TO -0 WHILE WE MAKE UP ITS NEW
004590,000284:    2205           30037                           XCH      TIME3                                 #  CONTENTS SO WE CAN DETECT AN INCREMENT
004591,000285:    2206           50001                           TS       Q                                     #  OCCURING IN THE PROCESS.
004592,000286: 
004593,000287:    2207           34520                           CAF      NEG1/2                                
004594,000288:    2210           30560                           XCH      LST1       +6                         
004595,000289:    2211           30557                           XCH      LST1       +5                         
004596,000290:    2212           30556                           XCH      LST1       +4                         #  3.  MOVE UP LST1 CONTENTS, ENTERING
004597,000291:    2213           30555                           XCH      LST1       +3                         #      A VALUE OF 1/2 +1 AT THE BOTTOM
004598,000292:    2214           30554                           XCH      LST1       +2                         #      FOR T6-T5, CORRESPONDING TO THE
004599,000293:    2215           30553                           XCH      LST1       +1                         #      INTERVAL 81.93 SEC FOR ENDTASK.
004600,000294:    2216           30552                           XCH      LST1                                  
004601,000295:    2217           64476                           AD       POSMAX                                #  4. SET T3 = 1.0 - T2 -T USING LIST 1.
004602,000296:    2220           60001                           AD       Q                                     #  SAMPLED T3.
004603,000297:    2221           50000                           TS       A                                     #  SEE IF NEW T3 HAS OVERFLOW. IF SO, NEXT
004604,000298:    2222           02226                           TC       +4                                    #  TASK IS DUE THIS T3 RUPT AND SET RUPTAGN
004605,000299:    2223           30571                           XCH      RUPTAGN                               #  ACCORDINGLY.
004606,000300:    2224           34516                           CAF      ONE                                   
004607,000301:    2225           30571                           XCH      RUPTAGN                               
004608,000302: 
004609,000303:    2226           30037                 +4        XCH      TIME3                                 
004610,000304:    2227           10000                           CCS      A                                     #  T3 IS ALMOST ALWAYS -0 UNLESS AN
004611,000305:    2230           34516                           CAF      ONE                                   #  INCREMENT OCCURRED IN WHICH CASE WE MUST
004612,000306:    2231           60037                           AD       TIME3                                 #  ADD IT TO THE NEW T3.
004613,000307:    2232           02272                           TC       XTRAINC                               
004614,000308: 

Page 119

004616,000310: 
004617,000311:    2233           42260        T3DSP              CS       ENDTASK                               
004618,000312:    2234           30570                           XCH      LST2       +7                         
004619,000313:    2235           30567                           XCH      LST2       +6                         
004620,000314:    2236           30566                           XCH      LST2       +5                         #        ENTERING THE ENDTASK AT BOTTOM.
004621,000315:    2237           30565                           XCH      LST2       +4                         
004622,000316:    2240           30564                           XCH      LST2       +3                         
004623,000317:    2241           30563                           XCH      LST2       +2                         
004624,000318:    2242           30562                           XCH      LST2       +1                         
004625,000319:    2243           30561                           XCH      LST2                                  #  9.  PICK UP TOP TASK ON LIST
004626,000320: 
004627,000321:    2244           50015                           TS       BANKREG                               #  SWITCH BANKS IF NECESSARY
004628,000322:    2245           50577                           TS       ITEMP1                                
004629,000323:    2246           72667                           MASK     70K                                   
004630,000324:    2247           10000                           CCS      A                                     
004631,000325:    2250           02252                           TC       +2                                    #  IF +
004632,000326:    2251           00577                           TC       ITEMP1                                
004633,000327:    2252           30577                           XCH      ITEMP1                                
004634,000328:    2253           74606                           MASK     LOW10                                 
004635,000329:    2254           20000                           INDEX    A                                     
004636,000330:    2255           06000                           TC       6000                                  
004637,000331: 
004638,000332: 
004639,000333: 
004640,000334:                                                                                                  #  RETURN, AFTER EXECUTION OF TIME3 OVERFLOW TASK.
004641,000335: 
004642,000336:    2256           10571        TASKOVER           CCS      RUPTAGN                               #  IF +1 RETURN TO T3RUPT, IF -0 RESUME.
004643,000337:    2257           02203                           TC       T3RUPT2                               #  DISPATCH NEXT TASK IF IT WAS DUE.
004644,000338: 
004645,000339:    2260           67774        ENDTASK           -CADR     SVCT3                                 
004646,000340:    2261           76000        BANKMASK           OCT      76000                                 
004647,000341: 
004648,000342:    2262           30031        OVRESUME           XCH      OVRUPT                                #  OVCTR RESTORE AND BANKREG RESTORE.
004649,000343:    2263           50034                           TS       OVCTR                                 
004650,000344: 
004651,000345:    2264           30030        RESUME             XCH      BANKRUPT                              #  STANDARD BANK-SWITCH RESUME.
004652,000346:    2265           50015                           TS       BANKREG                               
004653,000347: 
004654,000348:    2266           30027        NBRESUME           XCH      QRUPT                                 #  NO-BANK-SWITCH RESUME.
004655,000349:    2267           50001                           TS       Q                                     
004656,000350:    2270           30026                           XCH      ARUPT                                 
004657,000351:    2271           20025                           RESUME                                         
004658,000352: 
004659,000353:                                                                                                  #        FINISH UP RARE EVENT OF EXTRA INCREMENT TO T3.
004660,000354: 
004661,000355:    2272           50037        XTRAINC            TS       TIME3                                 
004662,000356:    2273           02233                           TC       T3DSP                                 #  USUAL CASE.
004663,000357:    2274           50571                           TS       RUPTAGN                               #  EVEN MORE RARE - THE NEXT TASK IS DUE
004664,000358:    2275           02233                           TC       T3DSP                                 #  THIS T3RUPT.
004665,000359: 
004666,000360: 

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