Source Code
![]() |
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the
second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
048093,000002: ## Copyright: Public domain.
048094,000003: ## Filename: EXECUTIVE.agc
048095,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
048096,000005: ## otherwise known as Luminary Rev 99, the second release
048097,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
048098,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
048099,000008: ## placement of a single label. The corrections shown here have
048100,000009: ## been verified to have the same bank checksums as AGC developer
048101,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
048102,000011: ## to be accurate. This file is intended to be a faithful
048103,000012: ## recreation, except that the code format has been changed to
048104,000013: ## conform to the requirements of the yaYUL assembler rather than
048105,000014: ## the original YUL assembler.
048106,000015: ##
048107,000016: ## Assembler: yaYUL
048108,000017: ## Contact: Ron Burkey <info@sandroid.org>.
048109,000018: ## Website: www.ibiblio.org/apollo.
048110,000019: ## Pages: 1103-1114
048111,000020: ## Mod history: 2009-05-25 RSB Adapted from the corresponding
048112,000021: ## Luminary131 file, using page
048113,000022: ## images from Luminary 1A.
048114,000023: ## 2011-01-06 JL Fixed pseudo-label indentation.
048115,000024: ## 2011-05-08 JL Removed workaround.
048116,000025: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
048117,000026: ## and corrected the errors found.
048118,000027: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
048119,000028: ## side-by-side diff of Luminary 69/99/116/131/210.
048120,000029: ## 2017-08-01 MAS Created from LMY99 Rev 1.
048121,000030:
048122,000031: ## This source code has been transcribed or otherwise adapted from
048123,000032: ## digitized images of a hardcopy from the MIT Museum. The digitization
048124,000033: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
048125,000034: ## the Museum. Many thanks to both. The images (with suitable reduction
048126,000035: ## in storage size and consequent reduction in image quality as well) are
048127,000036: ## available online at www.ibiblio.org/apollo. If for some reason you
048128,000037: ## find that the images are illegible, contact me at info@sandroid.org
048129,000038: ## about getting access to the (much) higher-quality images which Paul
048130,000039: ## actually created.
048131,000040: ##
048132,000041: ## The code has been modified to match LMY99 Revision 0, otherwise
048133,000042: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
048134,000043: ## the listing from which it was transcribed. It has been verified to
048135,000044: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
048136,000045: ## of Luminary Revision 99 (for which we do not have scans).
048137,000046: ##
048138,000047: ## Notations on Allan Klumpp's listing read, in part:
048139,000048: ##
048140,000049: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
048141,000050:
![]() |
Page 1103 |
048143,000052: 5072 BLOCK 02
048144,000053:
048145,000054: # TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
048146,000055:
048147,000056: 5072 COUNT* $$/EXEC
048148,000057: 5072 00004 NOVAC INHINT
048149,000058: 5073 65164 AD FAKEPRET # LOC(MPAC +6) - LOC(QPRET)
048150,000059: 5074 54063 TS NEWPRIO # PRIORITY OF NEW JOB + NOVAC C(FIXLOC)
048151,000060:
048152,000061: 5075 00006 EXTEND
048153,000062: 5076 50002 INDEX Q # Q WILL BE UNDISTURBED THROUGHOUT.
048154,000063: 5077 30001 DCA 0 # 2CADR OF JOB ENTERED.
048155,000064: 5100 52066 DXCH NEWLOC
048156,000065: 5101 35163 CAF EXECBANK
048157,000066: 5102 56004 XCH FBANK
048158,000067: 5103 54061 TS EXECTEM1
048159,000068: 5104 12625 TCF NOVAC2 # ENTER EXECUTIVE BANK.
048160,000069:
048161,000070: # TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
048162,000071:
048163,000072: 5105 00004 FINDVAC INHINT
048164,000073: 5106 54063 TS NEWPRIO
048165,000074: 5107 00006 EXTEND
048166,000075: 5110 50002 INDEX Q
048167,000076: 5111 30001 DCA 0
048168,000077: 5112 52066 SPVACIN DXCH NEWLOC
048169,000078: 5113 35163 CAF EXECBANK
048170,000079: 5114 56004 XCH FBANK
048171,000080: 5115 12601 TCF FINDVAC2 # OFF TO EXECUTIVE SWITCHED-BANK.
048172,000081:
048173,000082: # TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L:
048174,000083: # USERS OF SPVAC MUST INHINT BEFORE STORING IN NEWPRIO.
048175,000084:
048176,000085: 5116 56002 SPVAC XCH Q
048177,000086: 5117 67746 AD NEG2
048178,000087: 5120 56002 XCH Q
048179,000088: 5121 15112 TCF SPVACIN
048180,000089:
048181,000090: # TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICED:
048182,000091:
048183,000092: 5122 22002 CHANG1 LXCH Q
048184,000093: 5123 35163 CAF EXECBANK
048185,000094: 5124 56006 XCH BBANK
048186,000095: 5125 12706 TCF CHANJOB
048187,000096:
048188,000097: # TO SUSPEND AN INTERPRETIVE JOB:
048189,000098:
048190,000099: 5126 40164 CHANG2 CS LOC # NEGATIVE LOC SHOWS JOB = INTERPRETIVE.
048191,000100: # ITRACE (4) REFERS TO "CHANG2".
048192,000101: 5127 54001 TS L
![]() |
Page 1104 |
048194,000103: 5130 35163 +2 CAF EXECBANK
048195,000104: 5131 54006 TS BBANK
048196,000105: 5132 12705 TCF CHANJOB -1
048197,000106:
![]() |
Page 1105 |
048199,000108: # TO VOLUNTARILY SUSPEND A JOB UNTIL THE COMPLETION OF SOME ANTICIPATED EVENT (I/O EVENT ETC.):
048200,000109:
048201,000110: 5133 54164 JOBSLEEP TS LOC
048202,000111: 5134 35163 CAF EXECBANK
048203,000112: 5135 54004 TS FBANK
048204,000113: 5136 12776 TCF JOBSLP1
048205,000114:
048206,000115: # TO AWAKEN A JOB PUT TO SLEEP IN THE ABOVE FASHION:
048207,000116:
048208,000117: 5137 00004 JOBWAKE INHINT
048209,000118: 5140 54065 TS NEWLOC
048210,000119: 5141 44752 CS TWO # EXIT IS VIA FINDVAC/NOVAC PROCEDURES.
048211,000120: 5142 26002 ADS Q
048212,000121: 5143 35163 CAF EXECBANK
048213,000122: 5144 56004 XCH FBANK
048214,000123: 5145 13023 TCF JOBWAKE2
048215,000124:
048216,000125: # TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION:
048217,000126:
048218,000127: 5146 00004 PRIOCHNG INHINT # NEW PRIORITY ARRIVES IN A. RETURNS TO
048219,000128: 5147 54063 TS NEWPRIO # CALLER AS SOON AS NEW JOB PRIORITY IS
048220,000129: 5150 35163 CAF EXECBANK # HIGHEST. PREPARE FOR POSSIBLE BASIC-
048221,000130: 5151 56006 XCH BBANK # STYLE CHANGE-JOB.
048222,000131: 5152 54165 TS BANKSET
048223,000132: 5153 30002 CA Q
048224,000133: 5154 13072 TCF PRIOCH2
048225,000134:
048226,000135: # TO REMOVE A JOB FROM EXECUTIVE CONSIDERATIONS:
048227,000136:
048228,000137: 5155 35163 ENDOFJOB CAF EXECBANK
048229,000138: 5156 54004 TS FBANK
048230,000139: 5157 13103 TCF ENDJOB1
048231,000140:
048232,000141: 5160 30061 ENDFIND CA EXECTEM1 # RETURN TO CALLER AFTER JOB ENTRY
048233,000142: 5161 54004 TS FBANK # COMPLETE.
048234,000143: 5162 16741 TCF Q+2
048235,000144: 5163 02601 EXECBANK CADR FINDVAC2
048236,000145:
048237,000146: 5164 00110 FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET)
048238,000147:
![]() |
Page 1106 |
048240,000149: # LOCATE AN AVAILABLE VAC AREA.
048241,000150:
048242,000151: 01,2601 BANK 01
048243,000152: 01,2601 COUNT* $$/EXEC
048244,000153: 01,2601 54061 FINDVAC2 TS EXECTEM1 # (SAVE CALLER'S BANK FIRST.)
048245,000154: 01,2602 10400 CCS VAC1USE
048246,000155: 01,2603 12620 TCF VACFOUND
048247,000156: 01,2604 10454 CCS VAC2USE
048248,000157: 01,2605 12620 TCF VACFOUND
048249,000158: 01,2606 10530 CCS VAC3USE
048250,000159: 01,2607 12620 TCF VACFOUND
048251,000160: 01,2610 10604 CCS VAC4USE
048252,000161: 01,2611 12620 TCF VACFOUND
048253,000162: 01,2612 10660 CCS VAC5USE
048254,000163: 01,2613 12620 TCF VACFOUND
048255,000164: 01,2614 22061 LXCH EXECTEM1
048256,000165: 01,2615 30002 CA Q
048257,000166: 01,2616 05716 TC BAILOUT1
048258,000167: 01,2617 01201 OCT 1201 # NO VAC AREAS.
048259,000168:
048260,000169: 01,2620 64752 VACFOUND AD TWO # RESERVE THIS VAC AREA BY STORING A ZERO
048261,000170: 01,2621 22007 ZL # IN ITS VAC USE REGISTER AND STORE THE
048262,000171: 01,2622 50000 INDEX A # ADDRESS OF THE FIRST WORD OF IT IN THE
048263,000172: 01,2623 21777 LXCH 0 -1 # LOW NINE BITS OF THE PRIORITY WORD.
048264,000173: 01,2624 26063 ADS NEWPRIO
048265,000174:
048266,000175: 01,2625 34755 NOVAC2 CAF ZERO # NOVAC ENTERS HERE. FIND A CORE SET.
048267,000176: 01,2626 54064 TS LOCCTR
048268,000177: 01,2627 32634 CAF NO.CORES # SEVEN SETS OF ELEVEN REGISTERS EACH.
048269,000178: 01,2630 54062 NOVAC3 TS EXECTEM2
048270,000179: 01,2631 50064 INDEX LOCCTR
048271,000180: 01,2632 10167 CCS PRIORITY # EACH PRIORITY REGISTER CONTAINS -0 IF
048272,000181: 01,2633 12674 TCF NEXTCORE # THE CORRESPONDING CORE SET IS AVAILABLE.
048273,000182: 01,2634 00007 NO.CORES DEC 7 B-14
048274,000183: 01,2635 12674 TCF NEXTCORE # AN ACTIVE JOB HAS A POSITIVE PRIORITY
048275,000184: # BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
048276,000185:
![]() |
Page 1107 |
048278,000187: 01,2636 30063 CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE
048279,000188: 01,2637 50064 INDEX LOCCTR # SET'S PRIORITY REGISTER AND SET THE
048280,000189: 01,2640 54167 TS PRIORITY # JOB'S PUSH-DOWN POINTER AT THE BEGINNING
048281,000190: 01,2641 75004 MASK LOW9 # OF THE WORK AREA AND OVERFLOW INDICATOR
048282,000191: 01,2642 50064 INDEX LOCCTR
048283,000192: 01,2643 54166 TS PUSHLOC # OFF TO PREPARE FOR INTERPRETIVE PROGRAMS
048284,000193:
048285,000194: 01,2644 10064 CCS LOCCTR # IF CORE SET ZERO IS BEING LOADED, SET UP
048286,000195: 01,2645 12661 TCF SETLOC # OVFIND AND FIXLOC IMMEDIATELY.
048287,000196: 01,2646 54121 TS OVFIND
048288,000197: 01,2647 30166 CA PUSHLOC
048289,000198: 01,2650 54120 TS FIXLOC
048290,000199:
048291,000200: 01,2651 10067 SPECTEST CCS NEWJOB # SEE IF ANY ACTIVE JOBS WAITING (RARE).
048292,000201: 01,2652 12661 TCF SETLOC # MUST BE AWAKENED BUT UNCHANGED JOB.
048293,000202: 01,2653 05705 TC CCSHOLE
048294,000203: 01,2654 05705 TC CCSHOLE
048295,000204: 01,2655 54067 TS NEWJOB # +0 SHOWS ACTIVE JOB ALREADY SET.
048296,000205: 01,2656 52066 DXCH NEWLOC
048297,000206: 01,2657 52165 DXCH LOC
048298,000207: 01,2660 15160 TCF ENDFIND
048299,000208:
048300,000209: 01,2661 52066 SETLOC DXCH NEWLOC # SET UP THE LOCATION REGISTERS FOR THIS
048301,000210: 01,2662 50064 INDEX LOCCTR
048302,000211: 01,2663 52165 DXCH LOC
048303,000212: 01,2664 50067 INDEX NEWJOB # THIS INDEX INSTRUCTION INSURES THAT THE
048304,000213: 01,2665 40167 CS PRIORITY # HIGHEST ACTIVE PRIORITY WILL BE COMPARED
048305,000214: 01,2666 60063 AD NEWPRIO # WITH THE NEW PRIORITY TO SEE IF NEWJOB
048306,000215: 01,2667 00006 EXTEND # SHOULD BE SET TO SIGNAL A SWITCH.
048307,000216: 01,2670 65160 BZMF ENDFIND
048308,000217: 01,2671 30064 CA LOCCTR # LOCCTR IS LEFT SET AT THIS CORE SET IF
048309,000218: 01,2672 54067 TS NEWJOB # THE CALLER WANTS TO LOAD ANY MPAC
048310,000219: 01,2673 15160 TCF ENDFIND # REGISTERS, ETC.
048311,000220:
048312,000221: 01,2674 33033 NEXTCORE CAF COREINC
048313,000222: 01,2675 26064 ADS LOCCTR
048314,000223: 01,2676 10062 CCS EXECTEM2
048315,000224: 01,2677 12630 TCF NOVAC3
048316,000225: 01,2700 22061 LXCH EXECTEM1
048317,000226: 01,2701 30002 CA Q
048318,000227: 01,2702 05716 TC BAILOUT1 # NO CORE SETS AVAILABLE.
048319,000228: 01,2703 01202 OCT 1202
![]() |
Page 1108 |
048321,000230: # THE FOLLOWING ROUTINE SWAPS CORE SET 0 WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB.
048322,000231:
048323,000232: 01,2704 22164 -2 LXCH LOC
048324,000233: 01,2705 30165 -1 CAE BANKSET # BANKSET, NOT BBANK, HAS RIGHT CONTENTS.
048325,000234: 01,2706 00004 CHANJOB INHINT
048326,000235: 01,2707 00006 EXTEND
048327,000236: 01,2710 04007 ROR SUPERBNK # PICK UP CURRENT SBANK FOR BBCON
048328,000237: 01,2711 56001 XCH L # LOC IN A AND BBCON IN L.
048329,000238: 01,2712 50067 +4 INDEX NEWJOB # SWAP LOC AND BANKSET.
048330,000239: 01,2713 52165 DXCH LOC
048331,000240: 01,2714 52165 DXCH LOC
048332,000241:
048333,000242: 01,2715 30165 CAE BANKSET
048334,000243: 01,2716 00006 EXTEND
048335,000244: 01,2717 01007 WRITE SUPERBNK # SET SBANK FOR NEW JOB.
048336,000245: 01,2720 52155 DXCH MPAC # SWAP MULTI-PURPOSE ACCUMULATOR AREAS.
048337,000246: 01,2721 50067 INDEX NEWJOB
048338,000247: 01,2722 52155 DXCH MPAC
048339,000248: 01,2723 52155 DXCH MPAC
048340,000249: 01,2724 52157 DXCH MPAC +2
048341,000250: 01,2725 50067 INDEX NEWJOB
048342,000251: 01,2726 52157 DXCH MPAC +2
048343,000252: 01,2727 52157 DXCH MPAC +2
048344,000253: 01,2730 52161 DXCH MPAC +4
048345,000254: 01,2731 50067 INDEX NEWJOB
048346,000255: 01,2732 52161 DXCH MPAC +4
048347,000256: 01,2733 52161 DXCH MPAC +4
048348,000257: 01,2734 52163 DXCH MPAC +6
048349,000258: 01,2735 50067 INDEX NEWJOB
048350,000259: 01,2736 52163 DXCH MPAC +6
048351,000260: 01,2737 52163 DXCH MPAC +6
048352,000261:
048353,000262: 01,2740 34755 CAF ZERO
048354,000263: 01,2741 56121 XCH OVFIND # MAKE PUSHLOC NEGATIVE IF OVFIND NZ.
048355,000264: 01,2742 00006 EXTEND
048356,000265: 01,2743 12746 BZF +3
048357,000266: 01,2744 40166 CS PUSHLOC
048358,000267: 01,2745 54166 TS PUSHLOC
048359,000268:
048360,000269: 01,2746 52167 DXCH PUSHLOC
048361,000270: 01,2747 50067 INDEX NEWJOB
048362,000271: 01,2750 52167 DXCH PUSHLOC
048363,000272: 01,2751 52167 DXCH PUSHLOC # SWAPS PUSHLOC AND PRIORITY.
048364,000273: 01,2752 35004 CAF LOW9 # SET FIXLOC TO BASE OF VAC AREA.
048365,000274: 01,2753 70167 MASK PRIORITY
048366,000275: 01,2754 54120 TS FIXLOC
048367,000276:
048368,000277: 01,2755 10166 CCS PUSHLOC # SET OVERFLOW INDICATOR ACCORDING TO
048369,000278: 01,2756 34755 CAF ZERO
048370,000279: 01,2757 12764 TCF ENDPRCHG -1
048371,000280:
![]() |
Page 1109 |
048373,000282: 01,2760 40166 CS PUSHLOC
048374,000283: 01,2761 54166 TS PUSHLOC
048375,000284: 01,2762 34753 CAF ONE
048376,000285: 01,2763 56121 XCH OVFIND
048377,000286: 01,2764 54067 TS NEWJOB
048378,000287:
048379,000288: 01,2765 00003 ENDPRCHG RELINT
048380,000289: 01,2766 52165 DXCH LOC # BASIC JOBS HAVE POSITIVE ADDRESSES, SO
048381,000290: 01,2767 00006 EXTEND # DISPATCH WITH A DTCB.
048382,000291: 01,2770 62772 BZMF +2 # IF INTERPRETIVE, SET UP EBANK, ETC.
048383,000292: 01,2771 52006 DTCB
![]() |
Page 1110 |
048385,000294: 01,2772 40000 COM # EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
048386,000295: 01,2773 64753 AD ONE
048387,000296: 01,2774 54164 TS LOC # RESUME.
048388,000297: 01,2775 16050 TCF INTRSM
048389,000298:
048390,000299: # COMPLETE JOBSLEEP PREPARATIONS.
048391,000300:
048392,000301: 01,2776 00004 JOBSLP1 INHINT
048393,000302: 01,2777 40167 CS PRIORITY # NNZ PRIORITY SHOWS JOB ASLEEP.
048394,000303: 01,3000 54167 TS PRIORITY
048395,000304: 01,3001 36074 CAF LOW7
048396,000305: 01,3002 70006 MASK BBANK
048397,000306: 01,3003 00006 EXTEND
048398,000307: 01,3004 04007 ROR SUPERBNK # SAVE OLD SUPERBANK VALUE.
048399,000308: 01,3005 54165 TS BANKSET
048400,000309: 01,3006 44755 CS ZERO
048401,000310: 01,3007 54131 JOBSLP2 TS BUF +1 # HOLDS - HIGHEST PRIORITY.
048402,000311: 01,3010 13120 TCF EJSCAN # SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
048403,000312:
048404,000313: 01,3011 00004 NUCHANG2 INHINT # QUICK... DONT LET NEWJOB CHANGE TO +0.
048405,000314: 01,3012 10067 CCS NEWJOB
048406,000315: 01,3013 13016 TCF +3 # NEWJOB STILL PNZ
048407,000316: 01,3014 00003 RELINT # NEW JOB HAS CHANGED TO +0. WAKE UP JOB
048408,000317: 01,3015 13216 TCF ADVAN +2 # VIA NUDIRECT. (VERY RARE CASE.)
048409,000318:
048410,000319: 01,3016 34752 CAF TWO
048411,000320: 01,3017 00006 EXTEND
048412,000321: 01,3020 05011 WOR DSALMOUT # TURN ON ACTIVITY LIGHT
048413,000322: 01,3021 52165 DXCH LOC # AND SAVE ADDRESS INFO FOR BENEFIT OF
048414,000323: 01,3022 12712 TCF CHANJOB +4 # POSSIBLE SLEEPING JOB.
048415,000324:
![]() |
Page 1111 |
048417,000326: # TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE
048418,000327: # LOC REGISTER OF ANY SUCH JOB MATCHES THAT SUPPLIED BY THE CALLER, THAT JOB IS AWAKENED. IF NO JOB IS FOUND,
048419,000328: # LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
048420,000329:
048421,000330: 01,3023 54061 JOBWAKE2 TS EXECTEM1
048422,000331: 01,3024 34755 CAF ZERO # BEGIN CORE SET SCAN.
048423,000332: 01,3025 54064 TS LOCCTR
048424,000333: 01,3026 32634 CAF NO.CORES
048425,000334: 01,3027 54062 JOBWAKE4 TS EXECTEM2
048426,000335: 01,3030 50064 INDEX LOCCTR
048427,000336: 01,3031 10167 CCS PRIORITY
048428,000337: 01,3032 13035 TCF JOBWAKE3 # ACTIVE JOB - CHECK NEXT CORE SET.
048429,000338: 01,3033 00014 COREINC DEC 12 B-14 # 12 REGISTERS PER CORE SET.
048430,000339: 01,3034 13044 TCF WAKETEST # SLEEPING JOB - SEE IF CADR MATCHES.
048431,000340:
048432,000341: 01,3035 33033 JOBWAKE3 CAF COREINC
048433,000342: 01,3036 26064 ADS LOCCTR
048434,000343: 01,3037 10062 CCS EXECTEM2
048435,000344: 01,3040 13027 TCF JOBWAKE4
048436,000345: 01,3041 44753 CS ONE # EXIT IF SLEEPING JOB NOT FOUND.
048437,000346: 01,3042 54064 TS LOCCTR
048438,000347: 01,3043 15160 TCF ENDFIND
048439,000348:
048440,000349: 01,3044 40065 WAKETEST CS NEWLOC
048441,000350: 01,3045 50064 INDEX LOCCTR
048442,000351: 01,3046 60164 AD LOC
048443,000352: 01,3047 00006 EXTEND
048444,000353: 01,3050 13052 BZF +2 # IF MATCH.
048445,000354: 01,3051 13035 TCF JOBWAKE3 # EXAMINE NEXT CORE SET IF NO MATCH.
048446,000355:
048447,000356: 01,3052 50064 INDEX LOCCTR # RE-COMPLEMENT PRIORITY TO SHOW JOB AWAKE
048448,000357: 01,3053 40167 CS PRIORITY
048449,000358: 01,3054 54063 TS NEWPRIO
048450,000359: 01,3055 50064 INDEX LOCCTR
048451,000360: 01,3056 54167 TS PRIORITY
048452,000361:
048453,000362: 01,3057 44350 CS FBANKMSK # MAKE UP THE 2CADR OF THE WAKE ADDRESS
048454,000363: 01,3060 70065 MASK NEWLOC # USING THE CADR IN NEWLOC AND THE EBANK
048455,000364: 01,3061 64741 AD 2K # HALF OF BBANK SAVED IN BANKSET.
048456,000365: 01,3062 56065 XCH NEWLOC
048457,000366: 01,3063 74350 MASK FBANKMSK
048458,000367: 01,3064 50064 INDEX LOCCTR
048459,000368: 01,3065 60165 AD BANKSET
048460,000369: 01,3066 54066 TS NEWLOC +1
048461,000370:
048462,000371: 01,3067 10064 CCS LOCCTR # SPECIAL TREATMENT IF THIS JOB WAS
048463,000372: 01,3070 12661 TCF SETLOC # ALREADY IN THE RUN (0) POSITION.
048464,000373: 01,3071 12651 TCF SPECTEST
048465,000374:
![]() |
Page 1112 |
048467,000376: # PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY.
048468,000377:
048469,000378: 01,3072 54164 PRIOCH2 TS LOC
048470,000379: 01,3073 34755 CAF ZERO # SET FLAG TO TELL ENDJOB SCANNER IF THIS
048471,000380: 01,3074 54130 TS BUF # JOB IS STILL HIGHEST PRIORITY.
048472,000381: 01,3075 35004 CAF LOW9
048473,000382: 01,3076 70167 MASK PRIORITY
048474,000383: 01,3077 60063 AD NEWPRIO
048475,000384: 01,3100 54167 TS PRIORITY
048476,000385: 01,3101 40000 COM
048477,000386: 01,3102 13007 TCF JOBSLP2 # AND TO EJSCAN.
048478,000387:
![]() |
Page 1113 |
048480,000389: # RELEASE THIS CORE SET AND VAC AREA AND SCAN FOR THE JOB OF HIGHEST ACTIVE PRIORITY.
048481,000390:
048482,000391: 01,3103 00004 ENDJOB1 INHINT
048483,000392: 01,3104 44755 CS ZERO
048484,000393: 01,3105 54131 TS BUF +1
048485,000394: 01,3106 56167 XCH PRIORITY
048486,000395: 01,3107 75004 MASK LOW9
048487,000396: 01,3110 54001 TS L
048488,000397:
048489,000398: 01,3111 45164 CS FAKEPRET
048490,000399: 01,3112 60001 AD L
048491,000400:
048492,000401: 01,3113 00006 EXTEND
048493,000402: 01,3114 63120 BZMF EJSCAN # NOVAC ENDOFJOB
048494,000403:
048495,000404: 01,3115 10001 CCS L
048496,000405: 01,3116 50000 INDEX A
048497,000406: 01,3117 54000 TS 0
048498,000407:
048499,000408: 01,3120 10203 EJSCAN CCS PRIORITY +12D
048500,000409: 01,3121 03171 TC EJ1
048501,000410: 01,3122 05705 TC CCSHOLE
048502,000411: 01,3123 13124 TCF +1
048503,000412:
048504,000413: 01,3124 10217 CCS PRIORITY +24D # EXAMINE EACH PRIORITY REGISTER TO FIND
048505,000414: 01,3125 03171 TC EJ1 # THE JOB OF HIGHEST ACTIVE PRIORITY.
048506,000415: 01,3126 05705 TC CCSHOLE
048507,000416: 01,3127 13130 TCF +1
048508,000417:
048509,000418: 01,3130 10233 CCS PRIORITY +36D
048510,000419: 01,3131 03171 TC EJ1
048511,000420: 01,3132 67610 -CCSPR -CCS PRIORITY
048512,000421: 01,3133 13134 TCF +1
048513,000422:
048514,000423: 01,3134 10247 CCS PRIORITY +48D
048515,000424: 01,3135 03171 TC EJ1
048516,000425: 01,3136 05705 TC CCSHOLE
048517,000426: 01,3137 13140 TCF +1
048518,000427:
048519,000428: 01,3140 10263 CCS PRIORITY +60D
048520,000429: 01,3141 03171 TC EJ1
048521,000430: 01,3142 05705 TC CCSHOLE
048522,000431: 01,3143 13144 TCF +1
048523,000432:
048524,000433: 01,3144 10277 CCS PRIORITY +72D
048525,000434: 01,3145 03171 TC EJ1
048526,000435: 01,3146 05705 TC CCSHOLE
048527,000436: 01,3147 13150 TCF +1
048528,000437:
048529,000438: 01,3150 10313 CCS PRIORITY +84D
![]() |
Page 1114 |
048531,000440: 01,3151 03171 TC EJ1
048532,000441: 01,3152 05705 TC CCSHOLE
048533,000442: 01,3153 13154 TCF +1
048534,000443:
![]() |
Page 1115 |
048536,000445: # EVALUATE THE RESULTS OF THE SCAN.
048537,000446:
048538,000447: 01,3154 10131 CCS BUF +1 # SEE IF THERE ARE ANY ACTIVE JOBS WAITING
048539,000448: 01,3155 05705 TC CCSHOLE
048540,000449: 01,3156 05705 TC CCSHOLE
048541,000450:
048542,000451: 01,3157 13161 TCF +2
048543,000452: 01,3160 13206 TCF DUMMYJOB
048544,000453: 01,3161 10130 CCS BUF # BUF IS ZERO IF THIS IS A PRIOCHNG AND
048545,000454: 01,3162 13164 TCF +2 # CHANGED PRIORITY IS STILL HIGHEST.
048546,000455: 01,3163 12764 TCF ENDPRCHG -1
048547,000456:
048548,000457: 01,3164 50000 INDEX A # OTHERWISE, SET NEWJOB TO THE RELATIVE
048549,000458: 01,3165 27777 CAF 0 -1 # ADDRESS OF THE NEW JOB'S CORE SET.
048550,000459: 01,3166 63132 AD -CCSPR
048551,000460: 01,3167 54067 TS NEWJOB
048552,000461: 01,3170 12704 TCF CHANJOB -2
048553,000462:
048554,000463: 01,3171 54132 EJ1 TS BUF +2
048555,000464: 01,3172 60131 AD BUF +1 # - OLD HIGH PRIORITY.
048556,000465: 01,3173 10000 CCS A
048557,000466: 01,3174 40132 CS BUF +2
048558,000467: 01,3175 13201 TCF EJ2 # NEW HIGH PRIORITY.
048559,000468: 01,3176 13177 NOOP
048560,000469: 01,3177 50002 INDEX Q
048561,000470: 01,3200 00002 TC 2 # PROCEED WITH SEARCH.
048562,000471:
048563,000472: 01,3201 54131 EJ2 TS BUF +1
048564,000473: 01,3202 00006 EXTEND
048565,000474: 01,3203 22130 QXCH BUF # FOR LOCATING CCS PRIORITY + X INSTR.
048566,000475: 01,3204 50130 INDEX BUF
048567,000476: 01,3205 00002 TC 2
048568,000477:
![]() |
Page 1116 |
048570,000479: # IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF,
048571,000480: # BUT RATHER A SUBROUTINE OF THE EXECUTIVE.
048572,000481:
048573,000482: 01,3206 1361 EBANK= SELFRET # SELF-CHECK STORAGE IN EBANK.
048574,000483:
048575,000484: 01,3206 44755 DUMMYJOB CS ZERO # SET NEWJOB TO -0 FOR IDLING.
048576,000485: 01,3207 54067 TS NEWJOB
048577,000486: 01,3210 00003 RELINT
048578,000487: 01,3211 44752 CS TWO # TURN OFF THE ACTIVITY LIGHT.
048579,000488: 01,3212 00006 EXTEND
048580,000489: 01,3213 03011 WAND DSALMOUT
048581,000490: 01,3214 10067 ADVAN CCS NEWJOB # IS A NEWJOB ACTIVE?
048582,000491: 01,3215 13011 TCF NUCHANG2 # YES... ONE REQUIRING A CHANGE JOB.
048583,000492: 01,3216 34752 CAF TWO # NEW JOB ALREADY IN POSITION FOR
048584,000493: 01,3217 13225 TCF NUDIRECT # EXECUTION.
048585,000494:
048586,000495: 01,3220 31361 CA SELFRET
048587,000496: 01,3221 54001 TS L # PUT RETURN ADDRESS IN L.
048588,000497: 01,3222 33224 CAF SELFBANK
048589,000498: 01,3223 15166 TCF SUPDXCHZ +1 # AND DISPATCH JOB.
048590,000499:
048591,000500: 01,3224 1361 EBANK= SELFRET
048592,000501: 01,3224 66102 SELFBANK BBCON SELFCHK
048593,000502:
048594,000503: 01,3225 00006 NUDIRECT EXTEND # TURN THE GREEN LIGHT BACK ON.
048595,000504: 01,3226 05011 WOR DSALMOUT
048596,000505: 01,3227 52165 DXCH LOC # JOBS STARTED IN THIS FASHION MUST BE
048597,000506: 01,3230 15165 TCF SUPDXCHZ
048598,000507:
048599,000508: 5165 BLOCK 2 # IN FIXED-FIXED SO OTHERS MAY USE.
048600,000509:
048601,000510: 5165 COUNT* $$/EXEC
048602,000511:
048603,000512: # SUPDXCHZ - ROUTINE TO TRANSFER TO SUPERBANK.
048604,000513: # CALLING SEQUENCE
048605,000514: # TCF SUPDXCHZ WITH 2CADR OF DESIRED LOCATION IN A + L.
048606,000515:
048607,000516: 5165 56001 SUPDXCHZ XCH L # BASIC.
048608,000517: 5166 00006 +1 EXTEND
048609,000518: 5167 01007 WRITE SUPERBNK
048610,000519: 5170 54006 TS BBANK
048611,000520: 5171 00001 TC L
048612,000521:
048613,000522: 5172 77677 NEG100 OCT 77677
048614,000523:
End of include-file EXECUTIVE.agc. Parent file is MAIN.agc