GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision.
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,1968Note that the date is the date of the printout, not the date of the program revision. |
047646,000002: ## Copyright: Public domain.
047647,000003: ## Filename: EXECUTIVE.agc
047648,000004: ## Purpose: The main source file for Luminary revision 069.
047649,000005: ## It is part of the source code for the original release
047650,000006: ## of the flight software for the Lunar Module's (LM) Apollo
047651,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
047652,000008: ## version was Luminary 69 revision 2, which included a
047653,000009: ## newer lunar gravity model and only affected module 2.
047654,000010: ## This file is intended to be a faithful transcription, except
047655,000011: ## that the code format has been changed to conform to the
047656,000012: ## requirements of the yaYUL assembler rather than the
047657,000013: ## original YUL assembler.
047658,000014: ## Reference: pp. 1098-1111
047659,000015: ## Assembler: yaYUL
047660,000016: ## Contact: Ron Burkey <info@sandroid.org>.
047661,000017: ## Website: www.ibiblio.org/apollo/index.html
047662,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
047663,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
047664,000020: ## 2017-01-22 HG Transcribed
047665,000021: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
047666,000022: ## but no errors found.
047667,000023:
|
|
Page 1098 |
047669,000025: 5072 BLOCK 02
047670,000026: # TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
047671,000027:
047672,000028: 5072 COUNT* $$/EXEC
047673,000029: 5072 00004 NOVAC INHINT
047674,000030: 5073 65164 AD FAKEPRET # LOC(MPAC +6) - LOC(QPRET)
047675,000031: 5074 54063 TS NEWPRIO # PRIORITY OF NEW JOB + NOVAC C(FIXLOC)
047676,000032:
047677,000033: 5075 00006 EXTEND
047678,000034: 5076 50002 INDEX Q # Q WILL BE UNDISTURBED THROUGHOUT.
047679,000035: 5077 30001 DCA 0 # 2CADR OF JOB ENTERED.
047680,000036: 5100 52066 DXCH NEWLOC
047681,000037: 5101 35163 CAF EXECBANK
047682,000038: 5102 56004 XCH FBANK
047683,000039: 5103 54061 TS EXECTEM1
047684,000040: 5104 12622 TCF NOVAC2 # ENTER EXECUTIVE BANK.
047685,000041:
047686,000042: # TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
047687,000043:
047688,000044: 5105 00004 FINDVAC INHINT
047689,000045: 5106 54063 TS NEWPRIO
047690,000046: 5107 00006 EXTEND
047691,000047: 5110 50002 INDEX Q
047692,000048: 5111 30001 DCA 0
047693,000049: 5112 52066 SPVACIN DXCH NEWLOC
047694,000050: 5113 35163 CAF EXECBANK
047695,000051: 5114 56004 XCH FBANK
047696,000052: 5115 12576 TCF FINDVAC2 # OFF TO EXECUTIVE SWITCHED-BANK.
047697,000053:
047698,000054: # TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L:
047699,000055:
047700,000056: # USERS OF SPVAC MUST INHINT BEFORE STORING IN NEWPRIO.
047701,000057:
047702,000058: 5116 56002 SPVAC XCH Q
047703,000059: 5117 67745 AD NEG2
047704,000060: 5120 56002 XCH Q
047705,000061: 5121 15112 TCF SPVACIN
047706,000062:
047707,000063: # TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICED:
047708,000064:
047709,000065: 5122 22002 CHANG1 LXCH Q
047710,000066: 5123 35163 CAF EXECBANK
047711,000067: 5124 56006 XCH BBANK
047712,000068: 5125 12703 TCF CHANJOB
047713,000069:
047714,000070: # TO SUSPEND AN INTERPRETIVE JOB:
047715,000071:
047716,000072: 5126 40164 CHANG2 CS LOC # NEGATIVE LOC SHOWS JOB = INTERPRETIVE.
047717,000073: # ITRACE (4) REFERS TO "CHANG2".
047718,000074: 5127 54001 TS L
047719,000075:
|
|
Page 1099 |
047721,000077: 5130 35163 +2 CAF EXECBANK
047722,000078: 5131 54006 TS BBANK
047723,000079: 5132 12702 TCF CHANJOB -1
047724,000080:
|
|
Page 1100 |
047726,000082: # TO VOLUNTARILY SUSPEND A JOB UNTIL THE COMPLETION OF SOME ANTICIPATED EVENT (I/O EVENT ETC.):
047727,000083:
047728,000084: 5133 54164 JOBSLEEP TS LOC
047729,000085: 5134 35163 CAF EXECBANK
047730,000086: 5135 54004 TS FBANK
047731,000087: 5136 12773 TCF JOBSLP1
047732,000088:
047733,000089: # TO AWAKEN A JOB PUT TO SLEEP IN THE ABOVE FASHION:
047734,000090:
047735,000091: 5137 00004 JOBWAKE INHINT
047736,000092: 5140 54065 TS NEWLOC
047737,000093: 5141 44752 CS TWO # EXIT IS VIA FINDVAC/NOVAC PROCEDURES.
047738,000094: 5142 26002 ADS Q
047739,000095: 5143 35163 CAF EXECBANK
047740,000096: 5144 56004 XCH FBANK
047741,000097: 5145 13020 TCF JOBWAKE2
047742,000098:
047743,000099: # TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION:
047744,000100:
047745,000101: 5146 00004 PRIOCHNG INHINT # NEW PRIORITY ARRIVES IN A. RETURNS TO
047746,000102: 5147 54063 TS NEWPRIO # CALLER AS SOON AS NEW JOB PRIORITY IS
047747,000103: 5150 35163 CAF EXECBANK # HIGHEST. PREPARE FOR POSSIBLE BASIC-
047748,000104: 5151 56006 XCH BBANK # STYLE CHANGE-JOB.
047749,000105: 5152 54165 TS BANKSET
047750,000106: 5153 30002 CA Q
047751,000107: 5154 13067 TCF PRIOCH2
047752,000108:
047753,000109: # TO REMOVE A JOB FROM EXECUTIVE CONSIDERATIONS:
047754,000110:
047755,000111: 5155 35163 ENDOFJOB CAF EXECBANK
047756,000112: 5156 54004 TS FBANK
047757,000113: 5157 13100 TCF ENDJOB1
047758,000114:
047759,000115: 5160 30061 ENDFIND CA EXECTEM1 # RETURN TO CALLER AFTER JOB ENTRY
047760,000116: 5161 54004 TS FBANK # COMPLETE.
047761,000117: 5162 16740 TCF Q+2
047762,000118: 5163 02576 EXECBANK CADR FINDVAC2
047763,000119:
047764,000120: 5164 00110 FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET)
047765,000121:
|
|
Page 1101 |
047767,000123: # LOCATE AN AVAILABLE VAC AREA.
047768,000124:
047769,000125: 01,2576 BANK 01
047770,000126: 01,2576 COUNT* $$/EXEC
047771,000127: 01,2576 54061 FINDVAC2 TS EXECTEM1 # (SAVE CALLER'S BANK FIRST.)
047772,000128: 01,2577 10400 CCS VAC1USE
047773,000129: 01,2600 12615 TCF VACFOUND
047774,000130: 01,2601 10454 CCS VAC2USE
047775,000131: 01,2602 12615 TCF VACFOUND
047776,000132: 01,2603 10530 CCS VAC3USE
047777,000133: 01,2604 12615 TCF VACFOUND
047778,000134: 01,2605 10604 CCS VAC4USE
047779,000135: 01,2606 12615 TCF VACFOUND
047780,000136: 01,2607 10660 CCS VAC5USE
047781,000137: 01,2610 12615 TCF VACFOUND
047782,000138: 01,2611 22061 LXCH EXECTEM1
047783,000139: 01,2612 30002 CA Q
047784,000140: 01,2613 05710 TC BAILOUT1
047785,000141: 01,2614 01201 OCT 1201 # NO VAC AREAS.
047786,000142:
047787,000143: 01,2615 64752 VACFOUND AD TWO # RESERVE THIS VAC AREA BY STORING A ZERO
047788,000144: 01,2616 22007 ZL # IN ITS VAC USE REGISTER AND STORE THE
047789,000145: 01,2617 50000 INDEX A # ADDRESS OF THE FIRST WORD OF IT IN THE
047790,000146: 01,2620 21777 LXCH 0 -1 # LOW NINE BITS OF THE PRIORITY WORD.
047791,000147: 01,2621 26063 ADS NEWPRIO
047792,000148:
047793,000149: 01,2622 34755 NOVAC2 CAF ZERO # NOVAC ENTERS HERE. FIND A CORE SET.
047794,000150: 01,2623 54064 TS LOCCTR
047795,000151: 01,2624 32631 CAF NO.CORES # SEVEN SETS OF ELEVEN REGISTERS EACH.
047796,000152: 01,2625 54062 NOVAC3 TS EXECTEM2
047797,000153: 01,2626 50064 INDEX LOCCTR
047798,000154: 01,2627 10167 CCS PRIORITY # EACH PRIORITY REGISTER CONTAINS -0 IF
047799,000155: 01,2630 12671 TCF NEXTCORE # THE CORRESPONDING CORE SET IS AVAILABLE.
047800,000156: 01,2631 00007 NO.CORES DEC 7 B-14
047801,000157: 01,2632 12671 TCF NEXTCORE # AN ACTIVE JOB HAS A POSITIVE PRIORITY
047802,000158: # BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
047803,000159:
|
|
Page 1102 |
047805,000161: 01,2633 30063 CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE
047806,000162: 01,2634 50064 INDEX LOCCTR # SET'S PRIORITY REGISTER AND SET THE
047807,000163: 01,2635 54167 TS PRIORITY # JOB'S PUSH-DOWN POINTER AT THE BEGINNING
047808,000164: 01,2636 75004 MASK LOW9 # OF THE WORK AREA AND OVERFLOW INDICATOR
047809,000165: 01,2637 50064 INDEX LOCCTR
047810,000166: 01,2640 54166 TS PUSHLOC # OFF TO PREPARE FOR INTERPRETIVE PROGRAMS
047811,000167:
047812,000168: 01,2641 10064 CCS LOCCTR # IF CORE SET ZERO IS BEING LOADED, SET UP
047813,000169: 01,2642 12656 TCF SETLOC # OVFIND AND FIXLOC IMMEDIATELY.
047814,000170: 01,2643 54121 TS OVFIND
047815,000171: 01,2644 30166 CA PUSHLOC
047816,000172: 01,2645 54120 TS FIXLOC
047817,000173:
047818,000174: 01,2646 10067 SPECTEST CCS NEWJOB # SEE IF ANY ACTIVE JOBS WAITING (RARE).
047819,000175: 01,2647 12656 TCF SETLOC # MUST BE AWAKENED BUT UNCHANGED JOB.
047820,000176: 01,2650 05677 TC CCSHOLE
047821,000177: 01,2651 05677 TC CCSHOLE
047822,000178: 01,2652 54067 TS NEWJOB # +0 SHOWS ACTIVE JOB ALREADY SET.
047823,000179: 01,2653 52066 DXCH NEWLOC
047824,000180: 01,2654 52165 DXCH LOC
047825,000181: 01,2655 15160 TCF ENDFIND
047826,000182:
047827,000183: 01,2656 52066 SETLOC DXCH NEWLOC # SET UP THE LOCATION REGISTERS FOR THIS
047828,000184: 01,2657 50064 INDEX LOCCTR
047829,000185: 01,2660 52165 DXCH LOC
047830,000186: 01,2661 50067 INDEX NEWJOB # THIS INDEX INSTRUCTION INSURES THAT THE
047831,000187: 01,2662 40167 CS PRIORITY # HIGHEST ACTIVE PRIORITY WILL BE COMPARED
047832,000188: 01,2663 60063 AD NEWPRIO # WITH THE NEW PRIORITY TO SEE IF NEWJOB
047833,000189: 01,2664 00006 EXTEND # SHOULD BE SET TO SIGNAL A SWITCH.
047834,000190: 01,2665 65160 BZMF ENDFIND
047835,000191: 01,2666 30064 CA LOCCTR # LOCCTR IS LEFT SET AT THIS CORE SET IF
047836,000192: 01,2667 54067 TS NEWJOB # THE CALLER WANTS TO LOAD ANY MPAC
047837,000193: 01,2670 15160 TCF ENDFIND # REGISTERS, ETC.
047838,000194:
047839,000195: 01,2671 33030 NEXTCORE CAF COREINC
047840,000196: 01,2672 26064 ADS LOCCTR
047841,000197: 01,2673 10062 CCS EXECTEM2
047842,000198: 01,2674 12625 TCF NOVAC3
047843,000199: 01,2675 22061 LXCH EXECTEM1
047844,000200: 01,2676 30002 CA Q
047845,000201: 01,2677 05710 TC BAILOUT1 # NO CORE SETS AVAILABLE.
047846,000202: 01,2700 01202 OCT 1202
047847,000203:
|
|
Page 1103 |
047849,000205: # THE FOLLOWING ROUTINE SWAPS CORE SET 0 WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB.
047850,000206:
047851,000207: 01,2701 22164 -2 LXCH LOC
047852,000208: 01,2702 30165 -1 CAE BANKSET # BANKSET, NOT BBANK, HAS RIGHT CONTENTS.
047853,000209: 01,2703 00004 CHANJOB INHINT
047854,000210: 01,2704 00006 EXTEND
047855,000211: 01,2705 04007 ROR SUPERBNK # PICK UP CURRENT SBANK FOR BBCON
047856,000212: 01,2706 56001 XCH L # LOC IN A AND BBCON IN L.
047857,000213: 01,2707 50067 +4 INDEX NEWJOB # SWAP LOC AND BANKSET.
047858,000214: 01,2710 52165 DXCH LOC
047859,000215: 01,2711 52165 DXCH LOC
047860,000216:
047861,000217: 01,2712 30165 CAE BANKSET
047862,000218: 01,2713 00006 EXTEND
047863,000219: 01,2714 01007 WRITE SUPERBNK # SET SBANK FOR NEW JOB.
047864,000220: 01,2715 52155 DXCH MPAC # SWAP MULTI-PURPOSE ACCUMULATOR AREAS.
047865,000221: 01,2716 50067 INDEX NEWJOB
047866,000222: 01,2717 52155 DXCH MPAC
047867,000223: 01,2720 52155 DXCH MPAC
047868,000224: 01,2721 52157 DXCH MPAC +2
047869,000225: 01,2722 50067 INDEX NEWJOB
047870,000226: 01,2723 52157 DXCH MPAC +2
047871,000227: 01,2724 52157 DXCH MPAC +2
047872,000228: 01,2725 52161 DXCH MPAC +4
047873,000229: 01,2726 50067 INDEX NEWJOB
047874,000230: 01,2727 52161 DXCH MPAC +4
047875,000231: 01,2730 52161 DXCH MPAC +4
047876,000232: 01,2731 52163 DXCH MPAC +6
047877,000233: 01,2732 50067 INDEX NEWJOB
047878,000234: 01,2733 52163 DXCH MPAC +6
047879,000235: 01,2734 52163 DXCH MPAC +6
047880,000236:
047881,000237: 01,2735 34755 CAF ZERO
047882,000238: 01,2736 56121 XCH OVFIND # MAKE PUSHLOC NEGATIVE IF OVFIND NZ.
047883,000239: 01,2737 00006 EXTEND
047884,000240: 01,2740 12743 BZF +3
047885,000241: 01,2741 40166 CS PUSHLOC
047886,000242: 01,2742 54166 TS PUSHLOC
047887,000243:
047888,000244: 01,2743 52167 DXCH PUSHLOC
047889,000245: 01,2744 50067 INDEX NEWJOB
047890,000246: 01,2745 52167 DXCH PUSHLOC
047891,000247: 01,2746 52167 DXCH PUSHLOC # SWAPS PUSHLOC AND PRIORITY.
047892,000248: 01,2747 35004 CAF LOW9 # SET FIXLOC TO BASE OF VAC AREA.
047893,000249: 01,2750 70167 MASK PRIORITY
047894,000250: 01,2751 54120 TS FIXLOC
047895,000251:
047896,000252: 01,2752 10166 CCS PUSHLOC # SET OVERFLOW INDICATOR ACCORDING TO
047897,000253: 01,2753 34755 CAF ZERO
047898,000254: 01,2754 12761 TCF ENDPRCHG -1
047899,000255:
|
|
Page 1104 |
047901,000257: 01,2755 40166 CS PUSHLOC
047902,000258: 01,2756 54166 TS PUSHLOC
047903,000259: 01,2757 34753 CAF ONE
047904,000260: 01,2760 56121 XCH OVFIND
047905,000261: 01,2761 54067 TS NEWJOB
047906,000262:
047907,000263: 01,2762 00003 ENDPRCHG RELINT
047908,000264: 01,2763 52165 DXCH LOC # BASIC JOBS HAVE POSITIVE ADDRESSES, SO
047909,000265: 01,2764 00006 EXTEND # DISPATCH WITH A DTCB.
047910,000266: 01,2765 62767 BZMF +2 # IF INTERPRETIVE, SET UP EBANK, ETC.
047911,000267: 01,2766 52006 DTCB
047912,000268:
|
|
Page 1105 |
047914,000270: 01,2767 40000 COM # EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
047915,000271: 01,2770 64753 AD ONE
047916,000272: 01,2771 54164 TS LOC # RESUME.
047917,000273: 01,2772 16047 TCF INTRSM
047918,000274:
047919,000275: # COMPLETE JOBSLEEP PREPARATIONS.
047920,000276:
047921,000277: 01,2773 00004 JOBSLP1 INHINT
047922,000278: 01,2774 40167 CS PRIORITY # NNZ PRIORITY SHOWS JOB ASLEEP.
047923,000279: 01,2775 54167 TS PRIORITY
047924,000280: 01,2776 36073 CAF LOW7
047925,000281: 01,2777 70006 MASK BBANK
047926,000282: 01,3000 00006 EXTEND
047927,000283: 01,3001 04007 ROR SUPERBNK # SAVE OLD SUPERBANK VALUE.
047928,000284: 01,3002 54165 TS BANKSET
047929,000285: 01,3003 44755 CS ZERO
047930,000286: 01,3004 54131 JOBSLP2 TS BUF +1 # HOLDS - HIGHEST PRIORITY.
047931,000287: 01,3005 13115 TCF EJSCAN # SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
047932,000288:
047933,000289: 01,3006 00004 NUCHANG2 INHINT # QUICK... DONT LET NEWJOB CHANGE TO +0.
047934,000290: 01,3007 10067 CCS NEWJOB
047935,000291: 01,3010 13013 TCF +3 # NEWJOB STILL PNZ
047936,000292: 01,3011 00003 RELINT # NEW JOB HAS CHANGED TO +0. WAKE UP JOB
047937,000293: 01,3012 13213 TCF ADVAN +2 # VIA NUDIRECT. (VERY RARE CASE.)
047938,000294:
047939,000295: 01,3013 34752 CAF TWO
047940,000296: 01,3014 00006 EXTEND
047941,000297: 01,3015 05011 WOR DSALMOUT # TURN ON ACTIVITY LIGHT
047942,000298: 01,3016 52165 DXCH LOC # AND SAVE ADDRESS INFO FOR BENEFIT OF
047943,000299: 01,3017 12707 TCF CHANJOB +4 # POSSIBLE SLEEPING JOB.
047944,000300:
|
|
Page 1106 |
047946,000302: # TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE
047947,000303: # LOC REGISTER OF ANY SUCH JOB MATCHES THAT SUPPLIED BY THE CALLER, THAT JOB IS AWAKENED. IF NO JOB IS FOUND,
047948,000304: # LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
047949,000305:
047950,000306: 01,3020 54061 JOBWAKE2 TS EXECTEM1
047951,000307: 01,3021 34755 CAF ZERO # BEGIN CORE SET SCAN.
047952,000308: 01,3022 54064 TS LOCCTR
047953,000309: 01,3023 32631 CAF NO.CORES
047954,000310: 01,3024 54062 JOBWAKE4 TS EXECTEM2
047955,000311: 01,3025 50064 INDEX LOCCTR
047956,000312: 01,3026 10167 CCS PRIORITY
047957,000313: 01,3027 13032 TCF JOBWAKE3 # ACTIVE JOB - CHECK NEXT CORE SET.
047958,000314: 01,3030 00014 COREINC DEC 12 B-14 # 12 REGISTERS PER CORE SET.
047959,000315: 01,3031 13041 TCF WAKETEST # SLEEPING JOB - SEE IF CADR MATCHES.
047960,000316:
047961,000317: 01,3032 33030 JOBWAKE3 CAF COREINC
047962,000318: 01,3033 26064 ADS LOCCTR
047963,000319: 01,3034 10062 CCS EXECTEM2
047964,000320: 01,3035 13024 TCF JOBWAKE4
047965,000321: 01,3036 44753 CS ONE # EXIT IF SLEEPING JOB NOT FOUND.
047966,000322: 01,3037 54064 TS LOCCTR
047967,000323: 01,3040 15160 TCF ENDFIND
047968,000324:
047969,000325: 01,3041 40065 WAKETEST CS NEWLOC
047970,000326: 01,3042 50064 INDEX LOCCTR
047971,000327: 01,3043 60164 AD LOC
047972,000328: 01,3044 00006 EXTEND
047973,000329: 01,3045 13047 BZF +2 # IF MATCH.
047974,000330: 01,3046 13032 TCF JOBWAKE3 # EXAMINE NEXT CORE SET IF NO MATCH.
047975,000331:
047976,000332: 01,3047 50064 INDEX LOCCTR # RE-COMPLEMENT PRIORITY TO SHOW JOB AWAKE
047977,000333: 01,3050 40167 CS PRIORITY
047978,000334: 01,3051 54063 TS NEWPRIO
047979,000335: 01,3052 50064 INDEX LOCCTR
047980,000336: 01,3053 54167 TS PRIORITY
047981,000337:
047982,000338: 01,3054 44350 CS FBANKMSK # MAKE UP THE 2CADR OF THE WAKE ADDRESS
047983,000339: 01,3055 70065 MASK NEWLOC # USING THE CADR IN NEWLOC AND THE EBANK
047984,000340: 01,3056 64741 AD 2K # HALF OF BBANK SAVED IN BANKSET.
047985,000341: 01,3057 56065 XCH NEWLOC
047986,000342: 01,3060 74350 MASK FBANKMSK
047987,000343: 01,3061 50064 INDEX LOCCTR
047988,000344: 01,3062 60165 AD BANKSET
047989,000345: 01,3063 54066 TS NEWLOC +1
047990,000346:
047991,000347: 01,3064 10064 CCS LOCCTR # SPECIAL TREATMENT IF THIS JOB WAS
047992,000348: 01,3065 12656 TCF SETLOC # ALREADY IN THE RUN (0) POSITION.
047993,000349: 01,3066 12646 TCF SPECTEST
047994,000350:
|
|
Page 1107 |
047996,000352: # PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY.
047997,000353:
047998,000354: 01,3067 54164 PRIOCH2 TS LOC
047999,000355: 01,3070 34755 CAF ZERO # SET FLAG TO TELL ENDJOB SCANNER IF THIS
048000,000356: 01,3071 54130 TS BUF # JOB IS STILL HIGHEST PRIORITY.
048001,000357: 01,3072 35004 CAF LOW9
048002,000358: 01,3073 70167 MASK PRIORITY
048003,000359: 01,3074 60063 AD NEWPRIO
048004,000360: 01,3075 54167 TS PRIORITY
048005,000361: 01,3076 40000 COM
048006,000362: 01,3077 13004 TCF JOBSLP2 # AND TO EJSCAN.
048007,000363:
|
|
Page 1108 |
048009,000365: # RELEASE THIS CORE SET AND VAC AREA AND SCAN FOR THE JOB OF HIGHEST ACTIVE PRIORITY.
048010,000366:
048011,000367: 01,3100 00004 ENDJOB1 INHINT
048012,000368: 01,3101 44755 CS ZERO
048013,000369: 01,3102 54131 TS BUF +1
048014,000370: 01,3103 56167 XCH PRIORITY
048015,000371: 01,3104 75004 MASK LOW9
048016,000372: 01,3105 54001 TS L
048017,000373:
048018,000374: 01,3106 45164 CS FAKEPRET
048019,000375: 01,3107 60001 AD L
048020,000376:
048021,000377: 01,3110 00006 EXTEND
048022,000378: 01,3111 63115 BZMF EJSCAN # NOVAC ENDOFJOB
048023,000379:
048024,000380: 01,3112 10001 CCS L
048025,000381: 01,3113 50000 INDEX A
048026,000382: 01,3114 54000 TS 0
048027,000383:
048028,000384: 01,3115 10203 EJSCAN CCS PRIORITY +12D
048029,000385: 01,3116 03166 TC EJ1
048030,000386: 01,3117 05677 TC CCSHOLE
048031,000387: 01,3120 13121 TCF +1
048032,000388:
048033,000389: 01,3121 10217 CCS PRIORITY +24D # EXAMINE EACH PRIORITY REGISTER TO FIND
048034,000390: 01,3122 03166 TC EJ1 # THE JOB OF HIGHEST ACTIVE PRIORITY.
048035,000391: 01,3123 05677 TC CCSHOLE
048036,000392: 01,3124 13125 TCF +1
048037,000393:
048038,000394: 01,3125 10233 CCS PRIORITY +36D
048039,000395: 01,3126 03166 TC EJ1
048040,000396: 01,3127 67610 -CCSPR -CCS PRIORITY
048041,000397: 01,3130 13131 TCF +1
048042,000398:
048043,000399: 01,3131 10247 CCS PRIORITY +48D
048044,000400: 01,3132 03166 TC EJ1
048045,000401: 01,3133 05677 TC CCSHOLE
048046,000402: 01,3134 13135 TCF +1
048047,000403:
048048,000404: 01,3135 10263 CCS PRIORITY +60D
048049,000405: 01,3136 03166 TC EJ1
048050,000406: 01,3137 05677 TC CCSHOLE
048051,000407: 01,3140 13141 TCF +1
048052,000408:
048053,000409: 01,3141 10277 CCS PRIORITY +72D
048054,000410: 01,3142 03166 TC EJ1
048055,000411: 01,3143 05677 TC CCSHOLE
048056,000412: 01,3144 13145 TCF +1
048057,000413:
048058,000414: 01,3145 10313 CCS PRIORITY +84D
048059,000415:
|
|
Page 1109 |
048061,000417: 01,3146 03166 TC EJ1
048062,000418: 01,3147 05677 TC CCSHOLE
048063,000419: 01,3150 13151 TCF +1
048064,000420:
|
|
Page 1110 |
048066,000422: # EVALUATE THE RESULTS OF THE SCAN.
048067,000423:
048068,000424: 01,3151 10131 CCS BUF +1 # SEE IF THERE ARE ANY ACTIVE JOBS WAITING
048069,000425: 01,3152 05677 TC CCSHOLE
048070,000426: 01,3153 05677 TC CCSHOLE
048071,000427:
048072,000428: 01,3154 13156 TCF +2
048073,000429: 01,3155 13203 TCF DUMMYJOB
048074,000430: 01,3156 10130 CCS BUF # BUF IS ZERO IF THIS IS A PRIOCHNG AND
048075,000431: 01,3157 13161 TCF +2 # CHANGED PRIORITY IS STILL HIGHEST.
048076,000432: 01,3160 12761 TCF ENDPRCHG -1
048077,000433:
048078,000434: 01,3161 50000 INDEX A # OTHERWISE, SET NEWJOB TO THE RELATIVE
048079,000435: 01,3162 27777 CAF 0 -1 # ADDRESS OF THE NEW JOB'S CORE SET.
048080,000436: 01,3163 63127 AD -CCSPR
048081,000437: 01,3164 54067 TS NEWJOB
048082,000438: 01,3165 12701 TCF CHANJOB -2
048083,000439:
048084,000440: 01,3166 54132 EJ1 TS BUF +2
048085,000441: 01,3167 60131 AD BUF +1 # - OLD HIGH PRIORITY.
048086,000442: 01,3170 10000 CCS A
048087,000443: 01,3171 40132 CS BUF +2
048088,000444: 01,3172 13176 TCF EJ2 # NEW HIGH PRIORITY.
048089,000445: 01,3173 13174 NOOP
048090,000446: 01,3174 50002 INDEX Q
048091,000447: 01,3175 00002 TC 2 # PROCEED WITH SEARCH.
048092,000448:
048093,000449: 01,3176 54131 EJ2 TS BUF +1
048094,000450: 01,3177 00006 EXTEND
048095,000451: 01,3200 22130 QXCH BUF # FOR LOCATING CCS PRIORITY + X INSTR.
048096,000452: 01,3201 50130 INDEX BUF
048097,000453: 01,3202 00002 TC 2
048098,000454:
|
|
Page 1111 |
048100,000456: # IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF,
048101,000457: # BUT RATHER A SUBROUTINE OF THE EXECUTIVE.
048102,000458:
048103,000459: 01,3203 1361 EBANK= SELFRET # SELF-CHECK STORAGE IN EBANK.
048104,000460:
048105,000461: 01,3203 44755 DUMMYJOB CS ZERO # SET NEWJOB TO -0 FOR IDLING.
048106,000462: 01,3204 54067 TS NEWJOB
048107,000463: 01,3205 00003 RELINT
048108,000464: 01,3206 44752 CS TWO # TURN OFF THE ACTIVITY LIGHT.
048109,000465: 01,3207 00006 EXTEND
048110,000466: 01,3210 03011 WAND DSALMOUT
048111,000467: 01,3211 10067 ADVAN CCS NEWJOB # IS A NEWJOB ACTIVE?
048112,000468: 01,3212 13006 TCF NUCHANG2 # YES... ONE REQUIRING A CHANGE JOB.
048113,000469: 01,3213 34752 CAF TWO # NEW JOB ALREADY IN POSITION FOR
048114,000470: 01,3214 13222 TCF NUDIRECT # EXECUTION.
048115,000471:
048116,000472: 01,3215 31361 CA SELFRET
048117,000473: 01,3216 54001 TS L # PUT RETURN ADDRESS IN L.
048118,000474: 01,3217 33221 CAF SELFBANK
048119,000475: 01,3220 15166 TCF SUPDXCHZ +1 # AND DISPATCH JOB.
048120,000476:
048121,000477: 01,3221 1361 EBANK= SELFRET
048122,000478: 01,3221 66102 SELFBANK BBCON SELFCHK
048123,000479:
048124,000480: 01,3222 00006 NUDIRECT EXTEND # TURN THE GREEN LIGHT BACK ON.
048125,000481: 01,3223 05011 WOR DSALMOUT
048126,000482: 01,3224 52165 DXCH LOC # JOBS STARTED IN THIS FASHION MUST BE
048127,000483: 01,3225 15165 TCF SUPDXCHZ
048128,000484:
048129,000485: 5165 BLOCK 2 # IN FIXED-FIXED SO OTHERS MAY USE.
048130,000486:
048131,000487: 5165 COUNT* $$/EXEC
048132,000488: # SUPDXCHZ - ROUTINE TO TRANSFER TO SUPERBANK.
048133,000489: # CALLING SEQUENCE
048134,000490: # TCF SUPDXCHZ WITH 2CADR OF DESIRED LOCATION IN A + L.
048135,000491:
048136,000492: 5165 56001 SUPDXCHZ XCH L # BASIC.
048137,000493: 5166 00006 +1 EXTEND
048138,000494: 5167 01007 WRITE SUPERBNK
048139,000495: 5170 54006 TS BBANK
048140,000496: 5171 00001 TC L
048141,000497:
048142,000498: 5172 77677 NEG100 OCT 77677
End of include-file EXECUTIVE.agc. Parent file is MAIN.agc