Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

030142,000002:                                                                                                  ## Copyright:   Public domain.
030143,000003:                                                                                                  ## Filename:    MP_7_-_SIVB_LEM_SEPARATION.agc
030144,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
030145,000005:                                                                                                  ##              It is part of an early development version of the software
030146,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
030147,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
030148,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
030149,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
030150,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
030151,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
030152,000012:                                                                                                  ##              that the code format has been changed to conform to the
030153,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
030154,000014:                                                                                                  ##              original YUL assembler.
030155,000015:                                                                                                  ## Reference:   pp. 669-675
030156,000016:                                                                                                  ## Assembler:   yaYUL
030157,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
030158,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
030159,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
030160,000020:                                                                                                  ##              2017-06-14 RSB  Transcribed.
030161,000021:                                                                                                  ##              2017-06-14 HG   Fix operand EBANK -> EBANK4
030162,000022:                                                                                                  ##              2017-06-22 RSB  Proofed comment text with
030163,000023:                                                                                                  ##                              octopus/ProoferComments.
030164,000024: 

Page 669

030166,000026: 25,2467                                           BANK     25                                    
030167,000027: 25,2467  E4,1566                                  EBANK=   TDEC                                  
030168,000028: 
030169,000029:                                                                                                  #  PROGRAM DESCRIPTION- MISSION PHASE 7 - SIVB/LEM SEPARATION              DATE- 21 OCT 66
030170,000030:                                                                                                  #  MOD NO- 0                                                               LOG SECTION- MP 7 - SIVB/LEM SEPARATION
030171,000031:                                                                                                  #  MOD BY- GILBERT                                                         ASSEMBLY- SUNBURST REVISION 12
030172,000032: 
030173,000033:                                                                                                  #  FUNCTIONAL DESCRIPTION
030174,000034: 
030175,000035:                                                                                                  #            SIVB/LEM SEPARATION IS STARTED 39 MIN. 56 SEC. AFTER SIVB SHUTDOWN IS DETECTED. AT 00/11/04, ONE
030176,000036:                                                                                                  #  MINUTE AFTER BOOST SHUTDOWN IS DETECTED, MISSION TIMER NO. 1 IS SET TO 38M 56S AND MISSION PHASE REGISTER NO. 1
030177,000037:                                                                                                  #  TO MP 7. MISSION PHASE 7 STARTS AT 00/50/00. THIS PROGRAM COMMANDS A SEQUENCE OF EVENTS INCLUDING RCS COLD
030178,000038:                                                                                                  #  FIRE PURGE, RCS PRESSURIZATION, S BAND SYSTEM ACTIVATION, +X TRANSLATION INITIATION OF LEM/SIVB SEPARATION
030179,000039:                                                                                                  #  SEQUENCE, AND AGS ACTIVATION. IMMEDIATELY AFTER PHYSICAL SEPARATION, 00/54/00, THE PGNCS HOLDS THE ATTITUDE RATE
030180,000040:                                                                                                  #  WHICH EXISTED AT SEPARATION TO MINIMIZE THE PROBABILITY OF RE-CONTACT. RCS +X TRANSLATION IS TERMINATED 15
030181,000041:                                                                                                  #  SECONDS AFTER SEPARATION AT 00/54/15 AT WHICH TIME AUTOMATIC ATTITUDE HOLD IS INITIATED. THIS TERMINATION
030182,000042:                                                                                                  #  FOLLOWS A SEQUENCE STARTING AT 00/53/55 DURING WHICH THE JETS ARE TURNED ON FOR 10 SECONDS, OFF FOR 5 SECONDS,
030183,000043:                                                                                                  #  AND ON FOR 5 SECONDS. THIS IS DUE TO THE POSSIBILITY OF HEAT AFFECTING THE RENDEZVOUS RADAR ANTENNAE.
030184,000044:                                                                                                  #  MISSION PHASE TIMER NO. 4 IS SET TO START MISSION PHASE 8 (DPS COLD SOAK) IN 08 SECONDS. MISSION PHASE TIMER
030185,000045:                                                                                                  #  NO. 2 IS SET TO START MISSION PHASE 9 (DPS 1) IN 3H 1M 47S. MAJOR MODE 14 IS DISPLAYED DURING THIS PHASE.
030186,000046: 
030187,000047:                                                                                                  #  CALLING SEQUENCE
030188,000048:                                                                                                  #      SIVB/LEM SEPARATION IS CALLED BY THE MISSION SCHEDULING ROUTINE AS A JOB. THE MISSION SCHEDULING ENTRY
030189,000049:                                                                                                  #  ROUTINE WAS CALLED 1 MINUTE AFTER BOOST SHUTDOWN IN MISSION PHASE 6 TO SET TIMER NO. 1 TO 38 MINUTES 56 SECONDS.
030190,000050: 
030191,000051:                                                                                                  #  SUBROUTINES CALLED
030192,000052:                                                                                                  #      NEWMODEX, WAITLIST, FIXDELAY, 1LMP+DT, 2LMP+DT, FLAG1UP, FLAG1DWN, MPENTRY, MIDTOAVE, AVETOMID, TPAGREE,
030193,000053:                                                                                                  #  PREREAD, READACCS, SERVICER, AVERAGEG.
030194,000054: 
030195,000055:                                                                                                  #  NORMAL EXIT MODE
030196,000056:                                                                                                  #      TASKOVER (ENDOFJOB INITIALLY SINCE TASK IS REQUESTED)
030197,000057: 
030198,000058:                                                                                                  #  ALARM OR ABORT EXIT MODES
030199,000059:                                                                                                  #      NONE
030200,000060: 
030201,000061:                                                                                                  #  INPUT
030202,000062:                                                                                                  #      MISSION SCHEDULING MAINTENANCE ROUTINE MUST BE INHIBITED AT BEGINNING AND ENABLED AT END OF MISSION PHASE 7.
030203,000063: 
030204,000064:                                                                                                  #  OUTPUT
030205,000065:                                                                                                  #      RCS COLD FIRE PURGE, RCS PRESSURIZATION, S BAND SYSTEM ACTIVATION, +X TRANSLATION, INITIATION OF LEM/SIVB
030206,000066:                                                                                                  #  SEPARATION SEQUENCE, AND SCHEDULING OF MISSION PHASES 8 AND 9 (DPS COLD SOAK AND DPS 1).
030207,000067: 
030208,000068:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030209,000069:                                                                                                  #      NORMAL MISSION SEQUENCE SETS ERASABLES PROPERLY
030210,000070: 
030211,000071:                                                                                                  #  DEBRIS
030212,000072:                                                                                                  #      CENTRALS - A,L,Q
030213,000073:                                                                                                  #      OTHER    - ERASABLES IN SUBROUTINES USED
030214,000074: 

Page 670

030216,000076: 25,2467           00006        MP07JOB            EXTEND                                         
030217,000077: 25,2470           30025                           DCA      TIME2                                 #  SET UP TIME FOR MIDTOAVE
030218,000078: 25,2471           53567                           DXCH     TDEC                                  
030219,000079: 25,2472           00006                           EXTEND                                         
030220,000080: 25,2473           32761                           DCA      MP07DELT                              
030221,000081: 25,2474           21567                           DAS      TDEC                                  
030222,000082: 
030223,000083: 25,2475           00006                           EXTEND                                         
030224,000084: 25,2476           31567                           DCA      TDEC                                  
030225,000085: 25,2477           52422                           DXCH     TIMEHOLD                              #  NO RADAR ON 206
030226,000086: 
030227,000087: 25,2500           04105                           TC       NEWMODEX                              #  DISPLAY MAJOR MODE 14
030228,000088: 25,2501           00014                           OCT      14                                    
030229,000089: 
030230,000090: 25,2502           00006                           EXTEND                                         
030231,000091: 25,2503           32763                           DCA      MIDAVE2C                              #  PRIOR TO THRUST
030232,000092: 25,2504           52006                           DXCH     Z                                     
030233,000093: 
030234,000094: 25,2505           04147                           TC       PHASCHNG                              
030235,000095: 25,2506           05022                           OCT      05022                                 
030236,000096: 25,2507           20000                           OCT      20000                                 
030237,000097: 
030238,000098: 25,2510           32767                           CAF      AVRAGEG7                              #  SERVICER CALLS AVERAGEG
030239,000099: 25,2511           55322                           TS       DVSELECT                              
030240,000100: 
030241,000101: 25,2512           00006                           EXTEND                                         
030242,000102: 25,2513           32765                           DCA      SVREXIT                               #  NORMAL EXIT FROM AVERAGEG
030243,000103: 25,2514           53073                           DXCH     AVGEXIT                               
030244,000104: 
030245,000105: 25,2515           32766                           CAF      JETS+X                                #  RCS COLD FIRE PURGE
030246,000106: 25,2516           00006                           EXTEND                                         
030247,000107: 25,2517           01005                           WRITE    5                                     
030248,000108: 
030249,000109: 25,2520           04147                           TC       PHASCHNG                              
030250,000110: 25,2521           47012                           OCT      47012                                 
030251,000111: 25,2522           07640                           DEC      4000       B-14                       
030252,000112: 25,2523  E4,1566                                  EBANK=   TDEC                                  
030253,000113: 25,2523           02533 52004                     2CADR    SIVBSEP                               
030254,000114: 
030255,000115: 
030256,000116: 25,2525           00004                           INHINT                                         
030257,000117: 25,2526           32757                           CAF      40SEC                                 
030258,000118: 25,2527           05701                           TC       WAITLIST                              
030259,000119: 25,2530  E4,1566                                  EBANK=   TDEC                                  
030260,000120: 25,2530           02533 52004                     2CADR    SIVBSEP                               
030261,000121: 
030262,000122: 25,2532           05605                           TC       ENDOFJOB                              #  AND RELINT
030263,000123: 
030264,000124: 25,2533           04147        SIVBSEP            TC       PHASCHNG                              
030265,000125: 25,2534           05012                           OCT      05012                                 
030266,000126: 25,2535           77777                           OCT      77777                                 

Page 671

030268,000128: 25,2536           37761                           CAF      ZERO                                  #  TERMINATE RCS COLD FIRE PURGE
030269,000129: 25,2537           00006                           EXTEND                                         
030270,000130: 25,2540           01005                           WRITE    5                                     
030271,000131: 
030272,000132: 25,2541           04147                           TC       PHASCHNG                              
030273,000133: 25,2542           47012                           OCT      47012                                 
030274,000134: 25,2543           00620                           DEC      400        B-14                       
030275,000135: 25,2544  E4,1566                                  EBANK=   TDEC                                  
030276,000136: 25,2544           02550 52004                     2CADR    SIVB1                                 
030277,000137: 
030278,000138: 25,2546           05717                           TC       FIXDELAY                              #  WAIT 4 SECONDS
030279,000139: 25,2547           00620                           DEC      400        B-14                       
030280,000140: 
030281,000141: 25,2550           05106        SIVB1              TC       2LMP+DT                               
030282,000142: 25,2551           00274                           DEC      188        B-14                       #  RCS MAIN S/O VALVES, SYS. A - OPEN **
030283,000143: 25,2552           00276                           DEC      190        B-14                       #  RCS MAIN S/O VALVES, SYS. B - OPEN **
030284,000144: 25,2553           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
030285,000145: 
030286,000146: 25,2554           05114                           TC       1LMP+DT                               
030287,000147: 
030288,000148: 25,2555           00004                           DEC      4          B-14                       #  ED BATTERY ACTIVATION - ON
030289,000149: 25,2556           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
030290,000150: 
030291,000151: 25,2557           05106                           TC       2LMP+DT                               
030292,000152: 25,2560           00275                           DEC      189        B-14                       #  RESET **
030293,000153: 25,2561           00277                           DEC      191        B-14                       #  RESET **
030294,000154: 25,2562           01604                           DEC      900        B-14                       #  WAIT 9 SECONDS
030295,000155: 
030296,000156: 25,2563           05114                           TC       1LMP+DT                               
030297,000157: 25,2564           00006                           DEC      6          B-14                       #  RCS PRESSURIZE - FIRE **
030298,000158: 25,2565           00310                           DEC      200        B-14                       #  WAIT 2 SECONDS
030299,000159: 
030300,000160: 25,2566           05114                           TC       1LMP+DT                               
030301,000161: 25,2567           00007                           DEC      7          B-14                       #  RESET **
030302,000162: 25,2570           05360                           DEC      2800       B-14                       #  WAIT 28 SECONDS
030303,000163: 
030304,000164: 25,2571           05114                           TC       1LMP+DT                               
030305,000165: 25,2572           00005                           DEC      5          B-14                       #  ED BATTERY ACTIVATION - SAFE *
030306,000166: 25,2573           22434                           DEC      9500       B-14                       #  WAIT 95 SECONDS                              ...
030307,000167: 
030308,000168: 25,2574           00006                           EXTEND                                         
030309,000169: 25,2575           30422                           DCA      TIMEHOLD                              
030310,000170: 25,2576           53664                           DXCH     DT2TEMPD                              
030311,000171: 
030312,000172: 25,2577           00006                           EXTEND                                         
030313,000173: 25,2600           40025                           DCS      TIME2                                 #  TIG - 28 SEC.  =  TDEC + 2 SEC.
030314,000174: 25,2601           21664                           DAS      DT2TEMPD                              
030315,000175: 
030316,000176: 25,2602           04147                           TC       PHASCHNG                              
030317,000177: 25,2603           05012                           OCT      05012                                 
030318,000178: 25,2604           77777                           OCT      77777                                 
030319,000179: 

Page 672

030321,000181: 25,2605           00006                           EXTEND                                         
030322,000182: 25,2606           31664                           DCA      DT2TEMPD                              
030323,000183: 
030324,000184: 25,2607           52422                           DXCH     TIMEHOLD                              
030325,000185: 25,2610           10422                           CCS      TIMEHOLD   +1                         #  INSURE WAITLIST TIME POSITIVE
030326,000186: 25,2611           67755                           AD       ONE                                   
030327,000187: 25,2612           12615                           TCF      +3                                    
030328,000188: 25,2613           40000                           COM                                            
030329,000189: 25,2614           67735                           AD       POSMAX                                
030330,000190: 25,2615           55662                           TS       DT2TEMP                               
030331,000191: 25,2616           05701                           TC       WAITLIST                              #  REQUEST LASTBIAS AT TIG - 30 SECONDS
030332,000192: 25,2617  E4,1566                                  EBANK=   TDEC                                  
030333,000193: 25,2617           02770 52004                     2CADR    TIG-30                                
030334,000194: 
030335,000195: 25,2621           04127                           TC       2PHSCHNG                              
030336,000196: 25,2622           40052                           OCT      40052                                 
030337,000197: 25,2623           47014                           OCT      47014                                 
030338,000198: 25,2624           76115                           -GENADR  DT2TEMP                               
030339,000199: 25,2625  E4,1566                                  EBANK=   TDEC                                  
030340,000200: 25,2625           02770 52004                     2CADR    TIG-30                                
030341,000201: 
030342,000202: 25,2627           05717                           TC       FIXDELAY                              #  WAIT 55 SECONDS
030343,000203: 25,2630           12574                           DEC      5500       B-14                       
030344,000204: 
030345,000205: 25,2631           05307        SIVB2              TC       IBNKCALL                              #  DEADBAND SELECT - MAX
030346,000206: 25,2632           34012                           CADR     SETMAXDB                              
030347,000207: 
030348,000208: 25,2633           32766                           CAF      JETS+X                                #  COMMAND +X TRANSLATION - ON (4 JET)
030349,000209: 25,2634           00006                           EXTEND                                         
030350,000210: 25,2635           01005                           WRITE    5                                     
030351,000211: 25,2636           05307                           TC       IBNKCALL                              
030352,000212: 25,2637           34024                           CADR     ULLAGE                                
030353,000213: 
030354,000214: 25,2640           04147                           TC       PHASCHNG                              
030355,000215: 25,2641           47012                           OCT      47012                                 
030356,000216: 25,2642           00144                           DEC      100        B-14                       
030357,000217: 25,2643  E4,1566                                  EBANK=   TDEC                                  
030358,000218: 25,2643           02647 52004                     2CADR    SIVB3                                 
030359,000219: 
030360,000220: 25,2645           05717                           TC       FIXDELAY                              #  WAIT 1 SECOND
030361,000221: 25,2646           00144                           DEC      100        B-14                       
030362,000222: 
030363,000223: 25,2647           05114        SIVB3              TC       1LMP+DT                               
030364,000224: 25,2650           00212                           DEC      138        B-14                       #  XMTR/RCVR (S-BAND) - PRIM *
030365,000225: 25,2651           00454                           DEC      300        B-14                       #  WAIT 3 SECONDS
030366,000226: 
030367,000227: 25,2652           05114                           TC       1LMP+DT                               
030368,000228: 25,2653           00072                           DEC      58         B-14                       #  LEM/SIVB SEPARATE ARM - ON *
030369,000229: 25,2654           00062                           DEC      50         B-14                       #  WAIT 500 MILLISECONDS
030370,000230: 
030371,000231: 25,2655           40077                           CS       DAPBOOLS                              #  ENABLE DAP

Page 673

030373,000233: 25,2656           77743                           MASK     GODAPGO                               
030374,000234: 25,2657           26077                           ADS      DAPBOOLS                              
030375,000235: 
030376,000236: 25,2660           05717                           TC       FIXDELAY                              #  WAIT 500 MILLISECONDS
030377,000237: 25,2661           00062                           DEC      50         B-14                       
030378,000238: 
030379,000239: 25,2662           05307                           TC       IBNKCALL                              #  GET VEHICLE RATE
030380,000240: 25,2663           34034                           CADR     SETRATE                               #  HOLD VEHICLE ATTITUDE RATE
030381,000241: 
030382,000242: 25,2664           05114                           TC       1LMP+DT                               
030383,000243: 25,2665           00132                           DEC      90         B-14                       #  LEM/SIVB SEPARATE - COMMAND **
030384,000244: 25,2666           00012                           DEC      10         B-14                       #  WAIT 100 MILLISECONDS
030385,000245: 
030386,000246: 25,2667           05307                           TC       IBNKCALL                              #  DEADBAND SELECT - MIN
030387,000247: 25,2670           34000                           CADR     SETMINDB                              
030388,000248: 
030389,000249: 25,2671  E5,1540                                  EBANK=   LEMMASS1                              
030390,000250: 25,2671           35677                           CAF      EBANK5                                
030391,000251: 25,2672           54003                           TS       EBANK                                 
030392,000252: 
030393,000253: 25,2673           00006                           EXTEND                                         
030394,000254: 25,2674           31541                           DCA      LEMMASS1                              
030395,000255: 25,2675           53333                           DXCH     MASS                                  
030396,000256: 
030397,000257: 25,2676           37761                           CAF      ZERO                                  
030398,000258: 25,2677           55551                           TS       DELAREA                               
030399,000259: 25,2700           55552                           TS       DELAREA    +1                         
030400,000260: 
030401,000261: 25,2701  E4,1566                                  EBANK=   TDEC                                  
030402,000262: 25,2701           37743                           CAF      EBANK4                                
030403,000263: 25,2702           54003                           TS       EBANK                                 
030404,000264: 
030405,000265: 25,2703           05717                           TC       FIXDELAY                              #  WAIT 900 MILLISECONDS
030406,000266: 25,2704           00132                           DEC      90         B-14                       
030407,000267: 
030408,000268: 25,2705           05114                           TC       1LMP+DT                               
030409,000269: 25,2706           00073                           DEC      59         B-14                       #  LEM/SIVB SEPARATE ARM - OFF *
030410,000270: 25,2707           00144                           DEC      100        B-14                       #  WAIT 1 SECOND
030411,000271: 
030412,000272: 25,2710           05114                           TC       1LMP+DT                               
030413,000273: 25,2711           00133                           DEC      91         B-14                       #  RESET **
030414,000274: 25,2712           00454                           DEC      300        B-14                       #  WAIT 3 SECONDS
030415,000275: 
030416,000276: 25,2713           05307                           TC       IBNKCALL                              #  COMMAND +X TRANSLATION - OFF (4 JET)
030417,000277: 25,2714           34030                           CADR     NOULLAGE                              
030418,000278: 
030419,000279: 25,2715           04147                           TC       PHASCHNG                              
030420,000280: 25,2716           47012                           OCT      47012                                 
030421,000281: 25,2717           00764                           DEC      500        B-14                       
030422,000282: 25,2720  E4,1566                                  EBANK=   TDEC                                  

Page 674

030424,000284: 25,2720           02724 52004                     2CADR    SIVB4                                 
030425,000285: 
030426,000286: 25,2722           05717                           TC       FIXDELAY                              #  WAIT 5 SECONDS
030427,000287: 25,2723           00764                           DEC      500        B-14                       
030428,000288: 
030429,000289: 25,2724           05307        SIVB4              TC       IBNKCALL                              #  COMMAND +X TRANSLATION - ON (4 JET)
030430,000290: 25,2725           34024                           CADR     ULLAGE                                
030431,000291: 
030432,000292: 25,2726           04147                           TC       PHASCHNG                              
030433,000293: 25,2727           47012                           OCT      47012                                 
030434,000294: 25,2730           00764                           DEC      500        B-14                       
030435,000295: 25,2731  E4,1566                                  EBANK=   TDEC                                  
030436,000296: 25,2731           02735 52004                     2CADR    SIVB5                                 
030437,000297: 
030438,000298: 25,2733           05717                           TC       FIXDELAY                              #  WAIT 5 SECONDS
030439,000299: 25,2734           00764                           DEC      500        B-14                       
030440,000300: 
030441,000301: 25,2735           05307        SIVB5              TC       IBNKCALL                              #  COMMAND +X TRANSLATION - OFF (4 JET)
030442,000302: 25,2736           34030                           CADR     NOULLAGE                              
030443,000303: 
030444,000304: 25,2737           06036                           TC       FLAG1DWN                              #  KNOCK DOWN AVERAGEG FLAG
030445,000305: 25,2740           00001                           OCT      00001                                 
030446,000306: 
030447,000307: 25,2741           05307                           TC       IBNKCALL                              #  HOLD LEM ATTITUDE
030448,000308: 25,2742           34057                           CADR     STOPRATE                              
030449,000309: 
030450,000310: 25,2743           05307                           TC       IBNKCALL                              #  DEADBAND SELECT - MAX
030451,000311: 25,2744           34012                           CADR     SETMAXDB                              
030452,000312: 
030453,000313: 25,2745           04127                           TC       2PHSCHNG                              
030454,000314: 25,2746           00002                           OCT      00002                                 
030455,000315: 25,2747           05013                           OCT      05013                                 
030456,000316: 25,2750           77777                           OCT      77777                                 
030457,000317: 
030458,000318: 25,2751           05141                           TC       MPENTRY                               #  SCHEDULE DPS COLD SOAK
030459,000319: 25,2752           00004                           DEC      4          B-14                       #  TIMER NO. 4
030460,000320: 25,2753           00010                           DEC      8          B-14                       #  MISSION PHASE 8
030461,000321: 
030462,000322: 25,2754           01752                           ADRES    MPDTO8                                
030463,000323: 
030464,000324: 25,2755           15745                           TCF      TASKOVER                              
030465,000325: 

Page 675

030467,000327: 25,2756           00310        2SEC               DEC      200        B-14                       
030468,000328: 25,2757           07640        40SEC              DEC      4000       B-14                       
030469,000329: 25,2760           00001 10024  MP07DELT           2DEC     20500      B-28                       
030470,000330: 
030471,000331: 25,2762  E4,1566                                  EBANK=   TDEC                                  
030472,000332: 25,2762           02304 16004  MIDAVE2C           2CADR    MIDTOAVE                              
030473,000333: 
030474,000334: 25,2764  E4,1566                                  EBANK=   TDEC                                  
030475,000335: 25,2764           02312 60064  SVREXIT            2CADR    SERVEXIT                              
030476,000336: 
030477,000337: 25,2766           00252        JETS+X             OCT      00252                                 
030478,000338: 25,2767           02233        AVRAGEG7           GENADR   AVERAGEG                              
030479,000339: 
030480,000340: 
030481,000341: 
030482,000342: 25,2770           37755        TIG-30             CAF      BIT1                                  #  PREREAD CALLS READACCS IN 2 SECONDS
030483,000343: 25,2771           05701                           TC       WAITLIST                              
030484,000344: 25,2772  E5,1506                                  EBANK=   DVTOTAL                               
030485,000345: 
030486,000346: 25,2772           02000 60065                     2CADR    PREREAD                               
030487,000347: 
030488,000348: 25,2774           04147                           TC       PHASCHNG                              
030489,000349: 25,2775           40045                           OCT      40045                                 
030490,000350: 
030491,000351: 25,2776           04147        TASK4OUT           TC       PHASCHNG                              
030492,000352: 25,2777           00004                           OCT      00004                                 
030493,000353: 
030494,000354: 25,3000           15745                           TCF      TASKOVER                              

End of include-file MP_7_-_SIVB_LEM_SEPARATION.agc.  Parent file is MAIN.agc