Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

046111,000002:                                                                                                  ## Copyright:   Public domain.
046112,000003:                                                                                                  ## Filename:    EXECUTIVE.agc
046113,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
046114,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
046115,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
046116,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
046117,000008:                                                                                                  ##              that the code format has been changed to conform to the
046118,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
046119,000010:                                                                                                  ##              original YUL assembler.
046120,000011:                                                                                                  ## Reference:   pp. 1097-1110
046121,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
046122,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
046123,000014:                                                                                                  ## Mod history: 05/31/03 RSB.   Began transcribing.
046124,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
046125,000016:                                                                                                  ##              2010-10-25 JL   Indentation fixes.
046126,000017:                                                                                                  ##              2011-05-07 JL   Removed workaround.
046127,000018:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
046128,000019:                                                                                                  ##                              original hardcopy, as opposed to the PDF page
046129,000020:                                                                                                  ##                              numbers in 1701.pdf.
046130,000021:                                                                                                  ##              2017-02-27 RSB  Proofed comment text using octopus/ProoferComments.
046131,000022:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
046132,000023:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
046133,000024: 

Page 1097

046135,000026:    5072                                           BLOCK    02                                    
046136,000027: 
046137,000028:                                                                                                  #  TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
046138,000029: 
046139,000030:    5072                                           COUNT*   $$/EXEC                               
046140,000031:    5072           00004        NOVAC              INHINT                                         
046141,000032:    5073           65164                           AD       FAKEPRET                              #  LOC(MPAC +6) - LOC(QPRET)
046142,000033:    5074           54063                           TS       NEWPRIO                               #  PRIORITY OF NEW JOB + NOVAC C(FIXLOC)
046143,000034: 
046144,000035:    5075           00006                           EXTEND                                         
046145,000036:    5076           50002                           INDEX    Q                                     #  Q WILL BE UNDISTURBED THROUGHOUT.
046146,000037:    5077           30001                           DCA      0                                     #  2CADR OF JOB ENTERED.
046147,000038:    5100           52066                           DXCH     NEWLOC                                
046148,000039:    5101           35163                           CAF      EXECBANK                              
046149,000040:    5102           56004                           XCH      FBANK                                 
046150,000041:    5103           54061                           TS       EXECTEM1                              
046151,000042:    5104           12626                           TCF      NOVAC2                                #  ENTER EXECUTIVE BANK.
046152,000043: 
046153,000044:                                                                                                  #  TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
046154,000045: 
046155,000046:    5105           00004        FINDVAC            INHINT                                         
046156,000047:    5106           54063                           TS       NEWPRIO                               
046157,000048:    5107           00006                           EXTEND                                         
046158,000049:    5110           50002                           INDEX    Q                                     
046159,000050:    5111           30001                           DCA      0                                     
046160,000051:    5112           52066        SPVACIN            DXCH     NEWLOC                                
046161,000052:    5113           35163                           CAF      EXECBANK                              
046162,000053:    5114           56004                           XCH      FBANK                                 
046163,000054:    5115           12602                           TCF      FINDVAC2                              #  OFF TO EXECUTIVE SWITCHED-BANK.
046164,000055: 
046165,000056:                                                                                                  #  TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L:
046166,000057:                                                                                                  #  USERS OF SPVAC MUST INHINT BEFORE STORING IN NEWPRIO.
046167,000058: 
046168,000059:    5116           56002        SPVAC              XCH      Q                                     
046169,000060:    5117           67751                           AD       NEG2                                  
046170,000061:    5120           56002                           XCH      Q                                     
046171,000062:    5121           15112                           TCF      SPVACIN                               
046172,000063: 
046173,000064:                                                                                                  #  TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICED:
046174,000065: 
046175,000066:    5122           22002        CHANG1             LXCH     Q                                     
046176,000067:    5123           35163                           CAF      EXECBANK                              
046177,000068:    5124           56006                           XCH      BBANK                                 
046178,000069:    5125           12707                           TCF      CHANJOB                               
046179,000070: 
046180,000071:                                                                                                  #  TO SUSPEND AN INTERPRETIVE JOB:
046181,000072: 
046182,000073:    5126           40164        CHANG2             CS       LOC                                   #  NEGATIVE LOC SHOWS JOB = INTERPRETIVE.
046183,000074:                                                                                                  #  ITRACE (4) REFERS TO "CHANG2".
046184,000075:    5127           54001                           TS       L                                     

Page 1098

046186,000077:    5130           35163                 +2        CAF      EXECBANK                              
046187,000078:    5131           54006                           TS       BBANK                                 
046188,000079:    5132           12706                           TCF      CHANJOB    -1                         
046189,000080: 

Page 1099

046191,000082:                                                                                                  #  TO VOLUNTARILY SUSPEND A JOB UNTIL THE COMPLETION OF SOME ANTICIPATED EVENT (I/O EVENT ETC.):
046192,000083: 
046193,000084:    5133           54164        JOBSLEEP           TS       LOC                                   
046194,000085:    5134           35163                           CAF      EXECBANK                              
046195,000086:    5135           54004                           TS       FBANK                                 
046196,000087:    5136           12777                           TCF      JOBSLP1                               
046197,000088: 
046198,000089:                                                                                                  #  TO AWAKEN A JOB PUT TO SLEEP IN THE ABOVE FASHION:
046199,000090: 
046200,000091:    5137           00004        JOBWAKE            INHINT                                         
046201,000092:    5140           54065                           TS       NEWLOC                                
046202,000093:    5141           44752                           CS       TWO                                   #  EXIT IS VIA FINDVAC/NOVAC PROCEDURES.
046203,000094:    5142           26002                           ADS      Q                                     
046204,000095:    5143           35163                           CAF      EXECBANK                              
046205,000096:    5144           56004                           XCH      FBANK                                 
046206,000097:    5145           13024                           TCF      JOBWAKE2                              
046207,000098: 
046208,000099:                                                                                                  #  TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION:
046209,000100: 
046210,000101:    5146           00004        PRIOCHNG           INHINT                                         #  NEW PRIORITY ARRIVES IN A.  RETURNS TO
046211,000102:    5147           54063                           TS       NEWPRIO                               #  CALLER AS SOON AS NEW JOB PRIORITY IS
046212,000103:    5150           35163                           CAF      EXECBANK                              #  HIGHEST.  PREPARE FOR POSSIBLE BASIC-
046213,000104:    5151           56006                           XCH      BBANK                                 #  STYLE CHANGE-JOB.
046214,000105:    5152           54165                           TS       BANKSET                               
046215,000106:    5153           30002                           CA       Q                                     
046216,000107:    5154           13073                           TCF      PRIOCH2                               
046217,000108: 
046218,000109:                                                                                                  #  TO REMOVE A JOB FROM EXECUTIVE CONSIDERATIONS:
046219,000110: 
046220,000111:    5155           35163        ENDOFJOB           CAF      EXECBANK                              
046221,000112:    5156           54004                           TS       FBANK                                 
046222,000113:    5157           13104                           TCF      ENDJOB1                               
046223,000114: 
046224,000115:    5160           30061        ENDFIND            CA       EXECTEM1                              #  RETURN TO CALLER AFTER JOB ENTRY
046225,000116:    5161           54004                           TS       FBANK                                 #  COMPLETE.
046226,000117:    5162           16744                           TCF      Q+2                                   
046227,000118:    5163           02602        EXECBANK           CADR     FINDVAC2                              
046228,000119: 
046229,000120:    5164           00110        FAKEPRET           ADRES    MPAC       -36D                       #  LOC(MPAC +6) - LOC(QPRET)
046230,000121: 

Page 1100

046232,000123:                                                                                                  #  LOCATE AN AVAILABLE VAC AREA.
046233,000124: 
046234,000125: 01,2602                                           BANK     01                                    
046235,000126: 01,2602                                           COUNT*   $$/EXEC                               
046236,000127: 01,2602           54061        FINDVAC2           TS       EXECTEM1                              #  (SAVE CALLER'S BANK FIRST.)
046237,000128: 01,2603           10400                           CCS      VAC1USE                               
046238,000129: 01,2604           12621                           TCF      VACFOUND                              
046239,000130: 01,2605           10454                           CCS      VAC2USE                               
046240,000131: 01,2606           12621                           TCF      VACFOUND                              
046241,000132: 01,2607           10530                           CCS      VAC3USE                               
046242,000133: 01,2610           12621                           TCF      VACFOUND                              
046243,000134: 01,2611           10604                           CCS      VAC4USE                               
046244,000135: 01,2612           12621                           TCF      VACFOUND                              
046245,000136: 01,2613           10660                           CCS      VAC5USE                               
046246,000137: 01,2614           12621                           TCF      VACFOUND                              
046247,000138: 01,2615           22061                           LXCH     EXECTEM1                              
046248,000139: 01,2616           30002                           CA       Q                                     
046249,000140: 01,2617           05706                           TC       BAILOUT1                              
046250,000141: 01,2620           31201                           OCT      31201                                 #  NO VAC AREAS
046251,000142: 
046252,000143: 01,2621           64752        VACFOUND           AD       TWO                                   #  RESERVE THIS VAC AREA BY STORING A ZERO
046253,000144: 01,2622           22007                           ZL                                             #  IN ITS VAC USE REGISTER AND STORE THE
046254,000145: 01,2623           50000                           INDEX    A                                     #  ADDRESS OF THE FIRST WORD OF IT IN THE
046255,000146: 01,2624           21777                           LXCH     0          -1                         #  LOW NINE BITS OF THE PRIORITY WORD.
046256,000147: 01,2625           26063                           ADS      NEWPRIO                               
046257,000148: 
046258,000149: 01,2626           34755        NOVAC2             CAF      ZERO                                  #  NOVAC ENTERS HERE.  FIND A CORE SET.
046259,000150: 01,2627           54064                           TS       LOCCTR                                
046260,000151: 01,2630           32635                           CAF      NO.CORES                              #  SEVEN SETS OF ELEVEN REGISTERS EACH.
046261,000152: 01,2631           54062        NOVAC3             TS       EXECTEM2                              
046262,000153: 01,2632           50064                           INDEX    LOCCTR                                
046263,000154: 01,2633           10167                           CCS      PRIORITY                              #  EACH PRIORITY REGISTER CONTAINS -0 IF
046264,000155: 01,2634           12675                           TCF      NEXTCORE                              #  THE CORRESPONDING CORE SET IS AVAILABLE.
046265,000156: 01,2635           00007        NO.CORES           DEC      7          B-14                       
046266,000157: 01,2636           12675                           TCF      NEXTCORE                              #  AN ACTIVE JOB HAS A POSITIVE PRIORITY
046267,000158:                                                                                                  #  BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
046268,000159: 

Page 1101

046270,000161: 01,2637           30063        CORFOUND           CA       NEWPRIO                               #  SET THE PRIORITY OF THIS JOB IN THE CORE
046271,000162: 01,2640           50064                           INDEX    LOCCTR                                #  SET'S PRIORITY REGISTER AND SET THE
046272,000163: 01,2641           54167                           TS       PRIORITY                              #  JOB'S PUSH-DOWN POINTER AT THE BEGINNING
046273,000164: 01,2642           75004                           MASK     LOW9                                  #  OF THE WORK AREA AND OVERFLOW INDICATOR
046274,000165: 01,2643           50064                           INDEX    LOCCTR                                
046275,000166: 01,2644           54166                           TS       PUSHLOC                               #  OFF TO PREPARE FOR INTERPRETIVE PROGRAMS
046276,000167: 
046277,000168: 01,2645           10064                           CCS      LOCCTR                                #  IF CORE SET ZERO IS BEING LOADED, SET UP
046278,000169: 01,2646           12662                           TCF      SETLOC                                #  OVFIND AND FIXLOC IMMEDIATELY.
046279,000170: 01,2647           54121                           TS       OVFIND                                
046280,000171: 01,2650           30166                           CA       PUSHLOC                               
046281,000172: 01,2651           54120                           TS       FIXLOC                                
046282,000173: 
046283,000174: 01,2652           10067        SPECTEST           CCS      NEWJOB                                #  SEE IF ANY ACTIVE JOBS WAITING (RARE).
046284,000175: 01,2653           12662                           TCF      SETLOC                                #  MUST BE AWAKENED BUT UNCHANGED JOB.
046285,000176: 01,2654           05675                           TC       CCSHOLE                               
046286,000177: 01,2655           05675                           TC       CCSHOLE                               
046287,000178: 01,2656           54067                           TS       NEWJOB                                #  +0 SHOWS ACTIVE JOB ALREADY SET.
046288,000179: 01,2657           52066                           DXCH     NEWLOC                                
046289,000180: 01,2660           52165                           DXCH     LOC                                   
046290,000181: 01,2661           15160                           TCF      ENDFIND                               
046291,000182: 
046292,000183: 01,2662           52066        SETLOC             DXCH     NEWLOC                                #  SET UP THE LOCATION REGISTERS FOR THIS
046293,000184: 01,2663           50064                           INDEX    LOCCTR                                
046294,000185: 01,2664           52165                           DXCH     LOC                                   
046295,000186: 01,2665           50067                           INDEX    NEWJOB                                #  THIS INDEX INSTRUCTION INSURES THAT THE
046296,000187: 01,2666           40167                           CS       PRIORITY                              #  HIGHEST ACTIVE PRIORITY WILL BE COMPARED
046297,000188: 01,2667           60063                           AD       NEWPRIO                               #  WITH THE NEW PRIORITY TO SEE IF NEWJOB
046298,000189: 01,2670           00006                           EXTEND                                         #  SHOULD BE SET TO SIGNAL A SWITCH.
046299,000190: 01,2671           65160                           BZMF     ENDFIND                               
046300,000191: 01,2672           30064                           CA       LOCCTR                                #  LOCCTR IS LEFT SET AT THIS CORE SET IF
046301,000192: 01,2673           54067                           TS       NEWJOB                                #  THE CALLER WANTS TO LOAD ANY MPAC
046302,000193: 01,2674           15160                           TCF      ENDFIND                               #  REGISTERS, ETC.
046303,000194: 
046304,000195: 01,2675           33034        NEXTCORE           CAF      COREINC                               
046305,000196: 01,2676           26064                           ADS      LOCCTR                                
046306,000197: 01,2677           10062                           CCS      EXECTEM2                              
046307,000198: 01,2700           12631                           TCF      NOVAC3                                
046308,000199: 01,2701           22061                           LXCH     EXECTEM1                              
046309,000200: 01,2702           30002                           CA       Q                                     
046310,000201: 01,2703           05706                           TC       BAILOUT1                              #  NO CORE SETS AVAILABLE.
046311,000202: 01,2704           31202                           OCT      31202                                 

Page 1102

046313,000204:                                                                                                  #  THE FOLLOWING ROUTINE SWAPS CORE SET 0 WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB.
046314,000205: 
046315,000206: 01,2705           22164                 -2        LXCH     LOC                                   
046316,000207: 01,2706           30165                 -1        CAE      BANKSET                               #  BANKSET, NOT BBANK, HAS RIGHT CONTENTS.
046317,000208: 01,2707           00004        CHANJOB            INHINT                                         
046318,000209: 01,2710           00006                           EXTEND                                         
046319,000210: 01,2711           04007                           ROR      SUPERBNK                              #  PICK UP CURRENT SBANK FOR BBCON
046320,000211: 01,2712           56001                           XCH      L                                     #  LOC IN A AND BBCON IN L.
046321,000212: 01,2713           50067                 +4        INDEX    NEWJOB                                #  SWAP LOC AND BANKSET.
046322,000213: 01,2714           52165                           DXCH     LOC                                   
046323,000214: 01,2715           52165                           DXCH     LOC                                   
046324,000215: 
046325,000216: 01,2716           30165                           CAE      BANKSET                               
046326,000217: 01,2717           00006                           EXTEND                                         
046327,000218: 01,2720           01007                           WRITE    SUPERBNK                              #  SET SBANK FOR NEW JOB.
046328,000219: 01,2721           52155                           DXCH     MPAC                                  #  SWAP MULTI-PURPOSE ACCUMULATOR AREAS.
046329,000220: 01,2722           50067                           INDEX    NEWJOB                                
046330,000221: 01,2723           52155                           DXCH     MPAC                                  
046331,000222: 01,2724           52155                           DXCH     MPAC                                  
046332,000223: 01,2725           52157                           DXCH     MPAC       +2                         
046333,000224: 01,2726           50067                           INDEX    NEWJOB                                
046334,000225: 01,2727           52157                           DXCH     MPAC       +2                         
046335,000226: 01,2730           52157                           DXCH     MPAC       +2                         
046336,000227: 01,2731           52161                           DXCH     MPAC       +4                         
046337,000228: 01,2732           50067                           INDEX    NEWJOB                                
046338,000229: 01,2733           52161                           DXCH     MPAC       +4                         
046339,000230: 01,2734           52161                           DXCH     MPAC       +4                         
046340,000231: 01,2735           52163                           DXCH     MPAC       +6                         
046341,000232: 01,2736           50067                           INDEX    NEWJOB                                
046342,000233: 01,2737           52163                           DXCH     MPAC       +6                         
046343,000234: 01,2740           52163                           DXCH     MPAC       +6                         
046344,000235: 
046345,000236: 01,2741           34755                           CAF      ZERO                                  
046346,000237: 01,2742           56121                           XCH      OVFIND                                #  MAKE PUSHLOC NEGATIVE IF OVFIND NZ.
046347,000238: 01,2743           00006                           EXTEND                                         
046348,000239: 01,2744           12747                           BZF      +3                                    
046349,000240: 01,2745           40166                           CS       PUSHLOC                               
046350,000241: 01,2746           54166                           TS       PUSHLOC                               
046351,000242: 
046352,000243: 01,2747           52167                           DXCH     PUSHLOC                               
046353,000244: 01,2750           50067                           INDEX    NEWJOB                                
046354,000245: 01,2751           52167                           DXCH     PUSHLOC                               
046355,000246: 01,2752           52167                           DXCH     PUSHLOC                               #  SWAPS PUSHLOC AND PRIORITY.
046356,000247: 01,2753           35004                           CAF      LOW9                                  #  SET FIXLOC TO BASE OF VAC AREA.
046357,000248: 01,2754           70167                           MASK     PRIORITY                              
046358,000249: 01,2755           54120                           TS       FIXLOC                                
046359,000250: 
046360,000251: 01,2756           10166                           CCS      PUSHLOC                               #  SET OVERFLOW INDICATOR ACCORDING TO
046361,000252: 01,2757           34755                           CAF      ZERO                                  
046362,000253: 01,2760           12765                           TCF      ENDPRCHG   -1                         
046363,000254: 

Page 1103

046365,000256: 01,2761           40166                           CS       PUSHLOC                               
046366,000257: 01,2762           54166                           TS       PUSHLOC                               
046367,000258: 01,2763           34753                           CAF      ONE                                   
046368,000259: 01,2764           56121                           XCH      OVFIND                                
046369,000260: 01,2765           54067                           TS       NEWJOB                                
046370,000261: 
046371,000262: 01,2766           00003        ENDPRCHG           RELINT                                         
046372,000263: 01,2767           52165                           DXCH     LOC                                   #  BASIC JOBS HAVE POSITIVE ADDRESSES, SO
046373,000264: 01,2770           00006                           EXTEND                                         #  DISPATCH WITH A DTCB.
046374,000265: 01,2771           62773                           BZMF     +2                                    #  IF INTERPRETIVE, SET UP EBANK, ETC.
046375,000266: 01,2772           52006                           DTCB                                           

Page 1104

046377,000268: 01,2773           40000                           COM                                            #  EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
046378,000269: 01,2774           64753                           AD       ONE                                   
046379,000270: 01,2775           54164                           TS       LOC                                   #  RESUME.
046380,000271: 01,2776           16053                           TCF      INTRSM                                
046381,000272: 
046382,000273:                                                                                                  #  COMPLETE JOBSLEEP PREPARATIONS.
046383,000274: 
046384,000275: 01,2777           00004        JOBSLP1            INHINT                                         
046385,000276: 01,3000           40167                           CS       PRIORITY                              #  NNZ PRIORITY SHOWS JOB ASLEEP.
046386,000277: 01,3001           54167                           TS       PRIORITY                              
046387,000278: 01,3002           36077                           CAF      LOW7                                  
046388,000279: 01,3003           70006                           MASK     BBANK                                 
046389,000280: 01,3004           00006                           EXTEND                                         
046390,000281: 01,3005           04007                           ROR      SUPERBNK                              #  SAVE OLD SUPERBANK VALUE.
046391,000282: 01,3006           54165                           TS       BANKSET                               
046392,000283: 01,3007           44755                           CS       ZERO                                  
046393,000284: 01,3010           54131        JOBSLP2            TS       BUF        +1                         #  HOLDS - HIGHEST PRIORITY.
046394,000285: 01,3011           13121                           TCF      EJSCAN                                #  SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
046395,000286: 
046396,000287: 01,3012           00004        NUCHANG2           INHINT                                         #  QUICK... DONT LET NEWJOB CHANGE TO +0.
046397,000288: 01,3013           10067                           CCS      NEWJOB                                
046398,000289: 01,3014           13017                           TCF      +3                                    #  NEWJOB STILL PNZ
046399,000290: 01,3015           00003                           RELINT                                         #  NEW JOB HAS CHANGED TO +0.  WAKE UP JOB
046400,000291: 01,3016           13217                           TCF      ADVAN      +2                         #  VIA NUDIRECT.  (VERY RARE CASE.)
046401,000292: 
046402,000293: 01,3017           34752                           CAF      TWO                                   
046403,000294: 01,3020           00006                           EXTEND                                         
046404,000295: 01,3021           05011                           WOR      DSALMOUT                              #  TURN ON ACTIVITY LIGHT
046405,000296: 01,3022           52165                           DXCH     LOC                                   #  AND SAVE ADDRESS INFO FOR BENEFIT OF
046406,000297: 01,3023           12713                           TCF      CHANJOB    +4                         #        POSSIBLE SLEEPING JOB.
046407,000298: 

Page 1105

046409,000300:                                                                                                  #  TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP.  IF THE FCADR IN THE
046410,000301:                                                                                                  #  LOC REGISTER OF ANY SUCH JOB MATCHES THAT SUPPLIED BY THE CALLER, THAT JOB IS AWAKENED.  IF NO JOB IS FOUND,
046411,000302:                                                                                                  #  LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
046412,000303: 
046413,000304: 01,3024           54061        JOBWAKE2           TS       EXECTEM1                              
046414,000305: 01,3025           34755                           CAF      ZERO                                  #  BEGIN CORE SET SCAN.
046415,000306: 01,3026           54064                           TS       LOCCTR                                
046416,000307: 01,3027           32635                           CAF      NO.CORES                              
046417,000308: 01,3030           54062        JOBWAKE4           TS       EXECTEM2                              
046418,000309: 01,3031           50064                           INDEX    LOCCTR                                
046419,000310: 01,3032           10167                           CCS      PRIORITY                              
046420,000311: 01,3033           13036                           TCF      JOBWAKE3                              #  ACTIVE JOB - CHECK NEXT CORE SET.
046421,000312: 01,3034           00014        COREINC            DEC      12         B-14                       #  12 REGISTERS PER CORE SET.
046422,000313: 01,3035           13045                           TCF      WAKETEST                              #  SLEEPING JOB - SEE IF CADR MATCHES.
046423,000314: 
046424,000315: 01,3036           33034        JOBWAKE3           CAF      COREINC                               
046425,000316: 01,3037           26064                           ADS      LOCCTR                                
046426,000317: 01,3040           10062                           CCS      EXECTEM2                              
046427,000318: 01,3041           13030                           TCF      JOBWAKE4                              
046428,000319: 01,3042           44753                           CS       ONE                                   #  EXIT IF SLEEPING JOB NOT FOUND.
046429,000320: 01,3043           54064                           TS       LOCCTR                                
046430,000321: 01,3044           15160                           TCF      ENDFIND                               
046431,000322: 
046432,000323: 01,3045           40065        WAKETEST           CS       NEWLOC                                
046433,000324: 01,3046           50064                           INDEX    LOCCTR                                
046434,000325: 01,3047           60164                           AD       LOC                                   
046435,000326: 01,3050           00006                           EXTEND                                         
046436,000327: 01,3051           13053                           BZF      +2                                    #  IF MATCH.
046437,000328: 01,3052           13036                           TCF      JOBWAKE3                              #  EXAMINE NEXT CORE SET IF NO MATCH.
046438,000329: 
046439,000330: 01,3053           50064                           INDEX    LOCCTR                                #  RE-COMPLEMENT PRIORITY TO SHOW JOB AWAKE
046440,000331: 01,3054           40167                           CS       PRIORITY                              
046441,000332: 01,3055           54063                           TS       NEWPRIO                               
046442,000333: 01,3056           50064                           INDEX    LOCCTR                                
046443,000334: 01,3057           54167                           TS       PRIORITY                              
046444,000335: 
046445,000336: 01,3060           44350                           CS       FBANKMSK                              #  MAKE UP THE 2CADR OF THE WAKE ADDRESS
046446,000337: 01,3061           70065                           MASK     NEWLOC                                #  USING THE CADR IN NEWLOC AND THE EBANK
046447,000338: 01,3062           64741                           AD       2K                                    #  HALF OF BBANK SAVED IN BANKSET.
046448,000339: 01,3063           56065                           XCH      NEWLOC                                
046449,000340: 01,3064           74350                           MASK     FBANKMSK                              
046450,000341: 01,3065           50064                           INDEX    LOCCTR                                
046451,000342: 01,3066           60165                           AD       BANKSET                               
046452,000343: 01,3067           54066                           TS       NEWLOC     +1                         
046453,000344: 
046454,000345: 01,3070           10064                           CCS      LOCCTR                                #  SPECIAL TREATMENT IF THIS JOB WAS
046455,000346: 01,3071           12662                           TCF      SETLOC                                #  ALREADY IN THE RUN (0) POSITION.
046456,000347: 01,3072           12652                           TCF      SPECTEST                              
046457,000348: 

Page 1106

046459,000350:                                                                                                  #  PRIORITY CHANGE.  CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY.
046460,000351: 
046461,000352: 01,3073           54164        PRIOCH2            TS       LOC                                   
046462,000353: 01,3074           34755                           CAF      ZERO                                  #  SET FLAG TO TELL ENDJOB SCANNER IF THIS
046463,000354: 01,3075           54130                           TS       BUF                                   #  JOB IS STILL HIGHEST PRIORITY.
046464,000355: 01,3076           35004                           CAF      LOW9                                  
046465,000356: 01,3077           70167                           MASK     PRIORITY                              
046466,000357: 01,3100           60063                           AD       NEWPRIO                               
046467,000358: 01,3101           54167                           TS       PRIORITY                              
046468,000359: 01,3102           40000                           COM                                            
046469,000360: 01,3103           13010                           TCF      JOBSLP2                               #  AND TO EJSCAN.
046470,000361: 

Page 1107

046472,000363:                                                                                                  #  RELEASE THIS CORE SET AND VAC AREA AND SCAN FOR THE JOB OF HIGHEST ACTIVE PRIORITY.
046473,000364: 
046474,000365: 01,3104           00004        ENDJOB1            INHINT                                         
046475,000366: 01,3105           44755                           CS       ZERO                                  
046476,000367: 01,3106           54131                           TS       BUF        +1                         
046477,000368: 01,3107           56167                           XCH      PRIORITY                              
046478,000369: 01,3110           75004                           MASK     LOW9                                  
046479,000370: 01,3111           54001                           TS       L                                     
046480,000371: 
046481,000372: 01,3112           45164                           CS       FAKEPRET                              
046482,000373: 01,3113           60001                           AD       L                                     
046483,000374: 
046484,000375: 01,3114           00006                           EXTEND                                         
046485,000376: 01,3115           63121                           BZMF     EJSCAN                                #  NOVAC ENDOFJOB
046486,000377: 
046487,000378: 01,3116           10001                           CCS      L                                     
046488,000379: 01,3117           50000                           INDEX    A                                     
046489,000380: 01,3120           54000                           TS       0                                     
046490,000381: 
046491,000382: 01,3121           10203        EJSCAN             CCS      PRIORITY   +12D                       
046492,000383: 01,3122           03172                           TC       EJ1                                   
046493,000384: 01,3123           05675                           TC       CCSHOLE                               
046494,000385: 01,3124           13125                           TCF      +1                                    
046495,000386: 
046496,000387: 01,3125           10217                           CCS      PRIORITY   +24D                       #  EXAMINE EACH PRIORITY REGISTER TO FIND
046497,000388: 01,3126           03172                           TC       EJ1                                   #  THE JOB OF HIGHEST ACTIVE PRIORITY.
046498,000389: 01,3127           05675                           TC       CCSHOLE                               
046499,000390: 01,3130           13131                           TCF      +1                                    
046500,000391: 
046501,000392: 01,3131           10233                           CCS      PRIORITY   +36D                       
046502,000393: 01,3132           03172                           TC       EJ1                                   
046503,000394: 01,3133           67610        -CCSPR             -CCS     PRIORITY                              
046504,000395: 01,3134           13135                           TCF      +1                                    
046505,000396: 
046506,000397: 01,3135           10247                           CCS      PRIORITY   +48D                       
046507,000398: 01,3136           03172                           TC       EJ1                                   
046508,000399: 01,3137           05675                           TC       CCSHOLE                               
046509,000400: 01,3140           13141                           TCF      +1                                    
046510,000401: 
046511,000402: 01,3141           10263                           CCS      PRIORITY   +60D                       
046512,000403: 01,3142           03172                           TC       EJ1                                   
046513,000404: 01,3143           05675                           TC       CCSHOLE                               
046514,000405: 01,3144           13145                           TCF      +1                                    
046515,000406: 
046516,000407: 01,3145           10277                           CCS      PRIORITY   +72D                       
046517,000408: 01,3146           03172                           TC       EJ1                                   
046518,000409: 01,3147           05675                           TC       CCSHOLE                               
046519,000410: 01,3150           13151                           TCF      +1                                    
046520,000411: 
046521,000412: 01,3151           10313                           CCS      PRIORITY   +84D                       

Page 1108

046523,000414: 01,3152           03172                           TC       EJ1                                   
046524,000415: 01,3153           05675                           TC       CCSHOLE                               
046525,000416: 01,3154           13155                           TCF      +1                                    
046526,000417: 

Page 1109

046528,000419:                                                                                                  #  EVALUATE THE RESULTS OF THE SCAN.
046529,000420: 
046530,000421: 01,3155           10131                           CCS      BUF        +1                         #  SEE IF THERE ARE ANY ACTIVE JOBS WAITING
046531,000422: 01,3156           05675                           TC       CCSHOLE                               
046532,000423: 01,3157           05675                           TC       CCSHOLE                               
046533,000424: 
046534,000425: 01,3160           13162                           TCF      +2                                    
046535,000426: 01,3161           13207                           TCF      DUMMYJOB                              
046536,000427: 01,3162           10130                           CCS      BUF                                   #  BUF IS ZERO IF THIS IS A PRIOCHNG AND
046537,000428: 01,3163           13165                           TCF      +2                                    #  CHANGED PRIORITY IS STILL HIGHEST.
046538,000429: 01,3164           12765                           TCF      ENDPRCHG   -1                         
046539,000430: 
046540,000431: 01,3165           50000                           INDEX    A                                     #  OTHERWISE, SET NEWJOB TO THE RELATIVE
046541,000432: 01,3166           27777                           CAF      0          -1                         #  ADDRESS OF THE NEW JOB'S CORE SET.
046542,000433: 01,3167           63133                           AD       -CCSPR                                
046543,000434: 01,3170           54067                           TS       NEWJOB                                
046544,000435: 01,3171           12705                           TCF      CHANJOB    -2                         
046545,000436: 
046546,000437: 01,3172           54132        EJ1                TS       BUF        +2                         
046547,000438: 01,3173           60131                           AD       BUF        +1                         #  - OLD HIGH PRIORITY.
046548,000439: 01,3174           10000                           CCS      A                                     
046549,000440: 01,3175           40132                           CS       BUF        +2                         
046550,000441: 01,3176           13202                           TCF      EJ2                                   #  NEW HIGH PRIORITY.
046551,000442: 01,3177           13200                           NOOP                                           
046552,000443: 01,3200           50002                           INDEX    Q                                     
046553,000444: 01,3201           00002                           TC       2                                     #  PROCEED WITH SEARCH.
046554,000445: 
046555,000446: 01,3202           54131        EJ2                TS       BUF        +1                         
046556,000447: 01,3203           00006                           EXTEND                                         
046557,000448: 01,3204           22130                           QXCH     BUF                                   #  FOR LOCATING CCS PRIORITY + X INSTR.
046558,000449: 01,3205           50130                           INDEX    BUF                                   
046559,000450: 01,3206           00002                           TC       2                                     
046560,000451: 

Page 1110

046562,000453:                                                                                                  #  IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF,
046563,000454:                                                                                                  #  BUT RATHER A SUBROUTINE OF THE EXECUTIVE.
046564,000455: 
046565,000456: 01,3207     1361                                  EBANK=   SELFRET                               #  SELF-CHECK STORAGE IN EBANK.
046566,000457: 
046567,000458: 01,3207           44755        DUMMYJOB           CS       ZERO                                  #  SET NEWJOB TO -0 FOR IDLING.
046568,000459: 01,3210           54067                           TS       NEWJOB                                
046569,000460: 01,3211           00003                           RELINT                                         
046570,000461: 01,3212           44752                           CS       TWO                                   #  TURN OFF THE ACTIVITY LIGHT.
046571,000462: 01,3213           00006                           EXTEND                                         
046572,000463: 01,3214           03011                           WAND     DSALMOUT                              
046573,000464: 01,3215           10067        ADVAN              CCS      NEWJOB                                #  IS A NEWJOB ACTIVE?
046574,000465: 01,3216           13012                           TCF      NUCHANG2                              #  YES... ONE REQUIRING A CHANGE JOB.
046575,000466: 01,3217           34752                           CAF      TWO                                   #  NEW JOB ALREADY IN POSITION FOR
046576,000467: 01,3220           13226                           TCF      NUDIRECT                              #  EXECUTION.
046577,000468: 
046578,000469: 01,3221           31361                           CA       SELFRET                               
046579,000470: 01,3222           54001                           TS       L                                     #  PUT RETURN ADDRESS IN L.
046580,000471: 01,3223           33225                           CAF      SELFBANK                              
046581,000472: 01,3224           15166                           TCF      SUPDXCHZ   +1                         #  AND DISPATCH JOB.
046582,000473: 
046583,000474: 01,3225     1361                                  EBANK=   SELFRET                               
046584,000475: 01,3225           66102        SELFBANK           BBCON    SELFCHK                               
046585,000476: 
046586,000477: 01,3226           00006        NUDIRECT           EXTEND                                         #  TURN THE GREEN LIGHT BACK ON.
046587,000478: 01,3227           05011                           WOR      DSALMOUT                              
046588,000479: 01,3230           52165                           DXCH     LOC                                   #  JOBS STARTED IN THIS FASHION MUST BE
046589,000480: 01,3231           15165                           TCF      SUPDXCHZ                              
046590,000481: 
046591,000482:    5165                                           BLOCK    2                                     #  IN FIXED-FIXED SO OTHERS MAY USE.
046592,000483: 
046593,000484:    5165                                           COUNT*   $$/EXEC                               
046594,000485: 
046595,000486:                                                                                                  #  SUPDXCHZ - ROUTINE TO TRANSFER TO SUPERBANK.
046596,000487:                                                                                                  #  CALLING SEQUENCE
046597,000488:                                                                                                  #                TCF     SUPDXCHZ        WITH 2CADR OF DESIRED LOCATION IN A + L.
046598,000489: 
046599,000490:    5165           56001        SUPDXCHZ           XCH      L                                     #  BASIC.
046600,000491:    5166           00006                 +1        EXTEND                                         
046601,000492:    5167           01007                           WRITE    SUPERBNK                              
046602,000493:    5170           54006                           TS       BBANK                                 
046603,000494:    5171           00001                           TC       L                                     
046604,000495: 
046605,000496:    5172           77677        NEG100             OCT      77677                                 
046606,000497: 

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