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.

043965,000002:                                                                                                  ## Copyright:   Public domain.
043966,000003:                                                                                                  ## Filename:    EXECUTIVE.agc
043967,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
043968,000005:                                                                                                  ##              It is part of an early development version of the software
043969,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
043970,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
043971,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
043972,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
043973,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
043974,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
043975,000012:                                                                                                  ##              that the code format has been changed to conform to the
043976,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
043977,000014:                                                                                                  ##              original YUL assembler.
043978,000015:                                                                                                  ## Reference:   pp. 988-1000
043979,000016:                                                                                                  ## Assembler:   yaYUL
043980,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
043981,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
043982,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
043983,000020:                                                                                                  ##              2017-06-13 HG   Transcribed
043984,000021:                                                                                                  ##              2017-06-23 RSB  Proofed comment text with
043985,000022:                                                                                                  ##                              octopus/ProoferComments.
043986,000023: 

Page 988

043988,000025:    5523                                           BLOCK    02                                    
043989,000026: 
043990,000027:                                                                                                  #           TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
043991,000028: 
043992,000029: 
043993,000030:    5523           54063        NOVAC              TS       NEWPRIO                               #  SAVE PRIORITY OF NEW JOB.
043994,000031:    5524           00006                           EXTEND                                         
043995,000032:    5525           50002                           INDEX    Q                                     #  Q WILL BE UNDISTURBED THROUGHOUT.
043996,000033:    5526           30001                           DCA      0                                     #  2CADR OF JOB ENTERED.
043997,000034:    5527           52066                           DXCH     NEWLOC                                
043998,000035:    5530           35613                           CAF      EXECBANK                              
043999,000036:    5531           56004                           XCH      FBANK                                 
044000,000037:    5532           54061                           TS       EXECTEM1                              
044001,000038:    5533           13036                           TCF      NOVAC2                                #  ENTER EXECUTIVE BANK.
044002,000039: 
044003,000040:                                                                                                  #           TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
044004,000041: 
044005,000042:    5534           54063        FINDVAC            TS       NEWPRIO                               
044006,000043:    5535           00006                           EXTEND                                         
044007,000044:    5536           50002                           INDEX    Q                                     
044008,000045:    5537           30001                           DCA      0                                     
044009,000046:    5540           52066                           DXCH     NEWLOC                                
044010,000047:    5541           35613                           CAF      EXECBANK                              
044011,000048:    5542           56004                           XCH      FBANK                                 
044012,000049:    5543           13014                           TCF      FINDVAC2                              #  OFF TO EXECUTIVE SWITCHED-BANK.
044013,000050: 
044014,000051:                                                                                                  #           TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L:
044015,000052: 
044016,000053: 
044017,000054:    5544           56002        SPVAC              XCH      Q                                     
044018,000055:    5545           65355                           AD       NEG2                                  
044019,000056:    5546           56002                           XCH      Q                                     
044020,000057:    5547           15540                           TCF      FINDVAC    +4                         
044021,000058: 
044022,000059:                                                                                                  #           TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICED:
044023,000060: 
044024,000061:    5550           35613        CHANG1             CAF      EXECBANK                              
044025,000062:    5551           54001                           TS       L                                     
044026,000063: 
044027,000064:    5552           30002                           CA       Q                                     
044028,000065:    5553           22006                           LXCH     BBANK                                 
044029,000066:    5554           00004                 +4        INHINT                                         
044030,000067:    5555           13114                           TCF      CHANJOB                               
044031,000068: 
044032,000069:                                                                                                  #           TO SUSPEND AN INTERPRETIVE JOB:
044033,000070: 
044034,000071:    5556           35613        CHANG2             CAF      EXECBANK                              
044035,000072:                                                                                                  #           ITRACE (4) REFERS TO "CHANG2".
044036,000073:    5557           54006                           TS       BBANK                                 
044037,000074:    5560           40154                           CS       LOC                                   #  NEGATIVE LOC SHOWS JOB = INTERPRETIVE.
044038,000075:    5561           22155                           LXCH     BANKSET                               #  BANKSET, NOT BBANK, HAS RIGHT CONTENTS.
044039,000076: 
044040,000077:    5562           15554                           TCF      CHANG1     +4                         
044041,000078: 

Page 989

044043,000080: 
044044,000081:                                                                                                  #           TO VOLUNTARILY SUSPEND A JOB UNTIL THE COMPLETION OF SOME ANTICIPATED EVENT (I/O EVENT ETC.):
044045,000082: 
044046,000083:    5563           54154        JOBSLEEP           TS       LOC                                   
044047,000084:    5564           35613                           CAF      EXECBANK                              
044048,000085:    5565           54004                           TS       FBANK                                 
044049,000086:    5566           13175                           TCF      JOBSLP1                               
044050,000087: 
044051,000088:                                                                                                  #           TO AWAKEN A JOB PUT TO SLEEP IN THE ABOVE FASHION:
044052,000089: 
044053,000090: 
044054,000091:    5567           54065        JOBWAKE            TS       NEWLOC                                
044055,000092:    5570           47754                           CS       TWO                                   #  EXIT IS VIA FINDVAC/NOVAC PROCEDURES.
044056,000093:    5571           26002                           ADS      Q                                     
044057,000094:    5572           35613                           CAF      EXECBANK                              
044058,000095:    5573           56004                           XCH      FBANK                                 
044059,000096:    5574           13206                           TCF      JOBWAKE2                              
044060,000097: 
044061,000098:                                                                                                  #           TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION:
044062,000099: 
044063,000100:    5575           00004        PRIOCHNG           INHINT                                         #  NEW PRIORITY ARRIVES IN A. RETURNS TO
044064,000101:    5576           54063                           TS       NEWPRIO                               #  CALLER AS SOON AS NEW JOB PRIORITY IS
044065,000102:    5577           35613                           CAF      EXECBANK                              #  HIGHEST.  PREPARE FOR POSSIBLE BASIC-
044066,000103:    5600           56006                           XCH      BBANK                                 #  STYLE CHANGE-JOB.
044067,000104:    5601           54155                           TS       BANKSET                               
044068,000105:    5602           30002                           CA       Q                                     
044069,000106:    5603           13255                           TCF      PRIOCH2                               
044070,000107: 
044071,000108:                                                                                                  #           TO FREE THE DISPLAY BEFORE ENDOFJOB:
044072,000109: 
044073,000110:    5604           04713        EJFREE             TC       FREEDSP                               
044074,000111: 
044075,000112:                                                                                                  #           TO REMOVE A JOB FROM EXECUTIVE CONSIDERATIONS:
044076,000113: 
044077,000114:    5605           35613        ENDOFJOB           CAF      EXECBANK                              
044078,000115:    5606           54004                           TS       FBANK                                 
044079,000116:    5607           13266                           TCF      ENDJOB1                               
044080,000117: 
044081,000118:    5610           30061        ENDFIND            CA       EXECTEM1                              #  RETURN TO CALLER AFTER JOB ENTRY
044082,000119:    5611           54004                           TS       FBANK                                 #  COMPLETE.
044083,000120:    5612           17010                           TCF      Q+2                                   
044084,000121:    5613           03014        EXECBANK           CADR     FINDVAC2                              
044085,000122: 

Page 990

044087,000124: 
044088,000125:                                                                                                  #           LOCATE AN AVAILABLE VAC AREA.
044089,000126: 
044090,000127: 01,3014                                           BANK     01                                    
044091,000128: 01,3014           54061        FINDVAC2           TS       EXECTEM1                              #  (SAVE CALLER'S BANK FIRST.)
044092,000129: 01,3015           10431                           CCS      VAC1USE                               
044093,000130: 01,3016           13031                           TCF      VACFOUND                              
044094,000131: 01,3017           10505                           CCS      VAC2USE                               
044095,000132: 01,3020           13031                           TCF      VACFOUND                              
044096,000133: 01,3021           10561                           CCS      VAC3USE                               
044097,000134: 01,3022           13031                           TCF      VACFOUND                              
044098,000135: 01,3023           10635                           CCS      VAC4USE                               
044099,000136: 01,3024           13031                           TCF      VACFOUND                              
044100,000137: 01,3025           10711                           CCS      VAC5USE                               
044101,000138: 01,3026           13031                           TCF      VACFOUND                              
044102,000139: 
044103,000140: 01,3027           06000                           TC       ABORT                                 
044104,000141: 01,3030           01201                           OCT      1201                                  #  NO VAC AREAS.
044105,000142: 
044106,000143: 01,3031           67754        VACFOUND           AD       TWO                                   #  RESERVE THIS VAC AREA BY STORING A ZERO
044107,000144: 01,3032           22007                           ZL                                             #  IN ITS VAC USE REGISTER AND STORE THE
044108,000145: 01,3033           50000                           INDEX    A                                     #  ADDRESS OF THE FIRST WORD OF IT IN THE
044109,000146: 01,3034           21777                           LXCH     0          -1                         #  LOW NINE BITS OF THE PRIORITY WORD.
044110,000147: 01,3035           26063                           ADS      NEWPRIO                               
044111,000148: 
044112,000149: 01,3036           37761        NOVAC2             CAF      ZERO                                  #  NOVAC ENTERS HERE. FIND A CORE SET.
044113,000150: 
044114,000151: 01,3037           54064                           TS       LOCCTR                                
044115,000152: 01,3040           33045                           CAF      NO.CORES                              #  SEVEN SETS OF ELEVEN REGISTERS EACH.
044116,000153: 01,3041           54062        NOVAC3             TS       EXECTEM2                              
044117,000154: 01,3042           50064                           INDEX    LOCCTR                                
044118,000155: 01,3043           10157                           CCS      PRIORITY                              #  EACH PRIORITY REGISTER CONTAINS -0 IF
044119,000156: 01,3044           13105                           TCF      NEXTCORE                              #  THE CORRESPONDING CORE SET IS AVAILABLE.
044120,000157: 01,3045           00006        NO.CORES           DEC      6          B-14                       
044121,000158: 01,3046           13105                           TCF      NEXTCORE                              #  AN ACTIVE JOB HAS A POSITIVE PRIORITY
044122,000159:                                                                                                  #  BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
044123,000160: 

Page 991

044125,000162: 
044126,000163: 01,3047           30063        CORFOUND           CA       NEWPRIO                               #  SET THE PRIORITY OF THIS JOB IN THE CORE
044127,000164: 01,3050           50064                           INDEX    LOCCTR                                #  SET'S PRIORITY REGISTER AND SET THE
044128,000165: 01,3051           54157                           TS       PRIORITY                              #  JOB'S PUSH-DOWN POINTER AT THE BEGINNING
044129,000166: 01,3052           75360                           MASK     LOW9                                  #  OF THE WORK AREA AND OVERFLOW INDICATOR
044130,000167: 01,3053           50064                           INDEX    LOCCTR                                
044131,000168: 01,3054           54156                           TS       PUSHLOC                               #  OFF TO PREPARE FOR INTERPRETIVE PROGRAMS
044132,000169: 
044133,000170: 01,3055           10064                           CCS      LOCCTR                                #  IF CORE SET ZERO IS BEING LOADED, SET UP
044134,000171: 01,3056           13072                           TCF      SETLOC                                #  OVFIND AND FIXLOC IMMEDIATELY.
044135,000172: 01,3057           54111                           TS       OVFIND                                
044136,000173: 01,3060           30156                           CA       PUSHLOC                               
044137,000174: 01,3061           54110                           TS       FIXLOC                                
044138,000175: 
044139,000176: 01,3062           10067        SPECTEST           CCS      NEWJOB                                #  SEE IF ANY ACTIVE JOBS WAITING (RARE).
044140,000177: 01,3063           13072                           TCF      SETLOC                                #  MUST BE AWAKENED BUT UNCHANGED JOB.
044141,000178: 01,3064           04725                           TC       CCSHOLE                               
044142,000179: 01,3065           04725                           TC       CCSHOLE                               
044143,000180: 01,3066           54067                           TS       NEWJOB                                #  +0 SHOWS ACTIVE JOB ALREADY SET.
044144,000181: 01,3067           52066                           DXCH     NEWLOC                                
044145,000182: 
044146,000183: 01,3070           52155                           DXCH     LOC                                   
044147,000184: 01,3071           15610                           TCF      ENDFIND                               
044148,000185: 
044149,000186: 01,3072           52066        SETLOC             DXCH     NEWLOC                                #  SET UP THE LOCATION REGISTERS FOR THIS
044150,000187: 01,3073           50064                           INDEX    LOCCTR                                
044151,000188: 01,3074           52155                           DXCH     LOC                                   
044152,000189: 01,3075           50067                           INDEX    NEWJOB                                #  THIS INDEX INSTRUCTION INSURES THAT THE
044153,000190: 01,3076           40157                           CS       PRIORITY                              #  HIGHEST ACTIVE PRIORITY WILL BE COMPARED
044154,000191: 01,3077           60063                           AD       NEWPRIO                               #  WITH THE NEW PRIORITY TO SEE IF NEWJOB
044155,000192: 01,3100           00006                           EXTEND                                         #  SHOULD BE SET TO SIGNAL A SWITCH.
044156,000193: 
044157,000194: 01,3101           65610                           BZMF     ENDFIND                               
044158,000195: 01,3102           30064                           CA       LOCCTR                                #  LOCCTR IS LEFT SET AT THIS CORE SET IF
044159,000196: 01,3103           54067                           TS       NEWJOB                                #  THE CALLER WANTS TO LOAD ANY MPAC
044160,000197: 01,3104           15610                           TCF      ENDFIND                               #  REGISTERS, ETC.
044161,000198: 
044162,000199: 01,3105           33216        NEXTCORE           CAF      COREINC                               
044163,000200: 01,3106           26064                           ADS      LOCCTR                                
044164,000201: 01,3107           10062                           CCS      EXECTEM2                              
044165,000202: 01,3110           13041                           TCF      NOVAC3                                
044166,000203: 01,3111           06000                           TC       ABORT                                 #  NO CORE SETS.
044167,000204: 01,3112           01202                           OCT      1202                                  
044168,000205: 

Page 992

044170,000207: 
044171,000208:                                                                                                  #           THE FOLLOWING ROUTINE SWAPS CORE SET 0 WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB.
044172,000209: 
044173,000210: 01,3113           52155                 -1        DXCH     LOC                                   
044174,000211: 01,3114           50067        CHANJOB            INDEX    NEWJOB                                #  LOC ARRIVES IN A AND BBANK IN L.
044175,000212: 01,3115           52155                           DXCH     LOC                                   
044176,000213: 01,3116           52155                           DXCH     LOC                                   
044177,000214: 
044178,000215: 01,3117           52145                           DXCH     MPAC                                  #  SWAP MULTI-PURPOSE ACCUMULATOR AREAS.
044179,000216: 01,3120           50067                           INDEX    NEWJOB                                
044180,000217: 01,3121           52145                           DXCH     MPAC                                  
044181,000218: 01,3122           52145                           DXCH     MPAC                                  
044182,000219: 01,3123           52147                           DXCH     MPAC       +2                         
044183,000220: 01,3124           50067                           INDEX    NEWJOB                                
044184,000221: 
044185,000222: 01,3125           52147                           DXCH     MPAC       +2                         
044186,000223: 01,3126           52147                           DXCH     MPAC       +2                         
044187,000224: 01,3127           52151                           DXCH     MPAC       +4                         
044188,000225: 01,3130           50067                           INDEX    NEWJOB                                
044189,000226: 01,3131           52151                           DXCH     MPAC       +4                         
044190,000227: 01,3132           52151                           DXCH     MPAC       +4                         
044191,000228: 01,3133           52153                           DXCH     MPAC       +6                         
044192,000229: 01,3134           50067                           INDEX    NEWJOB                                
044193,000230: 01,3135           52153                           DXCH     MPAC       +6                         
044194,000231: 01,3136           52153                           DXCH     MPAC       +6                         
044195,000232: 
044196,000233: 01,3137           37761                           CAF      ZERO                                  
044197,000234: 
044198,000235: 01,3140           56111                           XCH      OVFIND                                #  MAKE PUSHLOC NEGATIVE IF OVFIND NZ.
044199,000236: 01,3141           00006                           EXTEND                                         
044200,000237: 01,3142           13145                           BZF      +3                                    
044201,000238: 01,3143           40156                           CS       PUSHLOC                               
044202,000239: 01,3144           54156                           TS       PUSHLOC                               
044203,000240: 
044204,000241: 01,3145           52157                           DXCH     PUSHLOC                               
044205,000242: 01,3146           50067                           INDEX    NEWJOB                                
044206,000243: 01,3147           52157                           DXCH     PUSHLOC                               
044207,000244: 01,3150           52157                           DXCH     PUSHLOC                               #  SWAPS PUSHLOC AND PRIORITY.
044208,000245: 
044209,000246: 01,3151           35360                           CAF      LOW9                                  #  SET FIXLOC TO BASE OF VAC AREA.
044210,000247: 01,3152           70157                           MASK     PRIORITY                              
044211,000248: 01,3153           54110                           TS       FIXLOC                                
044212,000249: 
044213,000250: 01,3154           10156                           CCS      PUSHLOC                               #  SET OVERFLOW INDICATOR ACCORDING TO
044214,000251: 01,3155           37761                           CAF      ZERO                                  
044215,000252: 01,3156           13163                           TCF      ENDPRCHG   -1                         
044216,000253: 01,3157           40156                           CS       PUSHLOC                               
044217,000254: 01,3160           54156                           TS       PUSHLOC                               
044218,000255: 01,3161           37755                           CAF      ONE                                   
044219,000256: 01,3162           56111                           XCH      OVFIND                                
044220,000257: 01,3163           54067                           TS       NEWJOB                                
044221,000258: 
044222,000259: 01,3164           00003        ENDPRCHG           RELINT                                         
044223,000260: 01,3165           52155                           DXCH     LOC                                   #  BASIC JOBS HAVE POSITIVE ADDRESSES, SO
044224,000261: 

Page 993

044226,000263: 
044227,000264: 01,3166           00006                           EXTEND                                         #  DISPATCH WITH A DTCB.
044228,000265: 01,3167           63171                           BZMF     +2                                    #  IF INTERPRETIVE, SET UP EBANK, ETC.
044229,000266: 01,3170           52006                           DTCB                                           
044230,000267: 

Page 994

044232,000269: 01,3171           40000                           COM                                            #  EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
044233,000270: 
044234,000271: 01,3172           67755                           AD       ONE                                   
044235,000272: 01,3173           54154                           TS       LOC                                   #  RESUME.
044236,000273: 01,3174           16112                           TCF      INTRSM                                
044237,000274: 
044238,000275:                                                                                                  #           COMPLETE JOBSLEEP PREPARATIONS.
044239,000276: 
044240,000277: 01,3175           00004        JOBSLP1            INHINT                                         
044241,000278: 01,3176           40157                           CS       PRIORITY                              #  NNZ PRIORITY SHOWS JOB ASLEEP.
044242,000279: 01,3177           54157                           TS       PRIORITY                              
044243,000280: 01,3200           36130                           CAF      LOW7                                  
044244,000281: 01,3201           70006                           MASK     BBANK                                 
044245,000282: 01,3202           54155                           TS       BANKSET                               
044246,000283: 
044247,000284: 01,3203           47761                           CS       ZERO                                  
044248,000285: 01,3204           54121        JOBSLP2            TS       BUF        +1                         #  HOLDS - HIGHEST PRIORITY.
044249,000286: 01,3205           13276                           TCF      EJSCAN                                #  SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
044250,000287: 

Page 995

044252,000289: 
044253,000290:                                                                                                  #           TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP.  IF THE FCADR IN THE
044254,000291:                                                                                                  #  LOC REGISTER OF ANY SUCH JOB MATCHES THAT SUPPLIED BY THE CALLER, THAT JOB IS AWAKENED.  IF NO JOB IS FOUND,
044255,000292:                                                                                                  #  LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
044256,000293: 
044257,000294: 01,3206           54061        JOBWAKE2           TS       EXECTEM1                              
044258,000295: 01,3207           37761                           CAF      ZERO                                  #  BEGIN CORE SET SCAN.
044259,000296: 
044260,000297: 01,3210           54064                           TS       LOCCTR                                
044261,000298: 01,3211           33045                           CAF      NO.CORES                              
044262,000299: 01,3212           54062        JOBWAKE4           TS       EXECTEM2                              
044263,000300: 01,3213           50064                           INDEX    LOCCTR                                
044264,000301: 01,3214           10157                           CCS      PRIORITY                              
044265,000302: 01,3215           13220                           TCF      JOBWAKE3                              #  ACTIVE JOB - CHECK NEXT CORE SET.
044266,000303: 01,3216           00014        COREINC            DEC      12         B-14                       #  12 REGISTERS PER CORE SET.
044267,000304: 01,3217           13227                           TCF      WAKETEST                              #  SLEEPING JOB - SEE IF CADR MATCHES.
044268,000305: 
044269,000306: 01,3220           33216        JOBWAKE3           CAF      COREINC                               
044270,000307: 01,3221           26064                           ADS      LOCCTR                                
044271,000308: 01,3222           10062                           CCS      EXECTEM2                              
044272,000309: 
044273,000310: 01,3223           13212                           TCF      JOBWAKE4                              
044274,000311: 01,3224           47755                           CS       ONE                                   #  EXIT IF SLEEPING JOB NOT FOUND.
044275,000312: 01,3225           54064                           TS       LOCCTR                                
044276,000313: 01,3226           15610                           TCF      ENDFIND                               
044277,000314: 
044278,000315: 01,3227           40065        WAKETEST           CS       NEWLOC                                
044279,000316: 01,3230           50064                           INDEX    LOCCTR                                
044280,000317: 01,3231           60154                           AD       LOC                                   
044281,000318: 01,3232           00006                           EXTEND                                         
044282,000319: 01,3233           13235                           BZF      +2                                    #  IF MATCH.
044283,000320: 
044284,000321: 01,3234           13220                           TCF      JOBWAKE3                              #  EXAMINE NEXT CORE SET IF NO MATCH.
044285,000322: 
044286,000323: 01,3235           50064                           INDEX    LOCCTR                                #  RE-COMPLEMENT PRIORITY TO SHOW JOB AWAKE
044287,000324: 01,3236           40157                           CS       PRIORITY                              
044288,000325: 01,3237           54063                           TS       NEWPRIO                               
044289,000326: 01,3240           50064                           INDEX    LOCCTR                                
044290,000327: 01,3241           54157                           TS       PRIORITY                              
044291,000328: 
044292,000329: 01,3242           46331                           CS       FBANKMSK                              #  MAKE UP THE 2CADR OF THE WAKE ADDRESS
044293,000330: 01,3243           70065                           MASK     NEWLOC                                #  USING THE CADR IN NEWLOC AND THE EBANK
044294,000331: 01,3244           67743                           AD       2K                                    #  HALF OF BBANK SAVED IN BANKSET.
044295,000332: 01,3245           56065                           XCH      NEWLOC                                
044296,000333: 
044297,000334: 01,3246           76331                           MASK     FBANKMSK                              
044298,000335: 01,3247           50064                           INDEX    LOCCTR                                
044299,000336: 01,3250           60155                           AD       BANKSET                               
044300,000337: 01,3251           54066                           TS       NEWLOC     +1                         
044301,000338: 
044302,000339: 01,3252           10064                           CCS      LOCCTR                                #  SPECIAL TREATMENT IF THIS JOB WAS
044303,000340: 01,3253           13072                           TCF      SETLOC                                #  ALREADY IN THE RUN (0) POSITION.
044304,000341: 01,3254           13062                           TCF      SPECTEST                              
044305,000342: 

Page 996

044307,000344: 
044308,000345:                                                                                                  #           PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY.
044309,000346: 
044310,000347: 01,3255           54154        PRIOCH2            TS       LOC                                   
044311,000348: 01,3256           37761                           CAF      ZERO                                  #  SET FLAG TO TELL ENDJOB SCANNER IF THIS
044312,000349: 01,3257           54120                           TS       BUF                                   #  JOB IS STILL HIGHEST PRIORITY.
044313,000350: 01,3260           35360                           CAF      LOW9                                  
044314,000351: 01,3261           70157                           MASK     PRIORITY                              
044315,000352: 01,3262           60063                           AD       NEWPRIO                               
044316,000353: 01,3263           54157                           TS       PRIORITY                              
044317,000354: 01,3264           40000                           COM                                            
044318,000355: 01,3265           13204                           TCF      JOBSLP2                               #  AND TO EJSCAN.
044319,000356: 

Page 997

044321,000358: 
044322,000359:                                                                                                  #           RELEASE THIS CORE SET AND VAC AREA AND SCAN FOR THE JOB OF HIGHEST ACTIVE PRIORITY.
044323,000360: 
044324,000361: 01,3266           00004        ENDJOB1            INHINT                                         
044325,000362: 01,3267           47761                           CS       ZERO                                  
044326,000363: 01,3270           54121                           TS       BUF        +1                         
044327,000364: 01,3271           56157                           XCH      PRIORITY                              
044328,000365: 01,3272           75360                           MASK     LOW9                                  
044329,000366: 01,3273           10000                           CCS      A                                     
044330,000367: 
044331,000368: 01,3274           50000                           INDEX    A                                     
044332,000369: 01,3275           54000                           TS       0                                     
044333,000370: 
044334,000371: 01,3276           10173        EJSCAN             CCS      PRIORITY   +12D                       
044335,000372: 01,3277           03343                           TC       EJ1                                   
044336,000373: 01,3300           04725                           TC       CCSHOLE                               
044337,000374: 01,3301           13302                           TCF      +1                                    
044338,000375: 
044339,000376: 01,3302           10207                           CCS      PRIORITY   +24D                       #  EXAMINE EACH PRIORITY REGISTER TO FIND
044340,000377: 01,3303           03343                           TC       EJ1                                   #  THE JOB OF HIGHEST ACTIVE PRIORITY.
044341,000378: 
044342,000379: 01,3304           04725                           TC       CCSHOLE                               
044343,000380: 01,3305           13306                           TCF      +1                                    
044344,000381: 
044345,000382: 01,3306           10223                           CCS      PRIORITY   +36D                       
044346,000383: 01,3307           03343                           TC       EJ1                                   
044347,000384: 01,3310           67620        -CCSPR             -CCS     PRIORITY                              
044348,000385: 01,3311           13312                           TCF      +1                                    
044349,000386: 
044350,000387: 01,3312           10237                           CCS      PRIORITY   +48D                       
044351,000388: 01,3313           03343                           TC       EJ1                                   
044352,000389: 01,3314           04725                           TC       CCSHOLE                               
044353,000390: 01,3315           13316                           TCF      +1                                    
044354,000391: 
044355,000392: 01,3316           10253                           CCS      PRIORITY   +60D                       
044356,000393: 01,3317           03343                           TC       EJ1                                   
044357,000394: 01,3320           04725                           TC       CCSHOLE                               
044358,000395: 01,3321           13322                           TCF      +1                                    
044359,000396: 
044360,000397: 01,3322           10267                           CCS      PRIORITY   +72D                       
044361,000398: 01,3323           03343                           TC       EJ1                                   
044362,000399: 01,3324           04725                           TC       CCSHOLE                               
044363,000400: 01,3325           13326                           TCF      +1                                    
044364,000401: 

Page 998

044366,000403: 
044367,000404:                                                                                                  #           EVALUATE THE RESULTS OF THE SCAN.
044368,000405: 
044369,000406: 01,3326           10121                           CCS      BUF        +1                         #  SEE IF THERE ARE ANY ACTIVE JOBS WAITING
044370,000407: 01,3327           04725                           TC       CCSHOLE                               
044371,000408: 01,3330           04725                           TC       CCSHOLE                               
044372,000409: 
044373,000410: 01,3331           13333                           TCF      +2                                    
044374,000411: 01,3332           15614                           TCF      DUMMYJOB                              
044375,000412: 01,3333           10120                           CCS      BUF                                   #  BUF IS ZERO IF THIS IS A PRIOCHNG AND
044376,000413: 01,3334           13336                           TCF      +2                                    #  CHANGED PRIORITY IS STILL HIGHEST.
044377,000414: 01,3335           13164                           TCF      ENDPRCHG                              
044378,000415: 
044379,000416: 01,3336           50000                           INDEX    A                                     #  OTHERWISE, SET NEWJOB TO THE RELATIVE
044380,000417: 01,3337           27777                           CAF      0          -1                         #  ADDRESS OF THE NEW JOB'S CORE SET.
044381,000418: 
044382,000419: 01,3340           63310                           AD       -CCSPR                                
044383,000420: 01,3341           54067                           TS       NEWJOB                                
044384,000421: 01,3342           13113                           TCF      CHANJOB    -1                         
044385,000422: 
044386,000423: 01,3343           54122        EJ1                TS       BUF        +2                         
044387,000424: 01,3344           60121                           AD       BUF        +1                         #  - OLD HIGH PRIORITY.
044388,000425: 01,3345           10000                           CCS      A                                     
044389,000426: 01,3346           40122                           CS       BUF        +2                         
044390,000427: 01,3347           13353                           TCF      EJ2                                   #  NEW HIGH PRIORITY.
044391,000428: 01,3350           13351                           NOOP                                           
044392,000429: 
044393,000430: 01,3351           50002                           INDEX    Q                                     
044394,000431: 01,3352           00002                           TC       2                                     #  PROCEED WITH SEARCH.
044395,000432: 
044396,000433: 01,3353           54121        EJ2                TS       BUF        +1                         
044397,000434: 01,3354           00006                           EXTEND                                         
044398,000435: 01,3355           22120                           QXCH     BUF                                   #  FOR LOCATING CCS PRIORITY + X INSTR.
044399,000436: 01,3356           50120                           INDEX    BUF                                   
044400,000437: 01,3357           00002                           TC       2                                     
044401,000438: 

Page 999

044403,000440: 
044404,000441:                                                                                                  #           IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF,
044405,000442:                                                                                                  #  BUT RATHER A SUBROUTINE OF THE EXECUTIVE.
044406,000443: 
044407,000444:    5614                                           BLOCK    02                                    
044408,000445:    5614     1356                                  EBANK=   SELFRET                               #  SELF-CHECK STORAGE IN EBANK.
044409,000446: 
044410,000447:    5614           47761        DUMMYJOB           CS       ZERO                                  #  SET NEWJOB TO -0 FOR IDLING.
044411,000448:    5615           54067                           TS       NEWJOB                                
044412,000449:    5616           00003                           RELINT                                         
044413,000450:    5617           47754                           CS       TWO                                   #  TURN OFF THE ACTIVITY LIGHT.
044414,000451:    5620           00006                           EXTEND                                         
044415,000452:    5621           03011                           WAND     DSALMOUT                              
044416,000453:    5622           15625                           TCF      CHECKNJ    +2                         
044417,000454: 
044418,000455:    5623           00006        CHECKNJ            EXTEND                                         #  SPECIAL NEWJOB TEST FOR SELF-CHECK,
044419,000456:    5624           23356                           QXCH     SELFRET                               #  WHICH RUNS UNDER EXECUTIVE CONTROL,
044420,000457:    5625           10067                 +2        CCS      NEWJOB                                #  BUT DOES NOT HAVE A JOBS CORE REGISTERS.
044421,000458:    5626           15640                           TCF      NUCHANGE                              #  NEW JOB REQUIRING A CHANGE JOB.
044422,000459:    5627           37754                           CAF      TWO                                   #  NEW JOB ALREADY IN POSITION FOR
044423,000460: 
044424,000461:    5630           15634                           TCF      NUDIRECT                              #  EXECUTION.
044425,000462: 
044426,000463:    5631           35647        ADVAN              CAF      SELFBANK                              #  (SIMULATOR ADVAN IF NEWJOB = 77777).
044427,000464:    5632           54006                           TS       BBANK                                 
044428,000465:    5633           01356                           TC       SELFRET                               
044429,000466: 
044430,000467:    5634           00006        NUDIRECT           EXTEND                                         #  TURN THE GREEN LIGHT BACK ON.
044431,000468:    5635           05011                           WOR      DSALMOUT                              
044432,000469:    5636           52155                           DXCH     LOC                                   #  JOBS STARTED IN THIS FASHION MUST BE
044433,000470:    5637           52006                           DTCB                                           #  BASIC.
044434,000471: 
044435,000472:    5640           37754        NUCHANGE           CAF      TWO                                   
044436,000473:    5641           00006                           EXTEND                                         
044437,000474:    5642           05011                           WOR      DSALMOUT                              
044438,000475:    5643           35613                           CAF      EXECBANK                              #  SWAP CORE SETS.
044439,000476:    5644           54004                           TS       FBANK                                 
044440,000477:    5645           00004                           INHINT                                         #  CHANGE JOBS
044441,000478:    5646           13113                           TCF      CHANJOB    -1                         
044442,000479: 
044443,000480:    5647     1356                                  EBANK=   SELFRET                               
044444,000481:    5647           76062        SELFBANK           BBCON    SELFCHK                               
044445,000482: 

Page 1000

044447,000484: 
044448,000485:                                                                                                  #           PRIORITY CONSTANTS (NOTE IN FIXED-FIXED).
044449,000486: 
044450,000487:    5650     7744               PRIO1              EQUALS   BIT10                                 
044451,000488:    5650     7743               PRIO2              EQUALS   BIT11                                 
044452,000489:    5650           03000        PRIO3              OCT      03000                                 
044453,000490:    5651     7742               PRIO4              EQUALS   BIT12                                 
044454,000491:    5651           05000        PRIO5              OCT      05000                                 
044455,000492:    5652           06000        PRIO6              OCT      06000                                 
044456,000493:    5653           07000        PRIO7              OCT      07000                                 
044457,000494:    5654     7741               PRIO10             EQUALS   BIT13                                 
044458,000495:    5654           11000        PRIO11             OCT      11000                                 
044459,000496:    5655     5252               PRIO12             =        BNKJUP+4                              
044460,000497: 
044461,000498:    5655           13000        PRIO13             OCT      13000                                 
044462,000499:    5656           14000        PRIO14             OCT      14000                                 
044463,000500:    5657           15000        PRIO15             OCT      15000                                 
044464,000501:    5660           16000        PRIO16             OCT      16000                                 
044465,000502:    5661           17000        PRIO17             OCT      17000                                 
044466,000503:    5662     7740               PRIO20             EQUALS   BIT14                                 
044467,000504:    5662           21000        PRIO21             OCT      21000                                 
044468,000505:    5663           22000        PRIO22             OCT      22000                                 
044469,000506:    5664           23000        PRIO23             OCT      23000                                 
044470,000507:    5665     4260               PRIO24             =        NUFAZ+10                              
044471,000508:    5665           25000        PRIO25             OCT      25000                                 
044472,000509:    5666           26000        PRIO26             OCT      26000                                 
044473,000510: 
044474,000511:    5667           27000        PRIO27             OCT      27000                                 
044475,000512:    5670     5226               PRIO30             =        BNKCAL+2                              
044476,000513:    5670           31000        PRIO31             OCT      31000                                 
044477,000514:    5671           32000        PRIO32             OCT      32000                                 
044478,000515:    5672           33000        PRIO33             OCT      33000                                 
044479,000516:    5673           34000        PRIO34             OCT      34000                                 
044480,000517:    5674           35000        PRIO35             OCT      35000                                 
044481,000518:    5675           36000        PRIO36             OCT      36000                                 
044482,000519:    5676           37000        PRIO37             OCT      37000                                 
044483,000520: 
044484,000521:                                                                                                  #           EBANK CONSTANTS IN FIXED-FIXED
044485,000522: 
044486,000523:    5677     5370               EBANK3             EQUALS   OCT1400                               
044487,000524:    5677     7743               EBANK4             EQUALS   BIT11                                 
044488,000525:    5677           02400        EBANK5             OCTAL    02400                                 
044489,000526:    5700     5650               EBANK6             EQUALS   PRIO3                                 
044490,000527:    5700           03400        EBANK7             OCTAL    03400                                 

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