Source Code

These source code files have been transcribed or otherwise adapted from digitized images of a hardcopy from the private collection of Don Eyles. The digitization was performed by archive.org, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that the original high-quality images are available at archive.org. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

    473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP   NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.

004737,000002:                                                                                                  ## Copyright:    Public domain.
004738,000003:                                                                                                  ## Filename:     EXECUTIVE.agc
004739,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
004740,000005:                                                                                                  ## Assembler:    yaYUL
004741,000006:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
004742,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
004743,000008:                                                                                                  ## Pages:        126-138
004744,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
004745,000010:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
004746,000011:                                                                                                  ##                               and fixed the errors found.
004747,000012:                                                                                                  ##               2021-05-30 ABS  Aligned TCF +1 line to match scans.
004748,000013: 
004749,000014:                                                                                                  ## This source code has been transcribed or otherwise adapted from
004750,000015:                                                                                                  ## digitized images of a hardcopy from the private collection of 
004751,000016:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
004752,000017: 
004753,000018:                                                                                                  ## Notations on the hardcopy document read, in part:
004754,000019: 
004755,000020:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
004756,000021:                                                                                                  ##       NOV 10, 1966
004757,000022: 
004758,000023:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
004759,000024:                                                                                                  ##       date of the program revision or the assembly.]
004760,000025: 
004761,000026:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent 
004762,000027:                                                                                                  ## reduction in image quality) are available online at 
004763,000028:                                                                                                  ##       https://www.ibiblio.org/apollo.  
004764,000029:                                                                                                  ## The original high-quality digital images are available at archive.org:
004765,000030:                                                                                                  ##       https://archive.org/details/aurora00dapg
004766,000031: 

Page 126

004768,000033: 
004769,000034:    4363                                           SETLOC   ENDSUBSF                              
004770,000035: 
004771,000036:                                                                                                  #  TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
004772,000037: 
004773,000038:    4363           54070        NOVAC              TS       NEWPRIO                               #  SAVE PRIORITY OF NEW JOB.
004774,000039:    4364           00006                           EXTEND                                         
004775,000040:    4365           50002                           INDEX    Q                                     #  Q WILL BE UNDISTURBED THROUGHOUT.
004776,000041:    4366           30001                           DCA      0                                     #  2CADR OF JOB ENTERED.
004777,000042:    4367           52073                           DXCH     NEWLOC                                
004778,000043:    4370           34447                           CAF      EXECBANK                              
004779,000044:    4371           56004                           XCH      FBANK                                 
004780,000045:    4372           54065                           TS       EXECTEM1                              
004781,000046:    4373           12242                           TCF      NOVAC2                                #  ENTER EXECUTIVE BANK.
004782,000047: 
004783,000048:                                                                                                  #  TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
004784,000049: 
004785,000050:    4374           54070        FINDVAC            TS       NEWPRIO                               
004786,000051:    4375           00006                           EXTEND                                         
004787,000052:    4376           50002                           INDEX    Q                                     
004788,000053:    4377           30001                           DCA      0                                     
004789,000054:    4400           52073                           DXCH     NEWLOC                                
004790,000055:    4401           34447                           CAF      EXECBANK                              
004791,000056:    4402           56004                           XCH      FBANK                                 
004792,000057:    4403           12220                           TCF      FINDVAC2                              #  OFF TO EXECUTIVE SWITCHED-BANK.
004793,000058: 
004794,000059:                                                                                                  #  TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICED:
004795,000060: 
004796,000061:    4404           34447        CHANG1             CAF      EXECBANK                              
004797,000062:    4405           54001                           TS       L                                     
004798,000063:    4406           30002                           CA       Q                                     
004799,000064:    4407           22006                 +3        LXCH     BBANK                                 
004800,000065:    4410           00004                           INHINT                                         
004801,000066:    4411           12320                           TCF      CHANJOB                               
004802,000067: 
004803,000068:                                                                                                  #  TO SUSPEND AN INTERPRETIVE JOB:
004804,000069: 
004805,000070:    4412           34447        CHANG2             CAF      EXECBANK                              
004806,000071:    4413           54001                           TS       L                                     
004807,000072:    4414           40150                           CS       LOC                                   #  NEGATIVE LOC SHOWS JOB INTERPRETIVE.
004808,000073:    4415           14407                           TCF      CHANG1     +3                         
004809,000074: 

Page 127

004811,000076: 
004812,000077:                                                                                                  #  TO VOLUNTARILY SUSPEND A JOB UNTIL THE COMPLETION OF SOME ANTICIPATED EVENT (I/O EVENT ETC.):
004813,000078: 
004814,000079:    4416           54150        JOBSLEEP           TS       LOC                                   
004815,000080:    4417           34447                           CAF      EXECBANK                              
004816,000081:    4420           54004                           TS       FBANK                                 
004817,000082:    4421           12403                           TCF      JOBSLP1                               
004818,000083: 
004819,000084:                                                                                                  #  TO AWAKEN A JOB PUT TO SLEEP IN THE ABOVE FASHION:
004820,000085: 
004821,000086:    4422           54072        JOBWAKE            TS       NEWLOC                                
004822,000087:    4423           47656                           CS       TWO                                   #  EXIT IS VIA FINDVAC/NOVAC PROCEDURES.
004823,000088:    4424           26002                           ADS      Q                                     
004824,000089:    4425           34447                           CAF      EXECBANK                              
004825,000090:    4426           56004                           XCH      FBANK                                 
004826,000091:    4427           12414                           TCF      JOBWAKE2                              
004827,000092: 
004828,000093:                                                                                                  #  TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION:
004829,000094: 
004830,000095:    4430           00004        PRIOCHNG           INHINT                                         #  NEW PRIORITY ARRIVES IN A. RETURNS TO
004831,000096:    4431           54070                           TS       NEWPRIO                               #  CALLER AS SOON AS NEW JOB PRIORITY IS
004832,000097:    4432           34447                           CAF      EXECBANK                              #  HIGHEST. PREPARE FOR POSSIBLE BASIC-
004833,000098:    4433           56006                           XCH      BBANK                                 #  STYLE CHANGE-JOB.
004834,000099:    4434           54151                           TS       BANKSET                               
004835,000100:    4435           30002                           CA       Q                                     
004836,000101:    4436           12463                           TCF      PRIOCH2                               
004837,000102: 
004838,000103:                                                                                                  #  TO FREE THE DISPLAY BEFORE ENDOFJOB:
004839,000104: 
004840,000105:    4437           05401        EJFREE             TC       FREEDSP                               
004841,000106: 
004842,000107:                                                                                                  #  TO REMOVE A JOB FROM EXECUTIVE CONSIDERATIONS:
004843,000108: 
004844,000109:    4440           34447        ENDOFJOB           CAF      EXECBANK                              
004845,000110:    4441           54004                           TS       FBANK                                 
004846,000111:    4442           12474                           TCF      ENDJOB1                               
004847,000112: 
004848,000113:    4443           30065        ENDFIND            CA       EXECTEM1                              #  RETURN TO CALLER AFTER JOB ENTRY
004849,000114:    4444           54004                           TS       FBANK                                 #  COMPLETE.
004850,000115:    4445           50002                           INDEX    Q                                     
004851,000116:    4446           00002                           TC       2                                     
004852,000117: 
004853,000118:    4447           02220        EXECBANK           CADR     FINDVAC2                              
004854,000119: 

Page 128

004856,000121: 
004857,000122:                                                                                                  #  LOCATE AN AVAILABLE VAC AREA.
004858,000123: 
004859,000124: 01,2220                                           SETLOC   ENDINTS1                              
004860,000125: 
004861,000126: 01,2220           54065        FINDVAC2           TS       EXECTEM1                              #  (SAVE CALLER'S BANK FIRST.)
004862,000127: 01,2221           10431                           CCS      VAC1USE                               
004863,000128: 01,2222           12235                           TCF      VACFOUND                              
004864,000129: 01,2223           10505                           CCS      VAC2USE                               
004865,000130: 01,2224           12235                           TCF      VACFOUND                              
004866,000131: 01,2225           10561                           CCS      VAC3USE                               
004867,000132: 01,2226           12235                           TCF      VACFOUND                              
004868,000133: 01,2227           10635                           CCS      VAC4USE                               
004869,000134: 01,2230           12235                           TCF      VACFOUND                              
004870,000135: 01,2231           10711                           CCS      VAC5USE                               
004871,000136: 01,2232           12235                           TCF      VACFOUND                              
004872,000137: 01,2233           05446                           TC       ABORT                                 
004873,000138: 01,2234           01201                           OCT      1201                                  #  NO VAC AREAS.
004874,000139: 
004875,000140: 01,2235           67656        VACFOUND           AD       TWO                                   #  RESERVE THIS VAC AREA BY STORING A ZERO
004876,000141: 01,2236           22007                           ZL                                             #  IN ITS VAC USE REGISTER AND STORE THE
004877,000142: 01,2237           50000                           INDEX    A                                     #  ADDRESS OF THE FIRST WORD OF IT IN THE
004878,000143: 01,2240           21777                           LXCH     0          -1                         #  LOW NINE BITS OF THE PRIORITY WORD.
004879,000144: 01,2241           26070                           ADS      NEWPRIO                               
004880,000145: 
004881,000146: 01,2242           37665        NOVAC2             CAF      ZERO                                  #  NOVAC ENTERS HERE.  FIND A CORE SET.
004882,000147: 01,2243           54071                           TS       LOCCTR                                
004883,000148: 01,2244           32251                           CAF      NO.CORES                              #  SEVEN SETS OF ELEVEN REGISTERS EACH.
004884,000149: 01,2245           54066        NOVAC3             TS       EXECTEM2                              
004885,000150: 01,2246           50071                           INDEX    LOCCTR                                
004886,000151: 01,2247           10153                           CCS      PRIORITY                              #  EACH PRIORITY REGISTER CONTAINS -0 IF
004887,000152: 01,2250           12311                           TCF      NEXTCORE                              #  THE CORRESPONDING CORE SET IS AVAILABLE.
004888,000153: 01,2251           00006        NO.CORES           DEC      6          B-14                       
004889,000154: 01,2252           12311                           TCF      NEXTCORE                              #  AN ACTIVE JOB HAS A POSITIVE PRIORITY
004890,000155:                                                                                                  #  BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
004891,000156: 

Page 129

004893,000158: 
004894,000159: 01,2253           30070        CORFOUND           CA       NEWPRIO                               #  SET THE PRIORITY OF THIS JOB IN THE CORE
004895,000160: 01,2254           50071                           INDEX    LOCCTR                                #  SET'S PRIORITY REGISTER AND SET THE
004896,000161: 01,2255           54153                           TS       PRIORITY                              #  JOB'S PUSH-DOWN POINTER AT THE BEGINNING
004897,000162: 01,2256           77672                           MASK     LOW9                                  #  OF THE WORK AREA AND OVERFLOW INDICATOR
004898,000163: 01,2257           50071                           INDEX    LOCCTR                                
004899,000164: 01,2260           54152                           TS       PUSHLOC                               #  OFF TO PREPARE FOR INTERPRETIVE PROGRAMS
004900,000165: 
004901,000166: 01,2261           10071                           CCS      LOCCTR                                #  IF CORE SET ZERO IS BEING LOADED, SET UP
004902,000167: 01,2262           12276                           TCF      SETLOC                                #  OVFIND AND FIXLOC IMMEDIATELY.
004903,000168: 01,2263           54105                           TS       OVFIND                                
004904,000169: 01,2264           30152                           CA       PUSHLOC                               
004905,000170: 01,2265           54104                           TS       FIXLOC                                
004906,000171: 
004907,000172: 01,2266           10067        SPECTEST           CCS      NEWJOB                                #  SEE IF ANY ACTIVE JOBS WAITING (RARE).
004908,000173: 01,2267           12276                           TCF      SETLOC                                #  MUST BE AWAKENED BUT UNCHANGED JOB.
004909,000174: 01,2270           05464                           TC       CCSHOLE                               
004910,000175: 01,2271           05464                           TC       CCSHOLE                               
004911,000176: 01,2272           54067                           TS       NEWJOB                                #  +0 SHOWS ACTIVE JOB ALREADY SET.
004912,000177: 01,2273           52073                           DXCH     NEWLOC                                
004913,000178: 01,2274           52151                           DXCH     LOC                                   
004914,000179: 01,2275           14443                           TCF      ENDFIND                               
004915,000180: 
004916,000181: 01,2276           52073        SETLOC             DXCH     NEWLOC                                #  SET UP THE LOCATION REGISTERS FOR THIS
004917,000182: 01,2277           50071                           INDEX    LOCCTR                                
004918,000183: 01,2300           52151                           DXCH     LOC                                   
004919,000184: 01,2301           50067                           INDEX    NEWJOB                                #  THIS INDEX INSTRUCTION INSURES THAT THE
004920,000185: 01,2302           40153                           CS       PRIORITY                              #  HIGHEST ACTIVE PRIORITY WILL BE COMPARED
004921,000186: 01,2303           60070                           AD       NEWPRIO                               #  WITH THE NEW PRIORITY TO SEE IF NEWJOB
004922,000187: 01,2304           00006                           EXTEND                                         #  SHOULD BE SET TO SIGNAL A SWITCH.
004923,000188: 01,2305           64443                           BZMF     ENDFIND                               
004924,000189: 01,2306           30071                           CA       LOCCTR                                #  LOCCTR IS LEFT SET AT THIS CORE SET IF
004925,000190: 01,2307           54067                           TS       NEWJOB                                #  THE CALLER WANTS TO LOAD ANY MPAC
004926,000191: 01,2310           14443                           TCF      ENDFIND                               #  REGISTERS, ETC.
004927,000192: 
004928,000193: 01,2311           32424        NEXTCORE           CAF      COREINC                               
004929,000194: 01,2312           26071                           ADS      LOCCTR                                
004930,000195: 01,2313           10066                           CCS      EXECTEM2                              
004931,000196: 01,2314           12245                           TCF      NOVAC3                                
004932,000197: 01,2315           05446                           TC       ABORT                                 #  NO CORE SETS.
004933,000198: 01,2316           01202                           OCT      1202                                  
004934,000199: 

Page 130

004936,000201: 
004937,000202:                                                                                                  #  THE FOLLOWING ROUTINE SWAPS CORE SET 0 WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB.
004938,000203: 
004939,000204: 01,2317           52151                 -1        DXCH     LOC                                   
004940,000205: 01,2320           50067        CHANJOB            INDEX    NEWJOB                                #  LOC ARRIVES IN A AND BBANK IN L.
004941,000206: 01,2321           52151                           DXCH     LOC                                   
004942,000207: 01,2322           52151                           DXCH     LOC                                   
004943,000208: 
004944,000209: 01,2323           52141                           DXCH     MPAC                                  #  SWAP MULTI-PURPOSE ACCUMULATOR AREAS.
004945,000210: 01,2324           50067                           INDEX    NEWJOB                                
004946,000211: 01,2325           52141                           DXCH     MPAC                                  
004947,000212: 01,2326           52141                           DXCH     MPAC                                  
004948,000213: 01,2327           52143                           DXCH     MPAC       +2                         
004949,000214: 01,2330           50067                           INDEX    NEWJOB                                
004950,000215: 01,2331           52143                           DXCH     MPAC       +2                         
004951,000216: 01,2332           52143                           DXCH     MPAC       +2                         
004952,000217: 01,2333           52145                           DXCH     MPAC       +4                         
004953,000218: 01,2334           50067                           INDEX    NEWJOB                                
004954,000219: 01,2335           52145                           DXCH     MPAC       +4                         
004955,000220: 01,2336           52145                           DXCH     MPAC       +4                         
004956,000221: 01,2337           52147                           DXCH     MPAC       +6                         
004957,000222: 01,2340           50067                           INDEX    NEWJOB                                
004958,000223: 01,2341           52147                           DXCH     MPAC       +6                         
004959,000224: 01,2342           52147                           DXCH     MPAC       +6                         
004960,000225: 
004961,000226: 01,2343           37665                           CAF      ZERO                                  
004962,000227: 01,2344           56105                           XCH      OVFIND                                #  MAKE PUSHLOC NEGATIVE IF OVFIND NZ.
004963,000228: 01,2345           00006                           EXTEND                                         
004964,000229: 01,2346           12351                           BZF      +3                                    
004965,000230: 01,2347           40152                           CS       PUSHLOC                               
004966,000231: 01,2350           54152                           TS       PUSHLOC                               
004967,000232: 
004968,000233: 01,2351           52153                           DXCH     PUSHLOC                               
004969,000234: 01,2352           50067                           INDEX    NEWJOB                                
004970,000235: 01,2353           52153                           DXCH     PUSHLOC                               
004971,000236: 01,2354           52153                           DXCH     PUSHLOC                               #  SWAPS PUSHLOC AND PRIORITY.
004972,000237: 01,2355           37672                           CAF      LOW9                                  #  SET FIXLOC TO BASE OF VAC AREA.
004973,000238: 01,2356           70153                           MASK     PRIORITY                              
004974,000239: 01,2357           54104                           TS       FIXLOC                                
004975,000240: 
004976,000241: 01,2360           10152                           CCS      PUSHLOC                               #  SET OVERFLOW INDICATOR ACCORDING TO
004977,000242: 01,2361           37665                           CAF      ZERO                                  
004978,000243: 01,2362           12367                           TCF      ENDPRCHG   -1                         
004979,000244: 01,2363           40152                           CS       PUSHLOC                               
004980,000245: 01,2364           54152                           TS       PUSHLOC                               
004981,000246: 01,2365           37657                           CAF      ONE                                   
004982,000247: 01,2366           56105                           XCH      OVFIND                                
004983,000248: 01,2367           54067                           TS       NEWJOB                                
004984,000249: 
004985,000250: 01,2370           00003        ENDPRCHG           RELINT                                         
004986,000251: 01,2371           52151                           DXCH     LOC                                   #  BASIC JOBS HAVE POSITIVE ADDRESSES, SO
004987,000252: 

Page 131

004989,000254: 
004990,000255: 01,2372           00006                           EXTEND                                         #  DISPATCH WITH A DTCB.
004991,000256: 01,2373           62375                           BZMF     +2                                    #  IF INTERPRETIVE, SET UP EBANK, ETC.
004992,000257: 01,2374           52006                           DTCB                                           
004993,000258: 

Page 132

004995,000260: 
004996,000261: 01,2375           40000                           COM                                            #  EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
004997,000262: 01,2376           67657                           AD       ONE                                   
004998,000263: 01,2377           54150                           TS       LOC                                   #  RESUME.
004999,000264: 01,2400           36232                           CAF      FBANKMSK                              
005000,000265: 01,2401           70001                           MASK     L                                     
005001,000266: 01,2402           16011                           TCF      INTRSM                                
005002,000267: 
005003,000268:                                                                                                  #  COMPLETE JOBSLEEP PREPARATIONS.
005004,000269: 
005005,000270: 01,2403           00004        JOBSLP1            INHINT                                         
005006,000271: 01,2404           40153                           CS       PRIORITY                              #  NNZ PRIORITY SHOWS JOB ASLEEP.
005007,000272: 01,2405           54153                           TS       PRIORITY                              
005008,000273: 01,2406           36027                           CAF      LOW7                                  
005009,000274: 01,2407           70006                           MASK     BBANK                                 
005010,000275: 01,2410           54151                           TS       BANKSET                               
005011,000276: 01,2411           47665                           CS       ZERO                                  
005012,000277: 01,2412           54115        JOBSLP2            TS       BUF        +1                         #  HOLDS - HIGHEST PRIORITY.
005013,000278: 01,2413           12504                           TCF      EJSCAN                                #  SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
005014,000279: 

Page 133

005016,000281: 
005017,000282:                                                                                                  #  TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE
005018,000283:                                                                                                  #  LOC REGISTER OF ANY SUCH JOB MATCHES THAT SUPPLIED BY THE CALLER, THAT JOB IS AWAKENED. IF NO JOB IS FOUND,
005019,000284:                                                                                                  #  LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
005020,000285: 
005021,000286: 01,2414           54065        JOBWAKE2           TS       EXECTEM1                              
005022,000287: 01,2415           37665                           CAF      ZERO                                  #  BEGIN CORE SET SCAN.
005023,000288: 01,2416           54071                           TS       LOCCTR                                
005024,000289: 01,2417           32251                           CAF      NO.CORES                              
005025,000290: 01,2420           54066        JOBWAKE4           TS       EXECTEM2                              
005026,000291: 01,2421           50071                           INDEX    LOCCTR                                
005027,000292: 01,2422           10153                           CCS      PRIORITY                              
005028,000293: 01,2423           12426                           TCF      JOBWAKE3                              #  ACTIVE JOB - CHECK NEXT CORE SET.
005029,000294: 01,2424           00014        COREINC            DEC      12         B-14                       #  12 REGISTERS PER CORE SET.
005030,000295: 01,2425           12435                           TCF      WAKETEST                              #  SLEEPING JOB - SEE IF CADR MATCHES.
005031,000296: 
005032,000297: 01,2426           32424        JOBWAKE3           CAF      COREINC                               
005033,000298: 01,2427           26071                           ADS      LOCCTR                                
005034,000299: 01,2430           10066                           CCS      EXECTEM2                              
005035,000300: 01,2431           12420                           TCF      JOBWAKE4                              
005036,000301: 01,2432           47657                           CS       ONE                                   #  EXIT IF SLEEPING JOB NOT FOUND.
005037,000302: 01,2433           54071                           TS       LOCCTR                                
005038,000303: 01,2434           14443                           TCF      ENDFIND                               
005039,000304: 
005040,000305: 01,2435           40072        WAKETEST           CS       NEWLOC                                
005041,000306: 01,2436           50071                           INDEX    LOCCTR                                
005042,000307: 01,2437           60150                           AD       LOC                                   
005043,000308: 01,2440           00006                           EXTEND                                         
005044,000309: 01,2441           12443                           BZF      +2                                    #  IF MATCH.
005045,000310: 01,2442           12426                           TCF      JOBWAKE3                              #  EXAMINE NEXT CORE SET IF NO MATCH.
005046,000311: 
005047,000312: 01,2443           50071                           INDEX    LOCCTR                                #  RE-COMPLEMENT PRIORITY TO SHOW JOB AWAKE
005048,000313: 01,2444           40153                           CS       PRIORITY                              
005049,000314: 01,2445           54070                           TS       NEWPRIO                               
005050,000315: 01,2446           50071                           INDEX    LOCCTR                                
005051,000316: 01,2447           54153                           TS       PRIORITY                              
005052,000317: 
005053,000318: 01,2450           46232                           CS       FBANKMSK                              #  MAKE UP THE 2CADR OF THE WAKE ADDRESS
005054,000319: 01,2451           70072                           MASK     NEWLOC                                #  USING THE CADR IN NEWLOC AND THE EBANK
005055,000320: 01,2452           67645                           AD       2K                                    #  HALF OF BBANK SAVED IN BANKSET.
005056,000321: 01,2453           56072                           XCH      NEWLOC                                
005057,000322: 01,2454           76232                           MASK     FBANKMSK                              
005058,000323: 01,2455           50071                           INDEX    LOCCTR                                
005059,000324: 01,2456           60151                           AD       BANKSET                               
005060,000325: 01,2457           54073                           TS       NEWLOC     +1                         
005061,000326: 
005062,000327: 01,2460           10071                           CCS      LOCCTR                                #  SPECIAL TREATMENT IF THIS JOB WAS
005063,000328: 01,2461           12276                           TCF      SETLOC                                #  ALREADY IN THE RUN (0) POSITION.
005064,000329: 01,2462           12266                           TCF      SPECTEST                              
005065,000330: 

Page 134

005067,000332: 
005068,000333:                                                                                                  #  PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY.
005069,000334: 
005070,000335: 01,2463           54150        PRIOCH2            TS       LOC                                   
005071,000336: 01,2464           37665                           CAF      ZERO                                  #  SET FLAG TO TELL ENDJOB SCANNER IF THIS
005072,000337: 01,2465           54114                           TS       BUF                                   #  JOB IS STILL HIGHEST PRIORITY.
005073,000338: 01,2466           37672                           CAF      LOW9                                  
005074,000339: 01,2467           70153                           MASK     PRIORITY                              
005075,000340: 01,2470           60070                           AD       NEWPRIO                               
005076,000341: 01,2471           54153                           TS       PRIORITY                              
005077,000342: 01,2472           40000                           COM                                            
005078,000343: 01,2473           12412                           TCF      JOBSLP2                               #  AND TO EJSCAN.
005079,000344: 

Page 135

005081,000346: 
005082,000347:                                                                                                  #  RELEASE THIS CORE SET AND VAC AREA AND SCAN FOR THE JOB OF HIGHEST ACTIVE PRIORITY.
005083,000348: 
005084,000349: 01,2474           00004        ENDJOB1            INHINT                                         
005085,000350: 01,2475           47665                           CS       ZERO                                  
005086,000351: 01,2476           54115                           TS       BUF        +1                         
005087,000352: 01,2477           56153                           XCH      PRIORITY                              
005088,000353: 01,2500           77672                           MASK     LOW9                                  
005089,000354: 01,2501           10000                           CCS      A                                     
005090,000355: 01,2502           50000                           INDEX    A                                     
005091,000356: 01,2503           54000                           TS       0                                     
005092,000357: 
005093,000358: 01,2504           10167        EJSCAN             CCS      PRIORITY   +12D                       
005094,000359: 01,2505           02551                           TC       EJ1                                   
005095,000360: 01,2506           05464                           TC       CCSHOLE                               
005096,000361: 01,2507           12510                           TCF      +1                                    
005097,000362: 
005098,000363: 01,2510           10203                           CCS      PRIORITY   +24D                       #  EXAMINE EACH PRIORITY REGISTER TO FIND
005099,000364: 01,2511           02551                           TC       EJ1                                   #  THE JOB OF HIGHEST ACTIVE PRIORITY.
005100,000365: 01,2512           05464                           TC       CCSHOLE                               
005101,000366: 01,2513           12514                           TCF      +1                                    
005102,000367: 
005103,000368: 01,2514           10217                           CCS      PRIORITY   +36D                       
005104,000369: 01,2515           02551                           TC       EJ1                                   
005105,000370: 01,2516           67624        -CCSPR             -CCS     PRIORITY                              
005106,000371: 01,2517           12520                           TCF      +1                                    
005107,000372: 
005108,000373: 01,2520           10233                           CCS      PRIORITY   +48D                       
005109,000374: 01,2521           02551                           TC       EJ1                                   
005110,000375: 01,2522           05464                           TC       CCSHOLE                               
005111,000376: 01,2523           12524                           TCF      +1                                    
005112,000377: 
005113,000378: 01,2524           10247                           CCS      PRIORITY   +60D                       
005114,000379: 01,2525           02551                           TC       EJ1                                   
005115,000380: 01,2526           05464                           TC       CCSHOLE                               
005116,000381: 01,2527           12530                           TCF      +1                                    
005117,000382: 
005118,000383: 01,2530           10263                           CCS      PRIORITY   +72D                       
005119,000384: 01,2531           02551                           TC       EJ1                                   
005120,000385: 01,2532           05464                           TC       CCSHOLE                               
005121,000386: 01,2533           12534                           TCF      +1                                    
005122,000387: 

Page 136

005124,000389: 
005125,000390:                                                                                                  #  EVALUATE THE RESULTS OF THE SCAN.
005126,000391: 
005127,000392: 01,2534           10115                           CCS      BUF        +1                         #  SEE IF THERE ARE ANY ACTIVE JOBS WAITING
005128,000393: 01,2535           05464                           TC       CCSHOLE                               
005129,000394: 01,2536           05464                           TC       CCSHOLE                               
005130,000395: 
005131,000396: 01,2537           12541                           TCF      +2                                    
005132,000397: 01,2540           14450                           TCF      DUMMYJOB                              
005133,000398: 01,2541           10114                           CCS      BUF                                   #  BUF IS ZERO IF THIS IS A PRIOCHNG AND
005134,000399: 01,2542           12544                           TCF      +2                                    #  CHANGED PRIORITY IS STILL HIGHEST.
005135,000400: 01,2543           12370                           TCF      ENDPRCHG                              
005136,000401: 
005137,000402: 01,2544           50000                           INDEX    A                                     #  OTHERWISE, SET NEWJOB TO THE RELATIVE
005138,000403: 01,2545           27777                           CAF      0          -1                         #  ADDRESS OF THE NEW JOB'S CORE SET.
005139,000404: 01,2546           62516                           AD       -CCSPR                                
005140,000405: 01,2547           54067                           TS       NEWJOB                                
005141,000406: 01,2550           12317                           TCF      CHANJOB    -1                         
005142,000407: 
005143,000408: 01,2551           54116        EJ1                TS       BUF        +2                         
005144,000409: 01,2552           60115                           AD       BUF        +1                         #  - OLD HIGH PRIORITY.
005145,000410: 01,2553           10000                           CCS      A                                     
005146,000411: 01,2554           40116                           CS       BUF        +2                         
005147,000412: 01,2555           12561                           TCF      EJ2                                   #  NEW HIGH PRIORITY.
005148,000413: 01,2556           12557                           NOOP                                           
005149,000414: 01,2557           50002                           INDEX    Q                                     
005150,000415: 01,2560           00002                           TC       2                                     #  PROCEED WITH SEARCH.
005151,000416: 
005152,000417: 01,2561           54115        EJ2                TS       BUF        +1                         
005153,000418: 01,2562           00006                           EXTEND                                         
005154,000419: 01,2563           22114                           QXCH     BUF                                   #  FOR LOCATING CCS PRIORITY + X INSTR.
005155,000420: 01,2564           50114                           INDEX    BUF                                   
005156,000421: 01,2565           00002                           TC       2                                     
005157,000422: 
005158,000423: 01,2566                        ENDEXECS           EQUALS                                         
005159,000424: 

Page 137

005161,000426: 
005162,000427:                                                                                                  #  IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF,
005163,000428:                                                                                                  #  BUT RATHER A SUBROUTINE OF THE EXECUTIVE.
005164,000429: 
005165,000430:    4450                                           SETLOC   EXECBANK   +1                         
005166,000431: 
005167,000432:    4450     1360                                  EBANK=   SELFRET                               #  SELF-CHECK STORAGE IN EBANK.
005168,000433: 
005169,000434:    4450           47665        DUMMYJOB           CS       ZERO                                  #  SET NEWJOB TO -0 FOR IDLING.
005170,000435:    4451           54067                           TS       NEWJOB                                
005171,000436:    4452           00003                           RELINT                                         
005172,000437:    4453           47656                           CS       TWO                                   #  TURN OFF THE ACTIVITY LIGHT.
005173,000438:    4454           00006                           EXTEND                                         
005174,000439:    4455           03011                           WAND     DSALMOUT                              
005175,000440:    4456           14461                           TCF      CHECKNJ    +2                         
005176,000441: 
005177,000442:    4457           00006        CHECKNJ            EXTEND                                         #  SPECIAL NEWJOB TEST FOR SELF-CHECK,
005178,000443:    4460           23360                           QXCH     SELFRET                               #  WHICH RUNS UNDER EXECUTIVE CONTROL,
005179,000444:    4461           10067                 +2        CCS      NEWJOB                                #  BUT DOES NOT HAVE A JOBS CORE REGISTERS.
005180,000445:    4462           14474                           TCF      NUCHANGE                              #  NEW JOB REQUIRING A CHANGE JOB.
005181,000446:    4463           37656                           CAF      TWO                                   #  NEW JOB ALREADY IN POSITION FOR
005182,000447:    4464           14470                           TCF      NUDIRECT                              #  EXECUTION.
005183,000448: 
005184,000449:    4465           34503        ADVAN              CAF      SELFBANK                              #  (SIMULATOR ADVAN IF NEWJOB = 77777).
005185,000450:    4466           54006                           TS       BBANK                                 
005186,000451:    4467           01360                           TC       SELFRET                               
005187,000452: 
005188,000453:    4470           00006        NUDIRECT           EXTEND                                         #  TURN THE GREEN LIGHT BACK ON.
005189,000454:    4471           05011                           WOR      DSALMOUT                              
005190,000455:    4472           52151                           DXCH     LOC                                   #  JOBS STARTED IN THIS FASHION MUST BE
005191,000456:    4473           52006                           DTCB                                           #  BASIC.
005192,000457: 
005193,000458:    4474           37656        NUCHANGE           CAF      TWO                                   
005194,000459:    4475           00006                           EXTEND                                         
005195,000460:    4476           05011                           WOR      DSALMOUT                              
005196,000461:    4477           34447                           CAF      EXECBANK                              #  SWAP CORE SETS.
005197,000462:    4500           54004                           TS       FBANK                                 
005198,000463:    4501           00004                           INHINT                                         #  CHANGE JOBS
005199,000464:    4502           12317                           TCF      CHANJOB    -1                         
005200,000465: 
005201,000466:    4503           40002        SELFBANK           BBCON    SELFCHK                               
005202,000467: 

Page 138

005204,000469: 
005205,000470:                                                                                                  #  PRIORITY CONSTANTS (NOTE IN FIXED-FIXED).
005206,000471: 
005207,000472:    4504     7646               PRIO1              EQUALS   BIT10                                 
005208,000473:    4504     7645               PRIO2              EQUALS   BIT11                                 
005209,000474:    4504           03000        PRIO3              OCT      03000                                 
005210,000475:    4505     7644               PRIO4              EQUALS   BIT12                                 
005211,000476:    4505           05000        PRIO5              OCT      05000                                 
005212,000477:    4506           06000        PRIO6              OCT      06000                                 
005213,000478:    4507           07000        PRIO7              OCT      07000                                 
005214,000479:    4510     7643               PRIO10             EQUALS   BIT13                                 
005215,000480:    4510           11000        PRIO11             OCT      11000                                 
005216,000481:    4511           12000        PRIO12             OCT      12000                                 
005217,000482:    4512           13000        PRIO13             OCT      13000                                 
005218,000483:    4513           14000        PRIO14             OCT      14000                                 
005219,000484:    4514           15000        PRIO15             OCT      15000                                 
005220,000485:    4515           16000        PRIO16             OCT      16000                                 
005221,000486:    4516           17000        PRIO17             OCT      17000                                 
005222,000487:    4517     7642               PRIO20             EQUALS   BIT14                                 
005223,000488:    4517           21000        PRIO21             OCT      21000                                 
005224,000489:    4520           22000        PRIO22             OCT      22000                                 
005225,000490:    4521           23000        PRIO23             OCT      23000                                 
005226,000491:    4522           24000        PRIO24             OCT      24000                                 
005227,000492:    4523           25000        PRIO25             OCT      25000                                 
005228,000493:    4524           26000        PRIO26             OCT      26000                                 
005229,000494:    4525           27000        PRIO27             OCT      27000                                 
005230,000495:    4526           30000        PRIO30             OCT      30000                                 
005231,000496:    4527           31000        PRIO31             OCT      31000                                 
005232,000497:    4530           32000        PRIO32             OCT      32000                                 
005233,000498:    4531           33000        PRIO33             OCT      33000                                 
005234,000499:    4532           34000        PRIO34             OCT      34000                                 
005235,000500:    4533           35000        PRIO35             OCT      35000                                 
005236,000501:    4534           36000        PRIO36             OCT      36000                                 
005237,000502:    4535           37000        PRIO37             OCT      37000                                 
005238,000503:    4536                        ENDEXECF           EQUALS                                         

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