Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

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

047623,000002:                                                                                                  ## Copyright:   Public domain.
047624,000003:                                                                                                  ## Filename:    EXECUTIVE.agc
047625,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
047626,000005:                                                                                                  ##              It is part of the source code for the original release
047627,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
047628,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
047629,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
047630,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
047631,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
047632,000011:                                                                                                  ##              that the code format has been changed to conform to the
047633,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
047634,000013:                                                                                                  ##              original YUL assembler.
047635,000014:                                                                                                  ## Reference:   pp. 1098-1111
047636,000015:                                                                                                  ## Assembler:   yaYUL
047637,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047638,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047639,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
047640,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
047641,000020:                                                                                                  ##              2017-01-22 HG   Transcribed
047642,000021:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
047643,000022:                                                                                                  ##                              but no errors found.
047644,000023: 

Page 1098

047646,000025:    5072                                           BLOCK    02                                    
047647,000026:                                                                                                  #           TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
047648,000027: 
047649,000028:    5072                                           COUNT*   $$/EXEC                               
047650,000029:    5072           00004        NOVAC              INHINT                                         
047651,000030:    5073           65164                           AD       FAKEPRET                              #  LOC(MPAC +6) - LOC(QPRET)
047652,000031:    5074           54063                           TS       NEWPRIO                               #  PRIORITY OF NEW JOB + NOVAC C(FIXLOC)
047653,000032: 
047654,000033:    5075           00006                           EXTEND                                         
047655,000034:    5076           50002                           INDEX    Q                                     #  Q WILL BE UNDISTURBED THROUGHOUT.
047656,000035:    5077           30001                           DCA      0                                     #  2CADR OF JOB ENTERED.
047657,000036:    5100           52066                           DXCH     NEWLOC                                
047658,000037:    5101           35163                           CAF      EXECBANK                              
047659,000038:    5102           56004                           XCH      FBANK                                 
047660,000039:    5103           54061                           TS       EXECTEM1                              
047661,000040:    5104           12622                           TCF      NOVAC2                                #  ENTER EXECUTIVE BANK.
047662,000041: 
047663,000042:                                                                                                  #           TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
047664,000043: 
047665,000044:    5105           00004        FINDVAC            INHINT                                         
047666,000045:    5106           54063                           TS       NEWPRIO                               
047667,000046:    5107           00006                           EXTEND                                         
047668,000047:    5110           50002                           INDEX    Q                                     
047669,000048:    5111           30001                           DCA      0                                     
047670,000049:    5112           52066        SPVACIN            DXCH     NEWLOC                                
047671,000050:    5113           35163                           CAF      EXECBANK                              
047672,000051:    5114           56004                           XCH      FBANK                                 
047673,000052:    5115           12576                           TCF      FINDVAC2                              #  OFF TO EXECUTIVE SWITCHED-BANK.
047674,000053: 
047675,000054:                                                                                                  #           TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L:
047676,000055: 
047677,000056:                                                                                                  #           USERS OF SPVAC MUST INHINT BEFORE STORING IN NEWPRIO.
047678,000057: 
047679,000058:    5116           56002        SPVAC              XCH      Q                                     
047680,000059:    5117           67745                           AD       NEG2                                  
047681,000060:    5120           56002                           XCH      Q                                     
047682,000061:    5121           15112                           TCF      SPVACIN                               
047683,000062: 
047684,000063:                                                                                                  #           TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICED:
047685,000064: 
047686,000065:    5122           22002        CHANG1             LXCH     Q                                     
047687,000066:    5123           35163                           CAF      EXECBANK                              
047688,000067:    5124           56006                           XCH      BBANK                                 
047689,000068:    5125           12703                           TCF      CHANJOB                               
047690,000069: 
047691,000070:                                                                                                  #           TO SUSPEND AN INTERPRETIVE JOB:
047692,000071: 
047693,000072:    5126           40164        CHANG2             CS       LOC                                   #  NEGATIVE LOC SHOWS JOB = INTERPRETIVE.
047694,000073:                                                                                                  #           ITRACE (4) REFERS TO "CHANG2".
047695,000074:    5127           54001                           TS       L                                     
047696,000075: 

Page 1099

047698,000077:    5130           35163                 +2        CAF      EXECBANK                              
047699,000078:    5131           54006                           TS       BBANK                                 
047700,000079:    5132           12702                           TCF      CHANJOB    -1                         
047701,000080: 

Page 1100

047703,000082:                                                                                                  #           TO VOLUNTARILY SUSPEND A JOB UNTIL THE COMPLETION OF SOME ANTICIPATED EVENT (I/O EVENT ETC.):
047704,000083: 
047705,000084:    5133           54164        JOBSLEEP           TS       LOC                                   
047706,000085:    5134           35163                           CAF      EXECBANK                              
047707,000086:    5135           54004                           TS       FBANK                                 
047708,000087:    5136           12773                           TCF      JOBSLP1                               
047709,000088: 
047710,000089:                                                                                                  #           TO AWAKEN A JOB PUT TO SLEEP IN THE ABOVE FASHION:
047711,000090: 
047712,000091:    5137           00004        JOBWAKE            INHINT                                         
047713,000092:    5140           54065                           TS       NEWLOC                                
047714,000093:    5141           44752                           CS       TWO                                   #  EXIT IS VIA FINDVAC/NOVAC PROCEDURES.
047715,000094:    5142           26002                           ADS      Q                                     
047716,000095:    5143           35163                           CAF      EXECBANK                              
047717,000096:    5144           56004                           XCH      FBANK                                 
047718,000097:    5145           13020                           TCF      JOBWAKE2                              
047719,000098: 
047720,000099:                                                                                                  #           TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION:
047721,000100: 
047722,000101:    5146           00004        PRIOCHNG           INHINT                                         #  NEW PRIORITY ARRIVES IN A. RETURNS TO
047723,000102:    5147           54063                           TS       NEWPRIO                               #  CALLER AS SOON AS NEW JOB PRIORITY IS
047724,000103:    5150           35163                           CAF      EXECBANK                              #  HIGHEST.  PREPARE FOR POSSIBLE BASIC-
047725,000104:    5151           56006                           XCH      BBANK                                 #  STYLE CHANGE-JOB.
047726,000105:    5152           54165                           TS       BANKSET                               
047727,000106:    5153           30002                           CA       Q                                     
047728,000107:    5154           13067                           TCF      PRIOCH2                               
047729,000108: 
047730,000109:                                                                                                  #           TO REMOVE A JOB FROM EXECUTIVE CONSIDERATIONS:
047731,000110: 
047732,000111:    5155           35163        ENDOFJOB           CAF      EXECBANK                              
047733,000112:    5156           54004                           TS       FBANK                                 
047734,000113:    5157           13100                           TCF      ENDJOB1                               
047735,000114: 
047736,000115:    5160           30061        ENDFIND            CA       EXECTEM1                              #  RETURN TO CALLER AFTER JOB ENTRY
047737,000116:    5161           54004                           TS       FBANK                                 #  COMPLETE.
047738,000117:    5162           16740                           TCF      Q+2                                   
047739,000118:    5163           02576        EXECBANK           CADR     FINDVAC2                              
047740,000119: 
047741,000120:    5164           00110        FAKEPRET           ADRES    MPAC       -36D                       #  LOC(MPAC +6) - LOC(QPRET)
047742,000121: 

Page 1101

047744,000123:                                                                                                  #           LOCATE AN AVAILABLE VAC AREA.
047745,000124: 
047746,000125: 01,2576                                           BANK     01                                    
047747,000126: 01,2576                                           COUNT*   $$/EXEC                               
047748,000127: 01,2576           54061        FINDVAC2           TS       EXECTEM1                              #  (SAVE CALLER'S BANK FIRST.)
047749,000128: 01,2577           10400                           CCS      VAC1USE                               
047750,000129: 01,2600           12615                           TCF      VACFOUND                              
047751,000130: 01,2601           10454                           CCS      VAC2USE                               
047752,000131: 01,2602           12615                           TCF      VACFOUND                              
047753,000132: 01,2603           10530                           CCS      VAC3USE                               
047754,000133: 01,2604           12615                           TCF      VACFOUND                              
047755,000134: 01,2605           10604                           CCS      VAC4USE                               
047756,000135: 01,2606           12615                           TCF      VACFOUND                              
047757,000136: 01,2607           10660                           CCS      VAC5USE                               
047758,000137: 01,2610           12615                           TCF      VACFOUND                              
047759,000138: 01,2611           22061                           LXCH     EXECTEM1                              
047760,000139: 01,2612           30002                           CA       Q                                     
047761,000140: 01,2613           05710                           TC       BAILOUT1                              
047762,000141: 01,2614           01201                           OCT      1201                                  #  NO VAC AREAS.
047763,000142: 
047764,000143: 01,2615           64752        VACFOUND           AD       TWO                                   #  RESERVE THIS VAC AREA BY STORING A ZERO
047765,000144: 01,2616           22007                           ZL                                             #  IN ITS VAC USE REGISTER AND STORE THE
047766,000145: 01,2617           50000                           INDEX    A                                     #  ADDRESS OF THE FIRST WORD OF IT IN THE
047767,000146: 01,2620           21777                           LXCH     0          -1                         #  LOW NINE BITS OF THE PRIORITY WORD.
047768,000147: 01,2621           26063                           ADS      NEWPRIO                               
047769,000148: 
047770,000149: 01,2622           34755        NOVAC2             CAF      ZERO                                  #  NOVAC ENTERS HERE. FIND A CORE SET.
047771,000150: 01,2623           54064                           TS       LOCCTR                                
047772,000151: 01,2624           32631                           CAF      NO.CORES                              #  SEVEN SETS OF ELEVEN REGISTERS EACH.
047773,000152: 01,2625           54062        NOVAC3             TS       EXECTEM2                              
047774,000153: 01,2626           50064                           INDEX    LOCCTR                                
047775,000154: 01,2627           10167                           CCS      PRIORITY                              #  EACH PRIORITY REGISTER CONTAINS -0 IF
047776,000155: 01,2630           12671                           TCF      NEXTCORE                              #  THE CORRESPONDING CORE SET IS AVAILABLE.
047777,000156: 01,2631           00007        NO.CORES           DEC      7          B-14                       
047778,000157: 01,2632           12671                           TCF      NEXTCORE                              #  AN ACTIVE JOB HAS A POSITIVE PRIORITY
047779,000158:                                                                                                  #  BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
047780,000159: 

Page 1102

047782,000161: 01,2633           30063        CORFOUND           CA       NEWPRIO                               #  SET THE PRIORITY OF THIS JOB IN THE CORE
047783,000162: 01,2634           50064                           INDEX    LOCCTR                                #  SET'S PRIORITY REGISTER AND SET THE
047784,000163: 01,2635           54167                           TS       PRIORITY                              #  JOB'S PUSH-DOWN POINTER AT THE BEGINNING
047785,000164: 01,2636           75004                           MASK     LOW9                                  #  OF THE WORK AREA AND OVERFLOW INDICATOR
047786,000165: 01,2637           50064                           INDEX    LOCCTR                                
047787,000166: 01,2640           54166                           TS       PUSHLOC                               #  OFF TO PREPARE FOR INTERPRETIVE PROGRAMS
047788,000167: 
047789,000168: 01,2641           10064                           CCS      LOCCTR                                #  IF CORE SET ZERO IS BEING LOADED, SET UP
047790,000169: 01,2642           12656                           TCF      SETLOC                                #  OVFIND AND FIXLOC IMMEDIATELY.
047791,000170: 01,2643           54121                           TS       OVFIND                                
047792,000171: 01,2644           30166                           CA       PUSHLOC                               
047793,000172: 01,2645           54120                           TS       FIXLOC                                
047794,000173: 
047795,000174: 01,2646           10067        SPECTEST           CCS      NEWJOB                                #  SEE IF ANY ACTIVE JOBS WAITING (RARE).
047796,000175: 01,2647           12656                           TCF      SETLOC                                #  MUST BE AWAKENED BUT UNCHANGED JOB.
047797,000176: 01,2650           05677                           TC       CCSHOLE                               
047798,000177: 01,2651           05677                           TC       CCSHOLE                               
047799,000178: 01,2652           54067                           TS       NEWJOB                                #  +0 SHOWS ACTIVE JOB ALREADY SET.
047800,000179: 01,2653           52066                           DXCH     NEWLOC                                
047801,000180: 01,2654           52165                           DXCH     LOC                                   
047802,000181: 01,2655           15160                           TCF      ENDFIND                               
047803,000182: 
047804,000183: 01,2656           52066        SETLOC             DXCH     NEWLOC                                #  SET UP THE LOCATION REGISTERS FOR THIS
047805,000184: 01,2657           50064                           INDEX    LOCCTR                                
047806,000185: 01,2660           52165                           DXCH     LOC                                   
047807,000186: 01,2661           50067                           INDEX    NEWJOB                                #  THIS INDEX INSTRUCTION INSURES THAT THE
047808,000187: 01,2662           40167                           CS       PRIORITY                              #  HIGHEST ACTIVE PRIORITY WILL BE COMPARED
047809,000188: 01,2663           60063                           AD       NEWPRIO                               #  WITH THE NEW PRIORITY TO SEE IF NEWJOB
047810,000189: 01,2664           00006                           EXTEND                                         #  SHOULD BE SET TO SIGNAL A SWITCH.
047811,000190: 01,2665           65160                           BZMF     ENDFIND                               
047812,000191: 01,2666           30064                           CA       LOCCTR                                #  LOCCTR IS LEFT SET AT THIS CORE SET IF
047813,000192: 01,2667           54067                           TS       NEWJOB                                #  THE CALLER WANTS TO LOAD ANY MPAC
047814,000193: 01,2670           15160                           TCF      ENDFIND                               #  REGISTERS, ETC.
047815,000194: 
047816,000195: 01,2671           33030        NEXTCORE           CAF      COREINC                               
047817,000196: 01,2672           26064                           ADS      LOCCTR                                
047818,000197: 01,2673           10062                           CCS      EXECTEM2                              
047819,000198: 01,2674           12625                           TCF      NOVAC3                                
047820,000199: 01,2675           22061                           LXCH     EXECTEM1                              
047821,000200: 01,2676           30002                           CA       Q                                     
047822,000201: 01,2677           05710                           TC       BAILOUT1                              #  NO CORE SETS AVAILABLE.
047823,000202: 01,2700           01202                           OCT      1202                                  
047824,000203: 

Page 1103

047826,000205:                                                                                                  #           THE FOLLOWING ROUTINE SWAPS CORE SET 0 WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB.
047827,000206: 
047828,000207: 01,2701           22164                 -2        LXCH     LOC                                   
047829,000208: 01,2702           30165                 -1        CAE      BANKSET                               #  BANKSET, NOT BBANK, HAS RIGHT CONTENTS.
047830,000209: 01,2703           00004        CHANJOB            INHINT                                         
047831,000210: 01,2704           00006                           EXTEND                                         
047832,000211: 01,2705           04007                           ROR      SUPERBNK                              #  PICK UP CURRENT SBANK FOR BBCON
047833,000212: 01,2706           56001                           XCH      L                                     #  LOC IN A AND BBCON IN L.
047834,000213: 01,2707           50067                 +4        INDEX    NEWJOB                                #  SWAP LOC AND BANKSET.
047835,000214: 01,2710           52165                           DXCH     LOC                                   
047836,000215: 01,2711           52165                           DXCH     LOC                                   
047837,000216: 
047838,000217: 01,2712           30165                           CAE      BANKSET                               
047839,000218: 01,2713           00006                           EXTEND                                         
047840,000219: 01,2714           01007                           WRITE    SUPERBNK                              #  SET SBANK FOR NEW JOB.
047841,000220: 01,2715           52155                           DXCH     MPAC                                  #  SWAP MULTI-PURPOSE ACCUMULATOR AREAS.
047842,000221: 01,2716           50067                           INDEX    NEWJOB                                
047843,000222: 01,2717           52155                           DXCH     MPAC                                  
047844,000223: 01,2720           52155                           DXCH     MPAC                                  
047845,000224: 01,2721           52157                           DXCH     MPAC       +2                         
047846,000225: 01,2722           50067                           INDEX    NEWJOB                                
047847,000226: 01,2723           52157                           DXCH     MPAC       +2                         
047848,000227: 01,2724           52157                           DXCH     MPAC       +2                         
047849,000228: 01,2725           52161                           DXCH     MPAC       +4                         
047850,000229: 01,2726           50067                           INDEX    NEWJOB                                
047851,000230: 01,2727           52161                           DXCH     MPAC       +4                         
047852,000231: 01,2730           52161                           DXCH     MPAC       +4                         
047853,000232: 01,2731           52163                           DXCH     MPAC       +6                         
047854,000233: 01,2732           50067                           INDEX    NEWJOB                                
047855,000234: 01,2733           52163                           DXCH     MPAC       +6                         
047856,000235: 01,2734           52163                           DXCH     MPAC       +6                         
047857,000236: 
047858,000237: 01,2735           34755                           CAF      ZERO                                  
047859,000238: 01,2736           56121                           XCH      OVFIND                                #  MAKE PUSHLOC NEGATIVE IF OVFIND NZ.
047860,000239: 01,2737           00006                           EXTEND                                         
047861,000240: 01,2740           12743                           BZF      +3                                    
047862,000241: 01,2741           40166                           CS       PUSHLOC                               
047863,000242: 01,2742           54166                           TS       PUSHLOC                               
047864,000243: 
047865,000244: 01,2743           52167                           DXCH     PUSHLOC                               
047866,000245: 01,2744           50067                           INDEX    NEWJOB                                
047867,000246: 01,2745           52167                           DXCH     PUSHLOC                               
047868,000247: 01,2746           52167                           DXCH     PUSHLOC                               #  SWAPS PUSHLOC AND PRIORITY.
047869,000248: 01,2747           35004                           CAF      LOW9                                  #  SET FIXLOC TO BASE OF VAC AREA.
047870,000249: 01,2750           70167                           MASK     PRIORITY                              
047871,000250: 01,2751           54120                           TS       FIXLOC                                
047872,000251: 
047873,000252: 01,2752           10166                           CCS      PUSHLOC                               #  SET OVERFLOW INDICATOR ACCORDING TO
047874,000253: 01,2753           34755                           CAF      ZERO                                  
047875,000254: 01,2754           12761                           TCF      ENDPRCHG   -1                         
047876,000255: 

Page 1104

047878,000257: 01,2755           40166                           CS       PUSHLOC                               
047879,000258: 01,2756           54166                           TS       PUSHLOC                               
047880,000259: 01,2757           34753                           CAF      ONE                                   
047881,000260: 01,2760           56121                           XCH      OVFIND                                
047882,000261: 01,2761           54067                           TS       NEWJOB                                
047883,000262: 
047884,000263: 01,2762           00003        ENDPRCHG           RELINT                                         
047885,000264: 01,2763           52165                           DXCH     LOC                                   #  BASIC JOBS HAVE POSITIVE ADDRESSES, SO
047886,000265: 01,2764           00006                           EXTEND                                         #  DISPATCH WITH A DTCB.
047887,000266: 01,2765           62767                           BZMF     +2                                    #  IF INTERPRETIVE, SET UP EBANK, ETC.
047888,000267: 01,2766           52006                           DTCB                                           
047889,000268: 

Page 1105

047891,000270: 01,2767           40000                           COM                                            #  EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
047892,000271: 01,2770           64753                           AD       ONE                                   
047893,000272: 01,2771           54164                           TS       LOC                                   #  RESUME.
047894,000273: 01,2772           16047                           TCF      INTRSM                                
047895,000274: 
047896,000275:                                                                                                  #           COMPLETE JOBSLEEP PREPARATIONS.
047897,000276: 
047898,000277: 01,2773           00004        JOBSLP1            INHINT                                         
047899,000278: 01,2774           40167                           CS       PRIORITY                              #  NNZ PRIORITY SHOWS JOB ASLEEP.
047900,000279: 01,2775           54167                           TS       PRIORITY                              
047901,000280: 01,2776           36073                           CAF      LOW7                                  
047902,000281: 01,2777           70006                           MASK     BBANK                                 
047903,000282: 01,3000           00006                           EXTEND                                         
047904,000283: 01,3001           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBANK VALUE.
047905,000284: 01,3002           54165                           TS       BANKSET                               
047906,000285: 01,3003           44755                           CS       ZERO                                  
047907,000286: 01,3004           54131        JOBSLP2            TS       BUF        +1                         #  HOLDS - HIGHEST PRIORITY.
047908,000287: 01,3005           13115                           TCF      EJSCAN                                #  SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
047909,000288: 
047910,000289: 01,3006           00004        NUCHANG2           INHINT                                         #  QUICK... DONT LET NEWJOB CHANGE TO +0.
047911,000290: 01,3007           10067                           CCS      NEWJOB                                
047912,000291: 01,3010           13013                           TCF      +3                                    #  NEWJOB STILL PNZ
047913,000292: 01,3011           00003                           RELINT                                         #  NEW JOB HAS CHANGED TO +0. WAKE UP JOB
047914,000293: 01,3012           13213                           TCF      ADVAN      +2                         #  VIA NUDIRECT. (VERY RARE CASE.)
047915,000294: 
047916,000295: 01,3013           34752                           CAF      TWO                                   
047917,000296: 01,3014           00006                           EXTEND                                         
047918,000297: 01,3015           05011                           WOR      DSALMOUT                              #  TURN ON ACTIVITY LIGHT
047919,000298: 01,3016           52165                           DXCH     LOC                                   #  AND SAVE ADDRESS INFO FOR BENEFIT OF
047920,000299: 01,3017           12707                           TCF      CHANJOB    +4                         #   POSSIBLE SLEEPING JOB.
047921,000300: 

Page 1106

047923,000302:                                                                                                  #           TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE
047924,000303:                                                                                                  #  LOC REGISTER OF ANY SUCH JOB MATCHES THAT SUPPLIED BY THE CALLER, THAT JOB IS AWAKENED. IF NO JOB IS FOUND,
047925,000304:                                                                                                  #  LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
047926,000305: 
047927,000306: 01,3020           54061        JOBWAKE2           TS       EXECTEM1                              
047928,000307: 01,3021           34755                           CAF      ZERO                                  #  BEGIN CORE SET SCAN.
047929,000308: 01,3022           54064                           TS       LOCCTR                                
047930,000309: 01,3023           32631                           CAF      NO.CORES                              
047931,000310: 01,3024           54062        JOBWAKE4           TS       EXECTEM2                              
047932,000311: 01,3025           50064                           INDEX    LOCCTR                                
047933,000312: 01,3026           10167                           CCS      PRIORITY                              
047934,000313: 01,3027           13032                           TCF      JOBWAKE3                              #  ACTIVE JOB - CHECK NEXT CORE SET.
047935,000314: 01,3030           00014        COREINC            DEC      12         B-14                       #  12 REGISTERS PER CORE SET.
047936,000315: 01,3031           13041                           TCF      WAKETEST                              #  SLEEPING JOB - SEE IF CADR MATCHES.
047937,000316: 
047938,000317: 01,3032           33030        JOBWAKE3           CAF      COREINC                               
047939,000318: 01,3033           26064                           ADS      LOCCTR                                
047940,000319: 01,3034           10062                           CCS      EXECTEM2                              
047941,000320: 01,3035           13024                           TCF      JOBWAKE4                              
047942,000321: 01,3036           44753                           CS       ONE                                   #  EXIT IF SLEEPING JOB NOT FOUND.
047943,000322: 01,3037           54064                           TS       LOCCTR                                
047944,000323: 01,3040           15160                           TCF      ENDFIND                               
047945,000324: 
047946,000325: 01,3041           40065        WAKETEST           CS       NEWLOC                                
047947,000326: 01,3042           50064                           INDEX    LOCCTR                                
047948,000327: 01,3043           60164                           AD       LOC                                   
047949,000328: 01,3044           00006                           EXTEND                                         
047950,000329: 01,3045           13047                           BZF      +2                                    #  IF MATCH.
047951,000330: 01,3046           13032                           TCF      JOBWAKE3                              #  EXAMINE NEXT CORE SET IF NO MATCH.
047952,000331: 
047953,000332: 01,3047           50064                           INDEX    LOCCTR                                #  RE-COMPLEMENT PRIORITY TO SHOW JOB AWAKE
047954,000333: 01,3050           40167                           CS       PRIORITY                              
047955,000334: 01,3051           54063                           TS       NEWPRIO                               
047956,000335: 01,3052           50064                           INDEX    LOCCTR                                
047957,000336: 01,3053           54167                           TS       PRIORITY                              
047958,000337: 
047959,000338: 01,3054           44350                           CS       FBANKMSK                              #  MAKE UP THE 2CADR OF THE WAKE ADDRESS
047960,000339: 01,3055           70065                           MASK     NEWLOC                                #  USING THE CADR IN NEWLOC AND THE EBANK
047961,000340: 01,3056           64741                           AD       2K                                    #  HALF OF BBANK SAVED IN BANKSET.
047962,000341: 01,3057           56065                           XCH      NEWLOC                                
047963,000342: 01,3060           74350                           MASK     FBANKMSK                              
047964,000343: 01,3061           50064                           INDEX    LOCCTR                                
047965,000344: 01,3062           60165                           AD       BANKSET                               
047966,000345: 01,3063           54066                           TS       NEWLOC     +1                         
047967,000346: 
047968,000347: 01,3064           10064                           CCS      LOCCTR                                #  SPECIAL TREATMENT IF THIS JOB WAS
047969,000348: 01,3065           12656                           TCF      SETLOC                                #  ALREADY IN THE RUN (0) POSITION.
047970,000349: 01,3066           12646                           TCF      SPECTEST                              
047971,000350: 

Page 1107

047973,000352:                                                                                                  #           PRIORITY CHANGE.  CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY.
047974,000353: 
047975,000354: 01,3067           54164        PRIOCH2            TS       LOC                                   
047976,000355: 01,3070           34755                           CAF      ZERO                                  #  SET FLAG TO TELL ENDJOB SCANNER IF THIS
047977,000356: 01,3071           54130                           TS       BUF                                   #  JOB IS STILL HIGHEST PRIORITY.
047978,000357: 01,3072           35004                           CAF      LOW9                                  
047979,000358: 01,3073           70167                           MASK     PRIORITY                              
047980,000359: 01,3074           60063                           AD       NEWPRIO                               
047981,000360: 01,3075           54167                           TS       PRIORITY                              
047982,000361: 01,3076           40000                           COM                                            
047983,000362: 01,3077           13004                           TCF      JOBSLP2                               #  AND TO EJSCAN.
047984,000363: 

Page 1108

047986,000365:                                                                                                  #           RELEASE THIS CORE SET AND VAC AREA AND SCAN FOR THE JOB OF HIGHEST ACTIVE PRIORITY.
047987,000366: 
047988,000367: 01,3100           00004        ENDJOB1            INHINT                                         
047989,000368: 01,3101           44755                           CS       ZERO                                  
047990,000369: 01,3102           54131                           TS       BUF        +1                         
047991,000370: 01,3103           56167                           XCH      PRIORITY                              
047992,000371: 01,3104           75004                           MASK     LOW9                                  
047993,000372: 01,3105           54001                           TS       L                                     
047994,000373: 
047995,000374: 01,3106           45164                           CS       FAKEPRET                              
047996,000375: 01,3107           60001                           AD       L                                     
047997,000376: 
047998,000377: 01,3110           00006                           EXTEND                                         
047999,000378: 01,3111           63115                           BZMF     EJSCAN                                #  NOVAC ENDOFJOB
048000,000379: 
048001,000380: 01,3112           10001                           CCS      L                                     
048002,000381: 01,3113           50000                           INDEX    A                                     
048003,000382: 01,3114           54000                           TS       0                                     
048004,000383: 
048005,000384: 01,3115           10203        EJSCAN             CCS      PRIORITY   +12D                       
048006,000385: 01,3116           03166                           TC       EJ1                                   
048007,000386: 01,3117           05677                           TC       CCSHOLE                               
048008,000387: 01,3120           13121                           TCF      +1                                    
048009,000388: 
048010,000389: 01,3121           10217                           CCS      PRIORITY   +24D                       #  EXAMINE EACH PRIORITY REGISTER TO FIND
048011,000390: 01,3122           03166                           TC       EJ1                                   #  THE JOB OF HIGHEST ACTIVE PRIORITY.
048012,000391: 01,3123           05677                           TC       CCSHOLE                               
048013,000392: 01,3124           13125                           TCF      +1                                    
048014,000393: 
048015,000394: 01,3125           10233                           CCS      PRIORITY   +36D                       
048016,000395: 01,3126           03166                           TC       EJ1                                   
048017,000396: 01,3127           67610        -CCSPR             -CCS     PRIORITY                              
048018,000397: 01,3130           13131                           TCF      +1                                    
048019,000398: 
048020,000399: 01,3131           10247                           CCS      PRIORITY   +48D                       
048021,000400: 01,3132           03166                           TC       EJ1                                   
048022,000401: 01,3133           05677                           TC       CCSHOLE                               
048023,000402: 01,3134           13135                           TCF      +1                                    
048024,000403: 
048025,000404: 01,3135           10263                           CCS      PRIORITY   +60D                       
048026,000405: 01,3136           03166                           TC       EJ1                                   
048027,000406: 01,3137           05677                           TC       CCSHOLE                               
048028,000407: 01,3140           13141                           TCF      +1                                    
048029,000408: 
048030,000409: 01,3141           10277                           CCS      PRIORITY   +72D                       
048031,000410: 01,3142           03166                           TC       EJ1                                   
048032,000411: 01,3143           05677                           TC       CCSHOLE                               
048033,000412: 01,3144           13145                           TCF      +1                                    
048034,000413: 
048035,000414: 01,3145           10313                           CCS      PRIORITY   +84D                       
048036,000415: 

Page 1109

048038,000417: 01,3146           03166                           TC       EJ1                                   
048039,000418: 01,3147           05677                           TC       CCSHOLE                               
048040,000419: 01,3150           13151                           TCF      +1                                    
048041,000420: 

Page 1110

048043,000422:                                                                                                  #           EVALUATE THE RESULTS OF THE SCAN.
048044,000423: 
048045,000424: 01,3151           10131                           CCS      BUF        +1                         #  SEE IF THERE ARE ANY ACTIVE JOBS WAITING
048046,000425: 01,3152           05677                           TC       CCSHOLE                               
048047,000426: 01,3153           05677                           TC       CCSHOLE                               
048048,000427: 
048049,000428: 01,3154           13156                           TCF      +2                                    
048050,000429: 01,3155           13203                           TCF      DUMMYJOB                              
048051,000430: 01,3156           10130                           CCS      BUF                                   #  BUF IS ZERO IF THIS IS A PRIOCHNG AND
048052,000431: 01,3157           13161                           TCF      +2                                    #  CHANGED PRIORITY IS STILL HIGHEST.
048053,000432: 01,3160           12761                           TCF      ENDPRCHG   -1                         
048054,000433: 
048055,000434: 01,3161           50000                           INDEX    A                                     #  OTHERWISE, SET NEWJOB TO THE RELATIVE
048056,000435: 01,3162           27777                           CAF      0          -1                         #  ADDRESS OF THE NEW JOB'S CORE SET.
048057,000436: 01,3163           63127                           AD       -CCSPR                                
048058,000437: 01,3164           54067                           TS       NEWJOB                                
048059,000438: 01,3165           12701                           TCF      CHANJOB    -2                         
048060,000439: 
048061,000440: 01,3166           54132        EJ1                TS       BUF        +2                         
048062,000441: 01,3167           60131                           AD       BUF        +1                         #  - OLD HIGH PRIORITY.
048063,000442: 01,3170           10000                           CCS      A                                     
048064,000443: 01,3171           40132                           CS       BUF        +2                         
048065,000444: 01,3172           13176                           TCF      EJ2                                   #  NEW HIGH PRIORITY.
048066,000445: 01,3173           13174                           NOOP                                           
048067,000446: 01,3174           50002                           INDEX    Q                                     
048068,000447: 01,3175           00002                           TC       2                                     #  PROCEED WITH SEARCH.
048069,000448: 
048070,000449: 01,3176           54131        EJ2                TS       BUF        +1                         
048071,000450: 01,3177           00006                           EXTEND                                         
048072,000451: 01,3200           22130                           QXCH     BUF                                   #  FOR LOCATING CCS PRIORITY + X INSTR.
048073,000452: 01,3201           50130                           INDEX    BUF                                   
048074,000453: 01,3202           00002                           TC       2                                     
048075,000454: 

Page 1111

048077,000456:                                                                                                  #           IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF,
048078,000457:                                                                                                  #  BUT RATHER A SUBROUTINE OF THE EXECUTIVE.
048079,000458: 
048080,000459: 01,3203     1361                                  EBANK=   SELFRET                               #  SELF-CHECK STORAGE IN EBANK.
048081,000460: 
048082,000461: 01,3203           44755        DUMMYJOB           CS       ZERO                                  #  SET NEWJOB TO -0 FOR IDLING.
048083,000462: 01,3204           54067                           TS       NEWJOB                                
048084,000463: 01,3205           00003                           RELINT                                         
048085,000464: 01,3206           44752                           CS       TWO                                   #  TURN OFF THE ACTIVITY LIGHT.
048086,000465: 01,3207           00006                           EXTEND                                         
048087,000466: 01,3210           03011                           WAND     DSALMOUT                              
048088,000467: 01,3211           10067        ADVAN              CCS      NEWJOB                                #  IS A NEWJOB ACTIVE?
048089,000468: 01,3212           13006                           TCF      NUCHANG2                              #  YES... ONE REQUIRING A CHANGE JOB.
048090,000469: 01,3213           34752                           CAF      TWO                                   #  NEW JOB ALREADY IN POSITION FOR
048091,000470: 01,3214           13222                           TCF      NUDIRECT                              #  EXECUTION.
048092,000471: 
048093,000472: 01,3215           31361                           CA       SELFRET                               
048094,000473: 01,3216           54001                           TS       L                                     #  PUT RETURN ADDRESS IN L.
048095,000474: 01,3217           33221                           CAF      SELFBANK                              
048096,000475: 01,3220           15166                           TCF      SUPDXCHZ   +1                         #   AND DISPATCH JOB.
048097,000476: 
048098,000477: 01,3221     1361                                  EBANK=   SELFRET                               
048099,000478: 01,3221           66102        SELFBANK           BBCON    SELFCHK                               
048100,000479: 
048101,000480: 01,3222           00006        NUDIRECT           EXTEND                                         #  TURN THE GREEN LIGHT BACK ON.
048102,000481: 01,3223           05011                           WOR      DSALMOUT                              
048103,000482: 01,3224           52165                           DXCH     LOC                                   #  JOBS STARTED IN THIS FASHION MUST BE
048104,000483: 01,3225           15165                           TCF      SUPDXCHZ                              
048105,000484: 
048106,000485:    5165                                           BLOCK    2                                     #  IN FIXED-FIXED SO OTHERS MAY USE.
048107,000486: 
048108,000487:    5165                                           COUNT*   $$/EXEC                               
048109,000488:                                                                                                  #  SUPDXCHZ - ROUTINE TO TRANSFER TO SUPERBANK.
048110,000489:                                                                                                  #  CALLING SEQUENCE
048111,000490:                                                                                                  #                TCF     SUPDXCHZ        WITH 2CADR OF DESIRED LOCATION IN A + L.
048112,000491: 
048113,000492:    5165           56001        SUPDXCHZ           XCH      L                                     #  BASIC.
048114,000493:    5166           00006                 +1        EXTEND                                         
048115,000494:    5167           01007                           WRITE    SUPERBNK                              
048116,000495:    5170           54006                           TS       BBANK                                 
048117,000496:    5171           00001                           TC       L                                     
048118,000497: 
048119,000498:    5172           77677        NEG100             OCT      77677                                 

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