Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. 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 prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". 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 Luminary 69 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:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

056230,000002:                                                                                                  ## Copyright:   Public domain.
056231,000003:                                                                                                  ## Filename:    RESTARTS_ROUTINE.agc
056232,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
056233,000005:                                                                                                  ##              It is part of the source code for the original release
056234,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
056235,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
056236,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
056237,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
056238,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
056239,000011:                                                                                                  ##              that the code format has been changed to conform to the
056240,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
056241,000013:                                                                                                  ##              original YUL assembler.
056242,000014:                                                                                                  ## Reference:   pp. 1297-1302
056243,000015:                                                                                                  ## Assembler:   yaYUL
056244,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
056245,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
056246,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
056247,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
056248,000020:                                                                                                  ##              2017-01-10 RRB  Updated for Luminary 69.
056249,000021:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
056250,000022:                                                                                                  ##                              but no errors found.
056251,000023:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
056252,000024:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
056253,000025:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
056254,000026: 

Page 1297

056256,000028: 01,3523                                           BANK     01                                    
056257,000029: 01,2000                                           SETLOC   RESTART                               
056258,000030: 01,2000                                           BANK                                           
056259,000031: 
056260,000032: 01,3523  E3,1436                                  EBANK=   PHSNAME1                              #  GOPROG MUST SWITCH TO THIS EBANK
056261,000033: 
056262,000034: 01,3523                                           COUNT*   $$/RSROU                              
056263,000035: 01,3523           30161        RESTARTS           CA       MPAC       +5                         #  GET GROUP NUMBER -1
056264,000036: 01,3524           60000                           DOUBLE                                         #  SAVE FOR INDEXING
056265,000037: 01,3525           54155                           TS       TEMP2G                                
056266,000038: 
056267,000039: 01,3526           33765                           CA       PHS2CADR                              #  SET UP EXIT IN CASE IT IS AN EVEN
056268,000040: 01,3527           54157                           TS       TEMPSWCH                              #  TABLE PHASE
056269,000041: 
056270,000042: 01,3530           33562                           CA       RTRNCADR                              #  TO SAVE TIME ASSUME IT WILL GET NEXT
056271,000043: 01,3531           54707                           TS       GOLOC      +2                         #  GROUP AFTER THIS
056272,000044: 
056273,000045: 01,3532           30154                           CA       TEMPPHS                               
056274,000046: 01,3533           75007                           MASK     OCT1400                               
056275,000047: 01,3534           10000                           CCS      A                                     #  IS IT A VARIABLE OR TABLE RESTART
056276,000048: 01,3535           13546                           TCF      ITSAVAR                               #  IT:S A VARIABLE RESTART
056277,000049: 
056278,000050: 01,3536           10154        GETPART2           CCS      TEMPPHS                               #  IS IT AN X.1 RESTART
056279,000051: 01,3537           10000                           CCS      A                                     
056280,000052: 01,3540           13646                           TCF      ITSATBL                               #  NO, ITS A TABLE RESTART
056281,000053: 
056282,000054: 01,3541           35024                           CA       PRIO14                                #  IT IS AN X.1 RESTART, THEREFORE START
056283,000055: 01,3542           05105                           TC       FINDVAC                               #  THE DISPLAY RESTART JOB
056284,000056: 01,3543  E3,1400                                  EBANK=   LST1                                  
056285,000057: 01,3543           02712 20103                     2CADR    INITDSP                               
056286,000058: 
056287,000059: 01,3545           03562                           TC       RTRNCADR                              #  FINISHED WITH THIS GROUP, GET NEXT ONE
056288,000060: 
056289,000061: 01,3546           75007        ITSAVAR            MASK     OCT1400                               #  IS IT TYPE B ?
056290,000062: 01,3547           10000                           CCS      A                                     
056291,000063: 01,3550           13617                           TCF      ITSLIKEB                              #  YES, IT IS TYPE B
056292,000064: 
056293,000065: 01,3551           00006                           EXTEND                                         #  STORE THE JOB (OR TASK) 2CADR FOR EXIT
056294,000066: 01,3552           50155                           NDX      TEMP2G                                
056295,000067: 01,3553           31437                           DCA      PHSNAME1                              
056296,000068: 01,3554           52706                           DXCH     GOLOC                                 
056297,000069: 
056298,000070: 01,3555           30154                           CA       TEMPPHS                               #  SEE IF THIS IS A JOB, TASK, OR A LONGCAL
056299,000071: 01,3556           74757                           MASK     OCT7                                  
056300,000072: 01,3557           67745                           AD       MINUS2                                
056301,000073: 01,3560           10000                           CCS      A                                     
056302,000074: 01,3561           13731                           TCF      ITSLNGCL                              #  ITS A LONGCALL
056303,000075: 
056304,000076: 01,3562           04631        RTRNCADR           TC       SWRETURN                              #  CANT GET HERE

Page 1298

056306,000078: 01,3563           13565                           TCF      ITSAWAIT                              
056307,000079: 
056308,000080: 01,3564           13632                           TCF      ITSAJOB                               #  ITS A JOB
056309,000081: 
056310,000082: 01,3565           33771        ITSAWAIT           CA       WTLTCADR                              #  SET UP WAITLIST CALL
056311,000083: 01,3566           54704                           TS       GOLOC      -1                         
056312,000084: 
056313,000085: 01,3567           50155                           NDX      TEMP2G                                #  DIRECTLY STORED
056314,000086: 01,3570           31054                           CA       PHSPRDT1                              
056315,000087: 01,3571           10000        TIMETEST           CCS      A                                     #  IS IT AN IMMEDIATE RESTART
056316,000088: 01,3572           24000                           INCR     A                                     #  NO,
056317,000089: 01,3573           13576                           TCF      FINDTIME                              #  FIND OUT WHEN IT SHOULD BEGIN
056318,000090: 
056319,000091: 01,3574           15436                           TCF      ITSINDIR                              #  STORED INDIRECTLY
056320,000092: 
056321,000093: 01,3575           13615                           TCF      IMEDIATE                              #  IT WANTS AN IMMEDIATE RESTART
056322,000094: 
056323,000095:                                                                                                  #  ***** THIS MUST BE IN FIXED FIXED *****
056324,000096: 
056325,000097:    5436                                           BLOCK    02                                    
056326,000098:    4000                                           SETLOC   FFTAG2                                
056327,000099:    4000                                           BANK                                           
056328,000100: 
056329,000101:    5436                                           COUNT*   $$/RSROU                              
056330,000102:    5436           22706        ITSINDIR           LXCH     GOLOC      +1                         #  GET THE CORRECT E BANK IN CASE THIS IS
056331,000103:    5437           22006                           LXCH     BB                                    #  SWITCHED ERRASIBLE
056332,000104: 
056333,000105:    5440           50000                           NDX      A                                     #  GET THE TIME INDIRECTLY
056334,000106:    5441           30001                           CA       1                                     
056335,000107: 
056336,000108:    5442           22006                           LXCH     BB                                    #  RESTORE THE BB AND GOLOC
056337,000109:    5443           22706                           LXCH     GOLOC      +1                         
056338,000110: 
056339,000111:    5444           13576                           TCF      FINDTIME                              #  FIND OUT WHEN IT SHOULD BEGIN
056340,000112: 
056341,000113:                                                                                                  #  ***** YOU MAY RETURN TO SWITCHED FIXED *****
056342,000114: 
056343,000115: 01,3576                                           BANK     01                                    
056344,000116: 01,2000                                           SETLOC   RESTART                               
056345,000117: 01,2000                                           BANK                                           
056346,000118: 
056347,000119: 01,3576                                           COUNT*   $$/RSROU                              
056348,000120: 01,3576           40000        FINDTIME           COM                                            #  MAKE NEGITIVE SINCE IT WILL BE SUBTRACTD
056349,000121: 01,3577           54001                           TS       L                                     #  AND SAVE
056350,000122: 01,3600           50155                           NDX      TEMP2G                                
056351,000123: 01,3601           41053                           CS       TBASE1                                
056352,000124: 01,3602           00006                           EXTEND                                         
056353,000125: 01,3603           60025                           SU       TIME1                                 
056354,000126: 01,3604           10000                           CCS      A                                     
056355,000127: 01,3605           40000                           COM                                            

Page 1299

056357,000129: 01,3606           67730                           AD       OCT37776                              
056358,000130: 01,3607           64753                           AD       ONE                                   
056359,000131: 01,3610           60001                           AD       L                                     
056360,000132: 01,3611           10000                           CCS      A                                     
056361,000133: 01,3612           34755                           CA       ZERO                                  
056362,000134: 01,3613           13615                           TCF      +2                                    
056363,000135: 01,3614           13615                           TCF      +1                                    
056364,000136: 01,3615           64753        IMEDIATE           AD       ONE                                   
056365,000137: 01,3616           00704                           TC       GOLOC      -1                         
056366,000138: 01,3617           33562        ITSLIKEB           CA       RTRNCADR                              #  TYPE B,             SO STORE RETURN IN
056367,000139: 01,3620           54157                           TS       TEMPSWCH                              #  TEMPSWCH IN CASE OF AN EVEN PHASE
056368,000140: 
056369,000141: 01,3621           33766                           CA       PRT2CADR                              #  SET UP EXIT TO GET TABLE PART OF THIS
056370,000142: 01,3622           54707                           TS       GOLOC      +2                         #  VARIABLE TYPE OF PHASE
056371,000143: 
056372,000144: 01,3623           30154                           CA       TEMPPHS                               #  MAKE THE PHASE LOOK RIGHT FOR THE TABLE
056373,000145: 01,3624           76073                           MASK     OCT177                                #  PART OF THIS VARIABLE PHASE
056374,000146: 01,3625           54154                           TS       TEMPPHS                               
056375,000147: 
056376,000148: 01,3626           00006                           EXTEND                                         
056377,000149: 01,3627           50155                           NDX      TEMP2G                                #  OBTAIN THE JOB:S 2CADR
056378,000150: 01,3630           31437                           DCA      PHSNAME1                              
056379,000151: 01,3631           52706                           DXCH     GOLOC                                 
056380,000152: 
056381,000153: 01,3632           50155        ITSAJOB            NDX      TEMP2G                                #  NOW ADD THE PRIORITY AND LET:S GO
056382,000154: 01,3633           31054                           CA       PHSPRDT1                              
056383,000155: 01,3634           54704        CHKNOVAC           TS       GOLOC      -1                         #  SAVE PRIO UNTIL WE SEE IF ITS
056384,000156: 01,3635           00006                           EXTEND                                         #  A FINDVAC OR A NOVAC
056385,000157: 01,3636           63642                           BZMF     ITSNOVAC                              
056386,000158: 
056387,000159: 01,3637           33770                           CAF      FVACCADR                              #  POSITIVE, SET UP FINDVAC CALL.
056388,000160: 01,3640           56704                           XCH      GOLOC      -1                         #  PICK UP PRIO,
056389,000161: 01,3641           00704                           TC       GOLOC      -1                         #  AND GO
056390,000162: 
056391,000163: 01,3642           33772        ITSNOVAC           CAF      NOVACADR                              #  NEGATIVE,
056392,000164: 01,3643           56704                           XCH      GOLOC      -1                         #  SET UP NOVAC CALL,
056393,000165: 01,3644           40000                           COM                                            #  CORRECT PRIO,
056394,000166: 01,3645           00704                           TC       GOLOC      -1                         #  AND GO
056395,000167: 
056396,000168: 01,3646           54020        ITSATBL            TS       CYR                                   #  FIND OUT IF THE PHASE IS ODD OR EVEN
056397,000169: 01,3647           10020                           CCS      CYR                                   
056398,000170: 01,3650           13651                           TCF      +1                                    #  IT:S EVEN
056399,000171: 01,3651           13747                           TCF      ITSEVEN                               
056400,000172: 
056401,000173: 01,3652           33562                           CA       RTRNCADR                              #  IN CASE THIS IS THE SECOND PART OF A
056402,000174: 01,3653           54707                           TS       GOLOC      +2                         #  TYPE B RESTART, WE NEED PROPER EXIT
056403,000175: 
056404,000176: 01,3654           30154                           CA       TEMPPHS                               #  SET UP POINTER FOR FINDING OUR PLACE IN
056405,000177: 01,3655           54021                           TS       SR                                    #  THE RESTART TABLES
056406,000178: 01,3656           60021                           AD       SR                                    

Page 1300

056408,000180: 01,3657           50155                           NDX      TEMP2G                                
056409,000181: 01,3660           62003                           AD       SIZETAB    +1                         
056410,000182: 01,3661           54156                           TS       POINTER                               
056411,000183: 
056412,000184: 01,3662           00006        CONTBL2            EXTEND                                         #  FIND OUT WHAT:S IN THE TABLE
056413,000185: 01,3663           50156                           NDX      POINTER                               
056414,000186: 01,3664           32002                           DCA      CADRTAB                               #  GET THE 2CADR
056415,000187: 
056416,000188: 01,3665           22706                           LXCH     GOLOC      +1                         #  STORE THE BB INFORMATION
056417,000189: 
056418,000190: 01,3666           10000                           CCS      A                                     #  IS IT A JOB OR IS IT  TIMED
056419,000191: 01,3667           24000                           INCR     A                                     #  POSITIVE, MUST BE A JOB
056420,000192: 01,3670           13743                           TCF      ITSAJOB2                              
056421,000193: 
056422,000194: 01,3671           24000                           INCR     A                                     #  MUST BE EITHER A WAITLIST OR LONGCALL
056423,000195: 01,3672           54705                           TS       GOLOC                                 #  LET-S STORE THE CORRECT CADR
056424,000196: 
056425,000197: 01,3673           33771                           CA       WTLTCADR                              #  SET UP OUR EXIT TO WAITLIST
056426,000198: 01,3674           54704                           TS       GOLOC      -1                         
056427,000199: 
056428,000200: 01,3675           30706                           CA       GOLOC      +1                         #  NOW FIND OUT IF IT IS A WAITLIST CALL
056429,000201: 01,3676           74742                           MASK     BIT10                                 #  THIS SHOULD BE ONE IF WE HAVE -BB
056430,000202: 01,3677           10000                           CCS      A                                     #  FOR THAT MATTER SO SHOULD BE BITS 9,8,7,
056431,000203:                                                                                                  #  6,5, AND LAST BUT NOT LEAST (PERHAPS NOT
056432,000204:                                                                                                  #  IN IMPORTANCE ANYWAY.  BIT 4
056433,000205: 01,3700           13736                           TCF      ITSWTLST                              #  IT IS A WAITLIST CALL
056434,000206: 
056435,000207: 01,3701           50156                           NDX      POINTER                               #  OBTAIN THE ORIGINAL DELTA T
056436,000208: 01,3702           32000                           CA       PRDTTAB                               #  ADDRESS FOR THIS LONGCALL
056437,000209: 
056438,000210: 01,3703           15445                           TCF      ITSLGCL1                              #  NOW GO GET THE DELTA TIME
056439,000211: 
056440,000212:                                                                                                  #  ***** THIS MUST BE IN FIXED FIXED *****
056441,000213: 
056442,000214:    5445                                           BLOCK    02                                    
056443,000215:    4000                                           SETLOC   FFTAG2                                
056444,000216:    4000                                           BANK                                           
056445,000217: 
056446,000218:    5445                                           COUNT*   $$/RSROU                              
056447,000219:    5445           22706        ITSLGCL1           LXCH     GOLOC      +1                         #  OBTAIN THE CORRECT E BANK
056448,000220:    5446           22006                           LXCH     BB                                    
056449,000221:    5447           22706                           LXCH     GOLOC      +1                         #  AND PRESERVE OUR E AND F BANKS
056450,000222: 
056451,000223:    5450           00006                           EXTEND                                         #  GET THE DELTA TIME
056452,000224:    5451           50000                           NDX      A                                     
056453,000225:    5452           30001                           DCA      0                                     
056454,000226: 
056455,000227:    5453           22706                           LXCH     GOLOC      +1                         #  RESTORE OUR E AND F BANK
056456,000228:    5454           22006                           LXCH     BB                                    #  RESTORE THE TASKS E AND F BANKS
056457,000229:    5455           22706                           LXCH     GOLOC      +1                         #  AND PRESERVE OUR L

Page 1301

056459,000231:    5456           13704                           TCF      ITSLGCL2                              #  NOW LET:S PROCESS THIS LONGCALL
056460,000232: 
056461,000233:                                                                                                  #  ***** YOU MAY RETURN TO SWITCHED FIXED *****
056462,000234: 
056463,000235: 01,3704                                           BANK     01                                    
056464,000236: 01,2000                                           SETLOC   RESTART                               
056465,000237: 01,2000                                           BANK                                           
056466,000238: 
056467,000239: 01,3704                                           COUNT*   $$/RSROU                              
056468,000240: 01,3704           53154        ITSLGCL2           DXCH     LONGTIME                              
056469,000241: 
056470,000242: 01,3705           00006                           EXTEND                                         #  CALCULATE TIME LEFT
056471,000243: 01,3706           40025                           DCS      TIME2                                 
056472,000244: 01,3707           21154                           DAS      LONGTIME                              
056473,000245: 01,3710           00006                           EXTEND                                         
056474,000246: 01,3711           31152                           DCA      LONGBASE                              
056475,000247: 01,3712           21154                           DAS      LONGTIME                              
056476,000248: 
056477,000249: 01,3713           11153                           CCS      LONGTIME                              #  FIND OUT HOW THIS SHOULD BE RESTARTED
056478,000250: 01,3714           13724                           TCF      LONGCLCL                              
056479,000251: 01,3715           13717                           TCF      +2                                    
056480,000252: 01,3716           13612                           TCF      IMEDIATE   -3                         
056481,000253: 01,3717           11154                           CCS      LONGTIME   +1                         
056482,000254: 01,3720           13724                           TCF      LONGCLCL                              
056483,000255: 01,3721           13722                           NOOP                                           #  CAN:T GET HERE *********
056484,000256: 01,3722           13612                           TCF      IMEDIATE   -3                         
056485,000257: 01,3723           13615                           TCF      IMEDIATE                              
056486,000258: 
056487,000259: 01,3724           33767        LONGCLCL           CA       LGCLCADR                              #  WE WILL GO TO LONGCALL
056488,000260: 01,3725           54704                           TS       GOLOC      -1                         
056489,000261: 
056490,000262: 01,3726           00006                           EXTEND                                         #  PREPARE OUR ENTRY TO LONGCALL
056491,000263: 01,3727           31154                           DCA      LONGTIME                              
056492,000264: 01,3730           00704                           TC       GOLOC      -1                         
056493,000265: 
056494,000266: 01,3731           33771        ITSLNGCL           CA       WTLTCADR                              #  ASSUME IT WILL GO TO WAITLIST
056495,000267: 01,3732           54704                           TS       GOLOC      -1                         
056496,000268: 
056497,000269: 01,3733           50155                           NDX      TEMP2G                                
056498,000270: 01,3734           41054                           CS       PHSPRDT1                              #  GET THE DELTA T ADDRESS
056499,000271: 
056500,000272: 01,3735           15445                           TCF      ITSLGCL1                              #  NOW GET THE DELTA TIME
056501,000273: 
056502,000274: 01,3736           40706        ITSWTLST           CS       GOLOC      +1                         #  CORRECT THE BBCON INFORMATION
056503,000275: 01,3737           54706                           TS       GOLOC      +1                         
056504,000276: 
056505,000277: 01,3740           50156                           NDX      POINTER                               #  GET THE DT AND FIND OUT IF IT WAS STORED
056506,000278: 01,3741           32000                           CA       PRDTTAB                               #  DIRECTLY OR INDIRECTLY
056507,000279: 
056508,000280: 01,3742           13571                           TCF      TIMETEST                              #  FIND OUT HOW THE TIME IS STORED
056509,000281: 

Page 1302

056511,000283: 01,3743           56705        ITSAJOB2           XCH      GOLOC                                 #  STORE THE CADR
056512,000284: 
056513,000285: 01,3744           50156                           NDX      POINTER                               #  ADD THE PRIORITY AND LET:S GO
056514,000286: 01,3745           32000                           CA       PRDTTAB                               
056515,000287: 
056516,000288: 01,3746           13634                           TCF      CHKNOVAC                              
056517,000289: 
056518,000290: 01,3747           30157        ITSEVEN            CA       TEMPSWCH                              #  SET UP FOR EITHER THE SECOND PART OF THE
056519,000291: 01,3750           54707                           TS       GOLOC      +2                         #  TABLE, OR A RETURN FOR THE NEXT GROUP
056520,000292: 
056521,000293: 01,3751           50155                           NDX      TEMP2G                                #  SET UP POINTER FOR OUR LOCATION WITHIN
056522,000294: 01,3752           32002                           CA       SIZETAB                               #  THE TABLE
056523,000295: 01,3753           60154                           AD       TEMPPHS                               #  THIS MAY LOOK BAD BUT LET:S SEE YOU DO
056524,000296: 01,3754           60154                           AD       TEMPPHS                               #  BETTER IN TIME OR NUMBERR OF LOCATIONS
056525,000297: 01,3755           60154                           AD       TEMPPHS                               
056526,000298: 01,3756           54156                           TS       POINTER                               
056527,000299: 
056528,000300: 01,3757           13662                           TCF      CONTBL2                               #  NOW PROCESS WHAT IS IN THE TABLE
056529,000301: 
056530,000302: 01,3760           36244        PHSPART2           CA       THREE                                 #  SET THE POINTER FOR THE SECOND HALF OF
056531,000303: 01,3761           26156                           ADS      POINTER                               #  THE TABLE
056532,000304: 
056533,000305: 01,3762           33562                           CA       RTRNCADR                              #  THIS WILL BE OUR LAST TIME THROUGH THE
056534,000306: 01,3763           54707                           TS       GOLOC      +2                         #  EVEN TABLE, SO AFTER IT GET THE NEXT
056535,000307:                                                                                                  #  GROUP
056536,000308: 01,3764           13662                           TCF      CONTBL2                               #  SO LET:S GET THE SECOND ENTRY IN THE TBL
056537,000309: 
056538,000310: 01,3765     0154               TEMPPHS            EQUALS   MPAC                                  
056539,000311: 01,3765     0155               TEMP2G             EQUALS   MPAC       +1                         
056540,000312: 01,3765     0156               POINTER            EQUALS   MPAC       +2                         
056541,000313: 01,3765     0157               TEMPSWCH           EQUALS   MPAC       +3                         
056542,000314: 01,3765     0705               GOLOC              EQUALS   VAC5       +20D                       
056543,000315: 01,3765     7745               MINUS2             EQUALS   NEG2                                  
056544,000316: 01,3765     6073               OCT177             EQUALS   LOW7                                  
056545,000317: 
056546,000318: 01,3765           03760        PHS2CADR           GENADR   PHSPART2                              
056547,000319: 01,3766           03536        PRT2CADR           GENADR   GETPART2                              
056548,000320: 01,3767           05277        LGCLCADR           GENADR   LONGCALL                              
056549,000321: 01,3770           05105        FVACCADR           GENADR   FINDVAC                               
056550,000322: 01,3771           05203        WTLTCADR           GENADR   WAITLIST                              
056551,000323: 01,3772           05072        NOVACADR           GENADR   NOVAC                                 
056552,000324: 
056553,000325: 

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