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 Linden Sims. 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:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

047857,000002:                                                                                                  ## Copyright:   Public domain.
047858,000003:                                                                                                  ## Filename:    EXECUTIVE.agc
047859,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
047860,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
047861,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
047862,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
047863,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
047864,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
047865,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
047866,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
047867,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
047868,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
047869,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
047870,000015:                                                                                                  ## Reference:   pp. 1094-1107
047871,000016:                                                                                                  ## Assembler:   yaYUL
047872,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047873,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047874,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
047875,000020:                                                                                                  ##              2017-08-28 MAS  Updated for Zerlina 56.
047876,000021: 

Page 1094

047878,000023:    5072                                           BLOCK    02                                    
047879,000024:                                                                                                  #           TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
047880,000025: 
047881,000026:    5072                                           COUNT*   $$/EXEC                               
047882,000027:    5072           00004        NOVAC              INHINT                                         
047883,000028:    5073           65164                           AD       FAKEPRET                              #  LOC(MPAC +6) - LOC(QPRET)
047884,000029:    5074           54063                           TS       NEWPRIO                               #  PRIORITY OF NEW JOB + NOVAC C(FIXLOC)

A blue line is drawn under the last two digits of the assembled octal for the above line.

047886,000031: 
047887,000032:    5075           00006                           EXTEND                                         
047888,000033:    5076           50002                           INDEX    Q                                     #  Q WILL BE UNDISTURBED THROUGHOUT.
047889,000034:    5077           30001                           DCA      0                                     #  2CADR OF JOB ENTERED.
047890,000035:    5100           52066                           DXCH     NEWLOC                                

A blue line is drawn under the last two digits of the assembled octal for the above line.

047892,000037:    5101           35163                           CAF      EXECBANK                              
047893,000038:    5102           56004                           XCH      FBANK                                 
047894,000039:    5103           54061                           TS       EXECTEM1                              

A blue line is drawn under the last two digits of the assembled octal for the above line.

047896,000041:    5104           12631                           TCF      NOVAC2                                #  ENTER EXECUTIVE BANK.
047897,000042: 
047898,000043:                                                                                                  #           TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
047899,000044: 
047900,000045:    5105           00004        FINDVAC            INHINT                                         
047901,000046:    5106           54063                           TS       NEWPRIO                               
047902,000047:    5107           00006                           EXTEND                                         
047903,000048:    5110           50002                           INDEX    Q                                     
047904,000049:    5111           30001                           DCA      0                                     
047905,000050:    5112           52066        SPVACIN            DXCH     NEWLOC                                
047906,000051:    5113           35163                           CAF      EXECBANK                              
047907,000052:    5114           56004                           XCH      FBANK                                 
047908,000053:    5115           12605                           TCF      FINDVAC2                              #  OFF TO EXECUTIVE SWITCHED-BANK.
047909,000054: 
047910,000055:                                                                                                  #           TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L:
047911,000056: 
047912,000057:                                                                                                  #           USERS OF SPVAC MUST INHINT BEFORE STORING IN NEWPRIO.
047913,000058: 
047914,000059:    5116           56002        SPVAC              XCH      Q                                     
047915,000060:    5117           67760                           AD       NEG2                                  
047916,000061:    5120           56002                           XCH      Q                                     
047917,000062:    5121           15112                           TCF      SPVACIN                               
047918,000063: 
047919,000064:                                                                                                  #           TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICED:
047920,000065: 
047921,000066:    5122           22002        CHANG1             LXCH     Q                                     
047922,000067:    5123           35163                           CAF      EXECBANK                              
047923,000068:    5124           56006                           XCH      BBANK                                 
047924,000069:    5125           12712                           TCF      CHANJOB                               
047925,000070: 
047926,000071:                                                                                                  #           TO SUSPEND AN INTERPRETIVE JOB:
047927,000072: 
047928,000073:    5126           40164        CHANG2             CS       LOC                                   #  NEGATIVE LOC SHOWS JOB = INTERPRETIVE.
047929,000074:                                                                                                  #           ITRACE (4) REFERS TO "CHANG2".
047930,000075:    5127           54001                           TS       L                                     

Page 1095

047932,000077:    5130           35163                 +2        CAF      EXECBANK                              
047933,000078:    5131           54006                           TS       BBANK                                 
047934,000079:    5132           12711                           TCF      CHANJOB    -1                         
047935,000080: 

Page 1096

047937,000082:                                                                                                  #           TO VOLUNTARILY SUSPEND A JOB UNTIL THE COMPLETION OF SOME ANTICIPATED EVENT (I/O EVENT ETC.):
047938,000083: 
047939,000084:    5133           54164        JOBSLEEP           TS       LOC                                   
047940,000085:    5134           35163                           CAF      EXECBANK                              
047941,000086:    5135           54004                           TS       FBANK                                 
047942,000087:    5136           13002                           TCF      JOBSLP1                               
047943,000088: 
047944,000089:                                                                                                  #           TO AWAKEN A JOB PUT TO SLEEP IN THE ABOVE FASHION:
047945,000090: 
047946,000091:    5137           00004        JOBWAKE            INHINT                                         
047947,000092:    5140           54065                           TS       NEWLOC                                
047948,000093:    5141           44752                           CS       TWO                                   #  EXIT IS VIA FINDVAC/NOVAC PROCEDURES.
047949,000094:    5142           26002                           ADS      Q                                     
047950,000095:    5143           35163                           CAF      EXECBANK                              
047951,000096:    5144           56004                           XCH      FBANK                                 
047952,000097:    5145           13027                           TCF      JOBWAKE2                              
047953,000098: 
047954,000099:                                                                                                  #           TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION:
047955,000100: 
047956,000101:    5146           00004        PRIOCHNG           INHINT                                         #  NEW PRIORITY ARRIVES IN A. RETURNS TO
047957,000102:    5147           54063                           TS       NEWPRIO                               #  CALLER AS SOON AS NEW JOB PRIORITY IS
047958,000103:    5150           35163                           CAF      EXECBANK                              #  HIGHEST. PREPARE FOR POSSIBLE BASIC-
047959,000104:    5151           56006                           XCH      BBANK                                 #  STYLE CHANGE-JOB.
047960,000105:    5152           54165                           TS       BANKSET                               
047961,000106:    5153           30002                           CA       Q                                     
047962,000107:    5154           13076                           TCF      PRIOCH2                               
047963,000108: 
047964,000109:                                                                                                  #           TO REMOVE A JOB FROM EXECUTIVE CONSIDERATIONS:
047965,000110: 
047966,000111:    5155           35163        ENDOFJOB           CAF      EXECBANK                              
047967,000112:    5156           54004                           TS       FBANK                                 
047968,000113:    5157           13107                           TCF      ENDJOB1                               
047969,000114: 
047970,000115:    5160           30061        ENDFIND            CA       EXECTEM1                              #  RETURN TO CALLER AFTER JOB ENTRY
047971,000116:    5161           54004                           TS       FBANK                                 #  COMPLETE.
047972,000117:    5162           16753                           TCF      Q+2                                   
047973,000118:    5163           02605        EXECBANK           CADR     FINDVAC2                              
047974,000119: 
047975,000120:    5164           00110        FAKEPRET           ADRES    MPAC       -36D                       #  LOC(MPAC +6) - LOC(QPRET)
047976,000121: 
047977,000122:                                                                                                  #           TO CHANGE A "FINDVAC" JOB TO A "NOVAC" -- RELEASE ITS VAC AREA:
047978,000123:    5165           30167        VACRLEAS           CA       PRIORITY                              #  CHANGE TO NOVAC VALUE
047979,000124:    5166           77737                           MASK     PRIO37                                
047980,000125:    5167           65164                           AD       FAKEPRET                              
047981,000126:    5170           56167                           XCH      PRIORITY                              
047982,000127:    5171           75004                           MASK     LOW9                                  
047983,000128:    5172           10000                           CCS      A                                     
047984,000129:    5173           50000                           INDEX    A                                     
047985,000130:    5174           54000                           TS       0                                     #  RELEASE VAC AREA
047986,000131:    5175           00002                           TC       Q                                     
047987,000132: 

Page 1097

047989,000134:                                                                                                  #           LOCATE AN AVAILABLE VAC AREA.
047990,000135: 
047991,000136: 01,2605                                           BANK     01                                    
047992,000137: 01,2605                                           COUNT*   $$/EXEC                               
047993,000138: 01,2605           54061        FINDVAC2           TS       EXECTEM1                              #  (SAVE CALLER'S BANK FIRST.)
047994,000139: 01,2606           10400                           CCS      VAC1USE                               
047995,000140: 01,2607           12624                           TCF      VACFOUND                              
047996,000141: 01,2610           10454                           CCS      VAC2USE                               
047997,000142: 01,2611           12624                           TCF      VACFOUND                              
047998,000143: 01,2612           10530                           CCS      VAC3USE                               
047999,000144: 01,2613           12624                           TCF      VACFOUND                              
048000,000145: 01,2614           10604                           CCS      VAC4USE                               
048001,000146: 01,2615           12624                           TCF      VACFOUND                              
048002,000147: 01,2616           10660                           CCS      VAC5USE                               
048003,000148: 01,2617           12624                           TCF      VACFOUND                              
048004,000149: 01,2620           22061                           LXCH     EXECTEM1                              
048005,000150: 01,2621           30002                           CA       Q                                     
048006,000151: 01,2622           05717                           TC       BAILOUT1                              
048007,000152: 01,2623           31201                           OCT      31201                                 #  NO VAC AREAS
048008,000153: 
048009,000154: 01,2624           64752        VACFOUND           AD       TWO                                   #  RESERVE THIS VAC AREA BY STORING A ZERO
048010,000155: 01,2625           22007                           ZL                                             #  IN ITS VAC USE REGISTER AND STORE THE
048011,000156: 01,2626           50000                           INDEX    A                                     #  ADDRESS OF THE FIRST WORD OF IT IN THE
048012,000157: 01,2627           21777                           LXCH     0          -1                         #  LOW NINE BITS OF THE PRIORITY WORD.
048013,000158: 01,2630           26063                           ADS      NEWPRIO                               
048014,000159: 
048015,000160: 01,2631           34755        NOVAC2             CAF      ZERO                                  #  NOVAC ENTERS HERE. FIND A CORE SET.
048016,000161: 01,2632           54064                           TS       LOCCTR                                
048017,000162: 01,2633           32640                           CAF      NO.CORES                              #  SEVEN SETS OF ELEVEN REGISTERS EACH.
048018,000163: 01,2634           54062        NOVAC3             TS       EXECTEM2                              
048019,000164: 01,2635           50064                           INDEX    LOCCTR                                
048020,000165: 01,2636           10167                           CCS      PRIORITY                              #  EACH PRIORITY REGISTER CONTAINS -0 IF
048021,000166: 01,2637           12700                           TCF      NEXTCORE                              #  THE CORRESPONDING CORE SET IS AVAILABLE.
048022,000167: 01,2640           00007        NO.CORES           DEC      7          B-14                       
048023,000168: 01,2641           12700                           TCF      NEXTCORE                              #  AN ACTIVE JOB HAS A POSITIVE PRIORITY
048024,000169:                                                                                                  #  BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
048025,000170: 

Page 1098

048027,000172: 01,2642           30063        CORFOUND           CA       NEWPRIO                               #  SET THE PRIORITY OF THIS JOB IN THE CORE
048028,000173: 01,2643           50064                           INDEX    LOCCTR                                #  SET'S PRIORITY REGISTER AND SET THE
048029,000174: 01,2644           54167                           TS       PRIORITY                              #  JOB'S PUSH-DOWN POINTER AT THE BEGINNING
048030,000175: 01,2645           75004                           MASK     LOW9                                  #  OF THE WORK AREA AND OVERFLOW INDICATOR
048031,000176: 01,2646           50064                           INDEX    LOCCTR                                
048032,000177: 01,2647           54166                           TS       PUSHLOC                               #  OFF TO PREPARE FOR INTERPRETIVE PROGRAMS
048033,000178: 
048034,000179: 01,2650           10064                           CCS      LOCCTR                                #  IF CORE SET ZERO IS BEING LOADED, SET UP
048035,000180: 01,2651           12665                           TCF      SETLOC                                #  OVFIND AND FIXLOC IMMEDIATELY .
048036,000181: 01,2652           54121                           TS       OVFIND                                
048037,000182: 01,2653           30166                           CA       PUSHLOC                               
048038,000183: 01,2654           54120                           TS       FIXLOC                                
048039,000184: 
048040,000185: 01,2655           10067        SPECTEST           CCS      NEWJOB                                #  SEE IF ANY ACTIVE JOBS WAITING (RARE).
048041,000186: 01,2656           12665                           TCF      SETLOC                                #  MUST BE AWAKENED BUT UNCHANGED JOB.
048042,000187: 01,2657           05706                           TC       CCSHOLE                               
048043,000188: 01,2660           05706                           TC       CCSHOLE                               
048044,000189: 01,2661           54067                           TS       NEWJOB                                #  +0 SHOWS ACTIVE JOB ALREADY SET.
048045,000190: 01,2662           52066                           DXCH     NEWLOC                                
048046,000191: 01,2663           52165                           DXCH     LOC                                   
048047,000192: 01,2664           15160                           TCF      ENDFIND                               
048048,000193: 
048049,000194: 01,2665           52066        SETLOC             DXCH     NEWLOC                                #  SET UP THE LOCATION REGISTERS FOR THIS
048050,000195: 01,2666           50064                           INDEX    LOCCTR                                
048051,000196: 01,2667           52165                           DXCH     LOC                                   
048052,000197: 01,2670           50067                           INDEX    NEWJOB                                #  THIS INDEX INSTRUCTION INSURES THAT THE
048053,000198: 01,2671           40167                           CS       PRIORITY                              #  HIGHEST ACTIVE PRIORITY WILL BE COMPARED
048054,000199: 01,2672           60063                           AD       NEWPRIO                               #  WITH THE NEW PRIORITY TO SEE IF NEWJOB
048055,000200: 01,2673           00006                           EXTEND                                         #  SHOULD BE SET TO SIGNAL A SWITCH.
048056,000201: 01,2674           65160                           BZMF     ENDFIND                               
048057,000202: 01,2675           30064                           CA       LOCCTR                                #  LOCCTR IS LEFT SET AT THIS CORE SET IF
048058,000203: 01,2676           54067                           TS       NEWJOB                                #  THE CALLER WANTS TO LOAD ANY MPAC
048059,000204: 01,2677           15160                           TCF      ENDFIND                               #  REGISTERS, ETC.
048060,000205: 
048061,000206: 01,2700           33037        NEXTCORE           CAF      COREINC                               
048062,000207: 01,2701           26064                           ADS      LOCCTR                                
048063,000208: 01,2702           10062                           CCS      EXECTEM2                              
048064,000209: 01,2703           12634                           TCF      NOVAC3                                
048065,000210: 01,2704           22061                           LXCH     EXECTEM1                              
048066,000211: 01,2705           30002                           CA       Q                                     
048067,000212: 01,2706           05717                           TC       BAILOUT1                              #  NO CORE SETS AVAILABLE.
048068,000213: 01,2707           31202                           OCT      31202                                 

Page 1099

048070,000215:                                                                                                  #           THE FOLLOWING ROUTINE SWAPS CORE SET 0 WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB.
048071,000216: 
048072,000217: 01,2710           22164                 -2        LXCH     LOC                                   
048073,000218: 01,2711           30165                 -1        CAE      BANKSET                               #  BANKSET, NOT BBANK, HAS RIGHT CONTENTS.
048074,000219: 01,2712           00004        CHANJOB            INHINT                                         
048075,000220: 01,2713           00006                           EXTEND                                         

The following instruction is underlined in blue.

048077,000222: 01,2714           04007                           ROR      SUPERBNK                              #  PICK UP CURRENT SBANK FOR BBCON
048078,000223: 01,2715           56001                           XCH      L                                     #  LOC IN A AND BBCON IN L.
048079,000224: 01,2716           50067                 +4        INDEX    NEWJOB                                #  SWAP LOC AND BANKSET.
048080,000225: 01,2717           52165                           DXCH     LOC                                   

The following instruction is underlined in blue.

048082,000227: 01,2720           52165                           DXCH     LOC                                   
048083,000228: 
048084,000229: 01,2721           30165                           CAE      BANKSET                               
048085,000230: 01,2722           00006                           EXTEND                                         

The following instruction is underlined in blue.

048087,000232: 01,2723           01007                           WRITE    SUPERBNK                              #  SET SBANK FOR NEW JOB.
048088,000233: 01,2724           52155                           DXCH     MPAC                                  #  SWAP MULTI-PURPOSE ACCUMULATOR AREAS.
048089,000234: 01,2725           50067                           INDEX    NEWJOB                                
048090,000235: 01,2726           52155                           DXCH     MPAC                                  

The following instruction is underlined in blue.

048092,000237: 01,2727           52155                           DXCH     MPAC                                  
048093,000238: 01,2730           52157                           DXCH     MPAC       +2                         
048094,000239: 01,2731           50067                           INDEX    NEWJOB                                
048095,000240: 01,2732           52157                           DXCH     MPAC       +2                         

The following two instructions are underlined in blue.

048097,000242: 01,2733           52157                           DXCH     MPAC       +2                         
048098,000243: 01,2734           52161                           DXCH     MPAC       +4                         
048099,000244: 01,2735           50067                           INDEX    NEWJOB                                
048100,000245: 01,2736           52161                           DXCH     MPAC       +4                         

The following instruction is underlined in blue.

048102,000247: 01,2737           52161                           DXCH     MPAC       +4                         
048103,000248: 01,2740           52163                           DXCH     MPAC       +6                         
048104,000249: 01,2741           50067                           INDEX    NEWJOB                                
048105,000250: 01,2742           52163                           DXCH     MPAC       +6                         

The following instruction is underlined in blue.

048107,000252: 01,2743           52163                           DXCH     MPAC       +6                         
048108,000253: 
048109,000254: 01,2744           34755                           CAF      ZERO                                  
048110,000255: 01,2745           56121                           XCH      OVFIND                                #  MAKE PUSHLOC NEGATIVE IF OVFIND NZ.
048111,000256: 01,2746           00006                           EXTEND                                         
048112,000257: 01,2747           12752                           BZF      +3                                    
048113,000258: 01,2750           40166                           CS       PUSHLOC                               
048114,000259: 01,2751           54166                           TS       PUSHLOC                               
048115,000260: 
048116,000261: 01,2752           52167                           DXCH     PUSHLOC                               
048117,000262: 01,2753           50067                           INDEX    NEWJOB                                
048118,000263: 01,2754           52167                           DXCH     PUSHLOC                               

The following instruction is underlined in blue.

048120,000265: 01,2755           52167                           DXCH     PUSHLOC                               #  SWAPS PUSHLOC AND PRIORITY.
048121,000266: 01,2756           35004                           CAF      LOW9                                  #  SET FIXLOC TO BASE OF VAC AREA.
048122,000267: 01,2757           70167                           MASK     PRIORITY                              
048123,000268: 01,2760           54120                           TS       FIXLOC                                
048124,000269: 
048125,000270: 01,2761           10166                           CCS      PUSHLOC                               #  SET OVERFLOW INDICATOR ACCORDING TO
048126,000271: 01,2762           34755                           CAF      ZERO                                  
048127,000272: 01,2763           12770                           TCF      ENDPRCHG   -1                         
048128,000273: 

Page 1100

048130,000275: 01,2764           40166                           CS       PUSHLOC                               
048131,000276: 01,2765           54166                           TS       PUSHLOC                               
048132,000277: 01,2766           34753                           CAF      ONE                                   
048133,000278: 01,2767           56121                           XCH      OVFIND                                
048134,000279: 01,2770           54067                           TS       NEWJOB                                
048135,000280: 
048136,000281: 01,2771           00003        ENDPRCHG           RELINT                                         
048137,000282: 01,2772           52165                           DXCH     LOC                                   #  BASIC JOBS HAVE POSITIVE ADDRESSES, SO
048138,000283: 01,2773           00006                           EXTEND                                         #  DISPATCH WITH A DTCB.
048139,000284: 01,2774           62776                           BZMF     +2                                    #  IF INTERPRETIVE, SET UP EBANK, ETC.
048140,000285: 01,2775           52006                           DTCB                                           
048141,000286: 

Page 1101

048143,000288: 01,2776           40000                           COM                                            #  EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
048144,000289: 01,2777           64753                           AD       ONE                                   
048145,000290: 01,3000           54164                           TS       LOC                                   #  RESUME.
048146,000291: 01,3001           16062                           TCF      INTRSM                                
048147,000292: 
048148,000293:                                                                                                  #           COMPLETE JOBSLEEP PREPARATIONS.
048149,000294: 
048150,000295: 01,3002           00004        JOBSLP1            INHINT                                         
048151,000296: 01,3003           40167                           CS       PRIORITY                              #  NNZ PRIORITY SHOWS JOB ASLEEP.
048152,000297: 01,3004           54167                           TS       PRIORITY                              
048153,000298: 01,3005           36106                           CAF      LOW7                                  
048154,000299: 01,3006           70006                           MASK     BBANK                                 
048155,000300: 01,3007           00006                           EXTEND                                         
048156,000301: 01,3010           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBANK VALUE.
048157,000302: 01,3011           54165                           TS       BANKSET                               
048158,000303: 01,3012           44755                           CS       ZERO                                  
048159,000304: 01,3013           54131        JOBSLP2            TS       BUF        +1                         #  HOLDS - HIGHEST PRIORITY.
048160,000305: 01,3014           13124                           TCF      EJSCAN                                #  SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
048161,000306: 
048162,000307: 01,3015           00004        NUCHANG2           INHINT                                         #  QUICK... DONT LET NEWJOB CHANGE TO +0 .
048163,000308: 01,3016           10067                           CCS      NEWJOB                                
048164,000309: 01,3017           13022                           TCF      +3                                    #  NEWJOB STILL PNZ
048165,000310: 01,3020           00003                           RELINT                                         #  NEWJOB HAS CHANGED TO +0. WAKE UP JOB
048166,000311: 01,3021           13220                           TCF      ADVAN      +2                         #  VIA NUDIRECT. (VERY RARE CASE.)
048167,000312: 
048168,000313: 01,3022           34752                           CAF      TWO                                   
048169,000314: 01,3023           00006                           EXTEND                                         
048170,000315: 01,3024           05011                           WOR      DSALMOUT                              #  TURN ON ACTIVITY LIGHT
048171,000316: 01,3025           52165                           DXCH     LOC                                   #  AND SAVE ADDRESS INFO FOR BENEFIT OF
048172,000317: 01,3026           12716                           TCF      CHANJOB    +4                         #   POSSIBLE SLEEPING JOB.
048173,000318: 

Page 1102

048175,000320:                                                                                                  #           TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE
048176,000321:                                                                                                  #  LOC REGISTER OF ANY SUCH JOB MATCHES THAT SUPPLIED BY THE CALLER, THAT JOB IS AWAKENED. IF NO JOB IS FOUND,
048177,000322:                                                                                                  #  LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
048178,000323: 
048179,000324: 01,3027           54061        JOBWAKE2           TS       EXECTEM1                              
048180,000325: 01,3030           34755                           CAF      ZERO                                  #  BEGIN CORE SET SCAN.
048181,000326: 01,3031           54064                           TS       LOCCTR                                
048182,000327: 01,3032           32640                           CAF      NO.CORES                              
048183,000328: 01,3033           54062        JOBWAKE4           TS       EXECTEM2                              
048184,000329: 01,3034           50064                           INDEX    LOCCTR                                
048185,000330: 01,3035           10167                           CCS      PRIORITY                              
048186,000331: 01,3036           13041                           TCF      JOBWAKE3                              #  ACTIVE JOB - CHECK NEXT CORE SET.
048187,000332: 01,3037           00014        COREINC            DEC      12         B-14                       #  12 REGISTERS PER CORE SET.
048188,000333: 01,3040           13050                           TCF      WAKETEST                              #  SLEEPING JOB - SEE IF CADR MATCHES.
048189,000334: 
048190,000335: 01,3041           33037        JOBWAKE3           CAF      COREINC                               
048191,000336: 01,3042           26064                           ADS      LOCCTR                                
048192,000337: 01,3043           10062                           CCS      EXECTEM2                              
048193,000338: 01,3044           13033                           TCF      JOBWAKE4                              
048194,000339: 01,3045           44753                           CS       ONE                                   #  EXIT IF SLEEPING JOB NOT FOUND.
048195,000340: 01,3046           54064                           TS       LOCCTR                                
048196,000341: 01,3047           15160                           TCF      ENDFIND                               
048197,000342: 
048198,000343: 01,3050           40065        WAKETEST           CS       NEWLOC                                
048199,000344: 01,3051           50064                           INDEX    LOCCTR                                
048200,000345: 01,3052           60164                           AD       LOC                                   
048201,000346: 01,3053           00006                           EXTEND                                         
048202,000347: 01,3054           13056                           BZF      +2                                    #  IF MATCH.
048203,000348: 01,3055           13041                           TCF      JOBWAKE3                              #  EXAMINE NEXT CORE SET IF NO MATCH.
048204,000349: 
048205,000350: 01,3056           50064                           INDEX    LOCCTR                                #  RE-COMPLEMENT PRIORITY TO SHOW JOB AWAKE
048206,000351: 01,3057           40167                           CS       PRIORITY                              
048207,000352: 01,3060           54063                           TS       NEWPRIO                               
048208,000353: 01,3061           50064                           INDEX    LOCCTR                                
048209,000354: 01,3062           54167                           TS       PRIORITY                              
048210,000355: 
048211,000356: 01,3063           44350                           CS       FBANKMSK                              #  MAKE UP THE 2CADR OF THE WAKE ADDRESS
048212,000357: 01,3064           70065                           MASK     NEWLOC                                #  USING THE CADR IN NEWLOC AND THE EBANK
048213,000358: 01,3065           64741                           AD       2K                                    #  HALF OF BBANK SAVED IN BANKSET.
048214,000359: 01,3066           56065                           XCH      NEWLOC                                
048215,000360: 01,3067           74350                           MASK     FBANKMSK                              
048216,000361: 01,3070           50064                           INDEX    LOCCTR                                
048217,000362: 01,3071           60165                           AD       BANKSET                               
048218,000363: 01,3072           54066                           TS       NEWLOC     +1                         
048219,000364: 
048220,000365: 01,3073           10064                           CCS      LOCCTR                                #  SPECIAL TREATMENT IF THIS JOB WAS
048221,000366: 01,3074           12665                           TCF      SETLOC                                #  ALREADY IN THE RUN (0) POSITION.
048222,000367: 01,3075           12655                           TCF      SPECTEST                              
048223,000368: 

Page 1103

048225,000370:                                                                                                  #           PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY.
048226,000371: 
048227,000372: 01,3076           54164        PRIOCH2            TS       LOC                                   
048228,000373: 01,3077           34755                           CAF      ZERO                                  #  SET FLAG TO TELL ENDJOB SCANNER IF THIS
048229,000374: 01,3100           54130                           TS       BUF                                   #  JOB IS STILL HIGHEST PRIORITY.
048230,000375: 01,3101           35004                           CAF      LOW9                                  
048231,000376: 01,3102           70167                           MASK     PRIORITY                              
048232,000377: 01,3103           60063                           AD       NEWPRIO                               
048233,000378: 01,3104           54167                           TS       PRIORITY                              
048234,000379: 01,3105           40000                           COM                                            
048235,000380: 01,3106           13013                           TCF      JOBSLP2                               #  AND TO EJSCAN.
048236,000381: 

Page 1104

048238,000383:                                                                                                  #           RELEASE THIS CORE SET AND VAC AREA AND SCAN FOR THE JOB OF HIGHEST ACTIVE PRIORITY.
048239,000384: 
048240,000385: 01,3107           00004        ENDJOB1            INHINT                                         
048241,000386: 01,3110           44755                           CS       ZERO                                  
048242,000387: 01,3111           54131                           TS       BUF        +1                         
048243,000388: 01,3112           56167                           XCH      PRIORITY                              
048244,000389: 01,3113           75004                           MASK     LOW9                                  
048245,000390: 01,3114           54001                           TS       L                                     
048246,000391: 
048247,000392: 01,3115           45164                           CS       FAKEPRET                              
048248,000393: 01,3116           60001                           AD       L                                     
048249,000394: 
048250,000395: 01,3117           00006                           EXTEND                                         
048251,000396: 01,3120           63124                           BZMF     EJSCAN                                #  NOVAC ENDOFJOB
048252,000397: 
048253,000398: 01,3121           10001                           CCS      L                                     
048254,000399: 01,3122           50000                           INDEX    A                                     
048255,000400: 01,3123           54000                           TS       0                                     
048256,000401: 
048257,000402: 01,3124           10203        EJSCAN             CCS      PRIORITY   +12D                       
048258,000403: 01,3125           03175                           TC       EJ1                                   
048259,000404: 01,3126           05706                           TC       CCSHOLE                               
048260,000405: 01,3127           13130                           TCF      +1                                    
048261,000406: 
048262,000407: 01,3130           10217                           CCS      PRIORITY   +24D                       #  EXAMINE EACH PRIORITY REGISTER TO FIND
048263,000408: 01,3131           03175                           TC       EJ1                                   #  THE JOB OF HIGHEST ACTIVE PRIORITY.
048264,000409: 01,3132           05706                           TC       CCSHOLE                               
048265,000410: 01,3133           13134                           TCF      +1                                    
048266,000411: 
048267,000412: 01,3134           10233                           CCS      PRIORITY   +36D                       
048268,000413: 01,3135           03175                           TC       EJ1                                   
048269,000414: 01,3136           67610        -CCSPR             -CCS     PRIORITY                              
048270,000415: 01,3137           13140                           TCF      +1                                    
048271,000416: 
048272,000417: 01,3140           10247                           CCS      PRIORITY   +48D                       
048273,000418: 01,3141           03175                           TC       EJ1                                   
048274,000419: 01,3142           05706                           TC       CCSHOLE                               
048275,000420: 01,3143           13144                           TCF      +1                                    
048276,000421: 
048277,000422: 01,3144           10263                           CCS      PRIORITY   +60D                       
048278,000423: 01,3145           03175                           TC       EJ1                                   
048279,000424: 01,3146           05706                           TC       CCSHOLE                               
048280,000425: 01,3147           13150                           TCF      +1                                    
048281,000426: 
048282,000427: 01,3150           10277                           CCS      PRIORITY   +72D                       
048283,000428: 01,3151           03175                           TC       EJ1                                   
048284,000429: 01,3152           05706                           TC       CCSHOLE                               
048285,000430: 01,3153           13154                           TCF      +1                                    
048286,000431: 
048287,000432: 01,3154           10313                           CCS      PRIORITY   +84D                       

Page 1105

048289,000434: 01,3155           03175                           TC       EJ1                                   
048290,000435: 01,3156           05706                           TC       CCSHOLE                               
048291,000436: 01,3157           13160                           TCF      +1                                    
048292,000437: 

Page 1106

048294,000439:                                                                                                  #           EVALUATE THE RESULTS OF THE SCAN.
048295,000440: 
048296,000441: 01,3160           10131                           CCS      BUF        +1                         #  SEE IF THERE ARE ANY ACTIVE JOBS WAITING
048297,000442: 01,3161           05706                           TC       CCSHOLE                               
048298,000443: 01,3162           05706                           TC       CCSHOLE                               
048299,000444: 
048300,000445: 01,3163           13165                           TCF      +2                                    
048301,000446: 01,3164           13210                           TCF      DUMMYJOB                              
048302,000447: 01,3165           10130                           CCS      BUF                                   #  BUF IS ZERO IF THIS IS A PRIOCHNG AND
048303,000448: 01,3166           13170                           TCF      +2                                    #  CHANGED PRIORITY IS STILL HIGHEST.
048304,000449: 01,3167           12770                           TCF      ENDPRCHG   -1                         
048305,000450: 
048306,000451: 01,3170           50000                           INDEX    A                                     #  OTHERWISE, SET NEWJOB TO THE RELATIVE
048307,000452: 01,3171           27777                           CAF      0          -1                         #  ADDRESS OF THE NEW JOB'S CORE SET.
048308,000453: 01,3172           63136                           AD       -CCSPR                                
048309,000454: 01,3173           54067                           TS       NEWJOB                                
048310,000455: 01,3174           12710                           TCF      CHANJOB    -2                         
048311,000456: 
048312,000457: 01,3175           54132        EJ1                TS       BUF        +2                         
048313,000458: 01,3176           60131                           AD       BUF        +1                         #  - OLD HIGH PRIORITY.
048314,000459: 01,3177           10000                           CCS      A                                     
048315,000460: 01,3200           40132                           CS       BUF        +2                         
048316,000461: 01,3201           13204                           TCF      EJ2                                   #  NEW HIGH PRIORITY.
048317,000462: 01,3202           13203                           NOOP                                           
048318,000463: 01,3203           16753                           TCF      Q+2                                   
048319,000464: 
048320,000465: 01,3204           54131        EJ2                TS       BUF        +1                         
048321,000466: 01,3205           30002                           CA       Q                                     
048322,000467: 01,3206           54130                           TS       BUF                                   
048323,000468: 01,3207           16753                           TCF      Q+2                                   
048324,000469: 

Page 1107

048326,000471:                                                                                                  #           IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF,
048327,000472:                                                                                                  #  BUT RATHER A SUBROUTINE OF THE EXECUTIVE.
048328,000473: 
048329,000474: 01,3210     1361                                  EBANK=   SELFRET                               #  SELF-CHECK STORAGE IN EBANK.
048330,000475: 
048331,000476: 01,3210           44755        DUMMYJOB           CS       ZERO                                  #  SET NEWJOB TO -0 FOR IDLING.
048332,000477: 01,3211           54067                           TS       NEWJOB                                
048333,000478: 01,3212           00003                           RELINT                                         
048334,000479: 01,3213           44752                           CS       TWO                                   #  TURN OFF THE ACTIVITY LIGHT.
048335,000480: 01,3214           00006                           EXTEND                                         
048336,000481: 01,3215           03011                           WAND     DSALMOUT                              
048337,000482: 01,3216           10067        ADVAN              CCS      NEWJOB                                #  IS A NEWJOB ACTIVE ?
048338,000483: 01,3217           13015                           TCF      NUCHANG2                              #  YES... ONE REQUIRING A CHANGE JOB.
048339,000484: 01,3220           34752                           CAF      TWO                                   #  NEW JOB ALREADY IN POSITION FOR
048340,000485: 01,3221           13230                           TCF      NUDIRECT                              #  EXECUTION.
048341,000486: 
048342,000487: 01,3222           25356                           INCR     DUMLOOPS                              #  COUNT DUMMYJOB LOOPS FOR DOWNLINK
048343,000488: 
048344,000489: 01,3223           31361                           CA       SELFRET                               
048345,000490: 01,3224           54001                           TS       L                                     #  PUT RETURN ADDRESS IN L.
048346,000491: 01,3225           33227                           CAF      SELFBANK                              
048347,000492: 01,3226           15177                           TCF      SUPDXCHZ   +1                         #   AND DISPATCH JOB.
048348,000493: 
048349,000494: 01,3227     1361                                  EBANK=   SELFRET                               
048350,000495: 01,3227           66102        SELFBANK           BBCON    SELFCHK                               
048351,000496: 
048352,000497: 01,3230           00006        NUDIRECT           EXTEND                                         #  TURN THE GREEN LIGHT BACK ON.
048353,000498: 01,3231           05011                           WOR      DSALMOUT                              
048354,000499: 01,3232           52165                           DXCH     LOC                                   #  JOBS STARTED IN THIS FASHION MUST BE
048355,000500: 01,3233           15176                           TCF      SUPDXCHZ                              
048356,000501: 
048357,000502:    5176                                           BLOCK    2                                     #  IN FIXED-FIXED SO OTHERS MAY USE.
048358,000503: 
048359,000504:    5176                                           COUNT*   $$/EXEC                               
048360,000505:                                                                                                  #  SUPDXCHZ - ROUTINE TO TRANSFER TO SUPERBANK.
048361,000506:                                                                                                  #  CALLING SEQUENCE
048362,000507:                                                                                                  #                                                 TCF     SUPDXCHZ         WITH 2CADR OF DESIRED LOCATION IN A + L.
048363,000508: 
048364,000509:    5176           56001        SUPDXCHZ           XCH      L                                     #  BASIC.
048365,000510:    5177           00006                 +1        EXTEND                                         
048366,000511:    5200           01007                           WRITE    SUPERBNK                              
048367,000512:    5201           54006                           TS       BBANK                                 
048368,000513:    5202           00001                           TC       L                                     
048369,000514: 
048370,000515:    5203           77677        NEG100             OCT      77677                                 

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