Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note 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 a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
047869,000002: ## Copyright: Public domain.
047870,000003: ## Filename: EXECUTIVE.agc
047871,000004: ## Purpose: A log section of Zerlina 56, the final revision of
047872,000005: ## Don Eyles's offline development program for the variable
047873,000006: ## guidance period servicer. It also includes a new P66 with LPD
047874,000007: ## (Landing Point Designator) capability, based on an idea of John
047875,000008: ## Young's. Neither of these advanced features were actually flown,
047876,000009: ## but Zerlina was also the birthplace of other big improvements to
047877,000010: ## Luminary including the terrain model and new (Luminary 1E)
047878,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
047879,000012: ## and revision 56 includes all changes up to and including Luminary
047880,000013: ## 183. It is therefore quite close to the Apollo 14 program,
047881,000014: ## Luminary 178, where not modified with new features.
047882,000015: ## Reference: pp. 1094-1107
047883,000016: ## Assembler: yaYUL
047884,000017: ## Contact: Ron Burkey <info@sandroid.org>.
047885,000018: ## Website: www.ibiblio.org/apollo/index.html
047886,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
047887,000020: ## 2017-08-28 MAS Updated for Zerlina 56.
047888,000021:
|
|
Page 1094 |
047890,000023: 5072 BLOCK 02
047891,000024: # TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
047892,000025:
047893,000026: 5072 COUNT* $$/EXEC
047894,000027: 5072 00004 NOVAC INHINT
047895,000028: 5073 65164 AD FAKEPRET # LOC(MPAC +6) - LOC(QPRET)
047896,000029: 5074 54063 TS NEWPRIO # PRIORITY OF NEW JOB + NOVAC C(FIXLOC)
|
|
A blue line is drawn under the last two digits of the assembled octal for the above line. |
047898,000031:
047899,000032: 5075 00006 EXTEND
047900,000033: 5076 50002 INDEX Q # Q WILL BE UNDISTURBED THROUGHOUT.
047901,000034: 5077 30001 DCA 0 # 2CADR OF JOB ENTERED.
047902,000035: 5100 52066 DXCH NEWLOC
|
|
A blue line is drawn under the last two digits of the assembled octal for the above line. |
047904,000037: 5101 35163 CAF EXECBANK
047905,000038: 5102 56004 XCH FBANK
047906,000039: 5103 54061 TS EXECTEM1
|
|
A blue line is drawn under the last two digits of the assembled octal for the above line. |
047908,000041: 5104 12631 TCF NOVAC2 # ENTER EXECUTIVE BANK.
047909,000042:
047910,000043: # TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
047911,000044:
047912,000045: 5105 00004 FINDVAC INHINT
047913,000046: 5106 54063 TS NEWPRIO
047914,000047: 5107 00006 EXTEND
047915,000048: 5110 50002 INDEX Q
047916,000049: 5111 30001 DCA 0
047917,000050: 5112 52066 SPVACIN DXCH NEWLOC
047918,000051: 5113 35163 CAF EXECBANK
047919,000052: 5114 56004 XCH FBANK
047920,000053: 5115 12605 TCF FINDVAC2 # OFF TO EXECUTIVE SWITCHED-BANK.
047921,000054:
047922,000055: # TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L:
047923,000056:
047924,000057: # USERS OF SPVAC MUST INHINT BEFORE STORING IN NEWPRIO.
047925,000058:
047926,000059: 5116 56002 SPVAC XCH Q
047927,000060: 5117 67760 AD NEG2
047928,000061: 5120 56002 XCH Q
047929,000062: 5121 15112 TCF SPVACIN
047930,000063:
047931,000064: # TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICED:
047932,000065:
047933,000066: 5122 22002 CHANG1 LXCH Q
047934,000067: 5123 35163 CAF EXECBANK
047935,000068: 5124 56006 XCH BBANK
047936,000069: 5125 12712 TCF CHANJOB
047937,000070:
047938,000071: # TO SUSPEND AN INTERPRETIVE JOB:
047939,000072:
047940,000073: 5126 40164 CHANG2 CS LOC # NEGATIVE LOC SHOWS JOB = INTERPRETIVE.
047941,000074: # ITRACE (4) REFERS TO "CHANG2".
047942,000075: 5127 54001 TS L
|
|
Page 1095 |
047944,000077: 5130 35163 +2 CAF EXECBANK
047945,000078: 5131 54006 TS BBANK
047946,000079: 5132 12711 TCF CHANJOB -1
047947,000080:
|
|
Page 1096 |
047949,000082: # TO VOLUNTARILY SUSPEND A JOB UNTIL THE COMPLETION OF SOME ANTICIPATED EVENT (I/O EVENT ETC.):
047950,000083:
047951,000084: 5133 54164 JOBSLEEP TS LOC
047952,000085: 5134 35163 CAF EXECBANK
047953,000086: 5135 54004 TS FBANK
047954,000087: 5136 13002 TCF JOBSLP1
047955,000088:
047956,000089: # TO AWAKEN A JOB PUT TO SLEEP IN THE ABOVE FASHION:
047957,000090:
047958,000091: 5137 00004 JOBWAKE INHINT
047959,000092: 5140 54065 TS NEWLOC
047960,000093: 5141 44752 CS TWO # EXIT IS VIA FINDVAC/NOVAC PROCEDURES.
047961,000094: 5142 26002 ADS Q
047962,000095: 5143 35163 CAF EXECBANK
047963,000096: 5144 56004 XCH FBANK
047964,000097: 5145 13027 TCF JOBWAKE2
047965,000098:
047966,000099: # TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION:
047967,000100:
047968,000101: 5146 00004 PRIOCHNG INHINT # NEW PRIORITY ARRIVES IN A. RETURNS TO
047969,000102: 5147 54063 TS NEWPRIO # CALLER AS SOON AS NEW JOB PRIORITY IS
047970,000103: 5150 35163 CAF EXECBANK # HIGHEST. PREPARE FOR POSSIBLE BASIC-
047971,000104: 5151 56006 XCH BBANK # STYLE CHANGE-JOB.
047972,000105: 5152 54165 TS BANKSET
047973,000106: 5153 30002 CA Q
047974,000107: 5154 13076 TCF PRIOCH2
047975,000108:
047976,000109: # TO REMOVE A JOB FROM EXECUTIVE CONSIDERATIONS:
047977,000110:
047978,000111: 5155 35163 ENDOFJOB CAF EXECBANK
047979,000112: 5156 54004 TS FBANK
047980,000113: 5157 13107 TCF ENDJOB1
047981,000114:
047982,000115: 5160 30061 ENDFIND CA EXECTEM1 # RETURN TO CALLER AFTER JOB ENTRY
047983,000116: 5161 54004 TS FBANK # COMPLETE.
047984,000117: 5162 16753 TCF Q+2
047985,000118: 5163 02605 EXECBANK CADR FINDVAC2
047986,000119:
047987,000120: 5164 00110 FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET)
047988,000121:
047989,000122: # TO CHANGE A "FINDVAC" JOB TO A "NOVAC" -- RELEASE ITS VAC AREA:
047990,000123: 5165 30167 VACRLEAS CA PRIORITY # CHANGE TO NOVAC VALUE
047991,000124: 5166 77737 MASK PRIO37
047992,000125: 5167 65164 AD FAKEPRET
047993,000126: 5170 56167 XCH PRIORITY
047994,000127: 5171 75004 MASK LOW9
047995,000128: 5172 10000 CCS A
047996,000129: 5173 50000 INDEX A
047997,000130: 5174 54000 TS 0 # RELEASE VAC AREA
047998,000131: 5175 00002 TC Q
047999,000132:
|
|
Page 1097 |
048001,000134: # LOCATE AN AVAILABLE VAC AREA.
048002,000135:
048003,000136: 01,2605 BANK 01
048004,000137: 01,2605 COUNT* $$/EXEC
048005,000138: 01,2605 54061 FINDVAC2 TS EXECTEM1 # (SAVE CALLER'S BANK FIRST.)
048006,000139: 01,2606 10400 CCS VAC1USE
048007,000140: 01,2607 12624 TCF VACFOUND
048008,000141: 01,2610 10454 CCS VAC2USE
048009,000142: 01,2611 12624 TCF VACFOUND
048010,000143: 01,2612 10530 CCS VAC3USE
048011,000144: 01,2613 12624 TCF VACFOUND
048012,000145: 01,2614 10604 CCS VAC4USE
048013,000146: 01,2615 12624 TCF VACFOUND
048014,000147: 01,2616 10660 CCS VAC5USE
048015,000148: 01,2617 12624 TCF VACFOUND
048016,000149: 01,2620 22061 LXCH EXECTEM1
048017,000150: 01,2621 30002 CA Q
048018,000151: 01,2622 05717 TC BAILOUT1
048019,000152: 01,2623 31201 OCT 31201 # NO VAC AREAS
048020,000153:
048021,000154: 01,2624 64752 VACFOUND AD TWO # RESERVE THIS VAC AREA BY STORING A ZERO
048022,000155: 01,2625 22007 ZL # IN ITS VAC USE REGISTER AND STORE THE
048023,000156: 01,2626 50000 INDEX A # ADDRESS OF THE FIRST WORD OF IT IN THE
048024,000157: 01,2627 21777 LXCH 0 -1 # LOW NINE BITS OF THE PRIORITY WORD.
048025,000158: 01,2630 26063 ADS NEWPRIO
048026,000159:
048027,000160: 01,2631 34755 NOVAC2 CAF ZERO # NOVAC ENTERS HERE. FIND A CORE SET.
048028,000161: 01,2632 54064 TS LOCCTR
048029,000162: 01,2633 32640 CAF NO.CORES # SEVEN SETS OF ELEVEN REGISTERS EACH.
048030,000163: 01,2634 54062 NOVAC3 TS EXECTEM2
048031,000164: 01,2635 50064 INDEX LOCCTR
048032,000165: 01,2636 10167 CCS PRIORITY # EACH PRIORITY REGISTER CONTAINS -0 IF
048033,000166: 01,2637 12700 TCF NEXTCORE # THE CORRESPONDING CORE SET IS AVAILABLE.
048034,000167: 01,2640 00007 NO.CORES DEC 7 B-14
048035,000168: 01,2641 12700 TCF NEXTCORE # AN ACTIVE JOB HAS A POSITIVE PRIORITY
048036,000169: # BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
048037,000170:
|
|
Page 1098 |
048039,000172: 01,2642 30063 CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE
048040,000173: 01,2643 50064 INDEX LOCCTR # SET'S PRIORITY REGISTER AND SET THE
048041,000174: 01,2644 54167 TS PRIORITY # JOB'S PUSH-DOWN POINTER AT THE BEGINNING
048042,000175: 01,2645 75004 MASK LOW9 # OF THE WORK AREA AND OVERFLOW INDICATOR
048043,000176: 01,2646 50064 INDEX LOCCTR
048044,000177: 01,2647 54166 TS PUSHLOC # OFF TO PREPARE FOR INTERPRETIVE PROGRAMS
048045,000178:
048046,000179: 01,2650 10064 CCS LOCCTR # IF CORE SET ZERO IS BEING LOADED, SET UP
048047,000180: 01,2651 12665 TCF SETLOC # OVFIND AND FIXLOC IMMEDIATELY .
048048,000181: 01,2652 54121 TS OVFIND
048049,000182: 01,2653 30166 CA PUSHLOC
048050,000183: 01,2654 54120 TS FIXLOC
048051,000184:
048052,000185: 01,2655 10067 SPECTEST CCS NEWJOB # SEE IF ANY ACTIVE JOBS WAITING (RARE).
048053,000186: 01,2656 12665 TCF SETLOC # MUST BE AWAKENED BUT UNCHANGED JOB.
048054,000187: 01,2657 05706 TC CCSHOLE
048055,000188: 01,2660 05706 TC CCSHOLE
048056,000189: 01,2661 54067 TS NEWJOB # +0 SHOWS ACTIVE JOB ALREADY SET.
048057,000190: 01,2662 52066 DXCH NEWLOC
048058,000191: 01,2663 52165 DXCH LOC
048059,000192: 01,2664 15160 TCF ENDFIND
048060,000193:
048061,000194: 01,2665 52066 SETLOC DXCH NEWLOC # SET UP THE LOCATION REGISTERS FOR THIS
048062,000195: 01,2666 50064 INDEX LOCCTR
048063,000196: 01,2667 52165 DXCH LOC
048064,000197: 01,2670 50067 INDEX NEWJOB # THIS INDEX INSTRUCTION INSURES THAT THE
048065,000198: 01,2671 40167 CS PRIORITY # HIGHEST ACTIVE PRIORITY WILL BE COMPARED
048066,000199: 01,2672 60063 AD NEWPRIO # WITH THE NEW PRIORITY TO SEE IF NEWJOB
048067,000200: 01,2673 00006 EXTEND # SHOULD BE SET TO SIGNAL A SWITCH.
048068,000201: 01,2674 65160 BZMF ENDFIND
048069,000202: 01,2675 30064 CA LOCCTR # LOCCTR IS LEFT SET AT THIS CORE SET IF
048070,000203: 01,2676 54067 TS NEWJOB # THE CALLER WANTS TO LOAD ANY MPAC
048071,000204: 01,2677 15160 TCF ENDFIND # REGISTERS, ETC.
048072,000205:
048073,000206: 01,2700 33037 NEXTCORE CAF COREINC
048074,000207: 01,2701 26064 ADS LOCCTR
048075,000208: 01,2702 10062 CCS EXECTEM2
048076,000209: 01,2703 12634 TCF NOVAC3
048077,000210: 01,2704 22061 LXCH EXECTEM1
048078,000211: 01,2705 30002 CA Q
048079,000212: 01,2706 05717 TC BAILOUT1 # NO CORE SETS AVAILABLE.
048080,000213: 01,2707 31202 OCT 31202
|
|
Page 1099 |
048082,000215: # THE FOLLOWING ROUTINE SWAPS CORE SET 0 WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB.
048083,000216:
048084,000217: 01,2710 22164 -2 LXCH LOC
048085,000218: 01,2711 30165 -1 CAE BANKSET # BANKSET, NOT BBANK, HAS RIGHT CONTENTS.
048086,000219: 01,2712 00004 CHANJOB INHINT
048087,000220: 01,2713 00006 EXTEND
|
|
The following instruction is underlined in blue. |
048089,000222: 01,2714 04007 ROR SUPERBNK # PICK UP CURRENT SBANK FOR BBCON
048090,000223: 01,2715 56001 XCH L # LOC IN A AND BBCON IN L.
048091,000224: 01,2716 50067 +4 INDEX NEWJOB # SWAP LOC AND BANKSET.
048092,000225: 01,2717 52165 DXCH LOC
|
|
The following instruction is underlined in blue. |
048094,000227: 01,2720 52165 DXCH LOC
048095,000228:
048096,000229: 01,2721 30165 CAE BANKSET
048097,000230: 01,2722 00006 EXTEND
|
|
The following instruction is underlined in blue. |
048099,000232: 01,2723 01007 WRITE SUPERBNK # SET SBANK FOR NEW JOB.
048100,000233: 01,2724 52155 DXCH MPAC # SWAP MULTI-PURPOSE ACCUMULATOR AREAS.
048101,000234: 01,2725 50067 INDEX NEWJOB
048102,000235: 01,2726 52155 DXCH MPAC
|
|
The following instruction is underlined in blue. |
048104,000237: 01,2727 52155 DXCH MPAC
048105,000238: 01,2730 52157 DXCH MPAC +2
048106,000239: 01,2731 50067 INDEX NEWJOB
048107,000240: 01,2732 52157 DXCH MPAC +2
|
|
The following two instructions are underlined in blue. |
048109,000242: 01,2733 52157 DXCH MPAC +2
048110,000243: 01,2734 52161 DXCH MPAC +4
048111,000244: 01,2735 50067 INDEX NEWJOB
048112,000245: 01,2736 52161 DXCH MPAC +4
|
|
The following instruction is underlined in blue. |
048114,000247: 01,2737 52161 DXCH MPAC +4
048115,000248: 01,2740 52163 DXCH MPAC +6
048116,000249: 01,2741 50067 INDEX NEWJOB
048117,000250: 01,2742 52163 DXCH MPAC +6
|
|
The following instruction is underlined in blue. |
048119,000252: 01,2743 52163 DXCH MPAC +6
048120,000253:
048121,000254: 01,2744 34755 CAF ZERO
048122,000255: 01,2745 56121 XCH OVFIND # MAKE PUSHLOC NEGATIVE IF OVFIND NZ.
048123,000256: 01,2746 00006 EXTEND
048124,000257: 01,2747 12752 BZF +3
048125,000258: 01,2750 40166 CS PUSHLOC
048126,000259: 01,2751 54166 TS PUSHLOC
048127,000260:
048128,000261: 01,2752 52167 DXCH PUSHLOC
048129,000262: 01,2753 50067 INDEX NEWJOB
048130,000263: 01,2754 52167 DXCH PUSHLOC
|
|
The following instruction is underlined in blue. |
048132,000265: 01,2755 52167 DXCH PUSHLOC # SWAPS PUSHLOC AND PRIORITY.
048133,000266: 01,2756 35004 CAF LOW9 # SET FIXLOC TO BASE OF VAC AREA.
048134,000267: 01,2757 70167 MASK PRIORITY
048135,000268: 01,2760 54120 TS FIXLOC
048136,000269:
048137,000270: 01,2761 10166 CCS PUSHLOC # SET OVERFLOW INDICATOR ACCORDING TO
048138,000271: 01,2762 34755 CAF ZERO
048139,000272: 01,2763 12770 TCF ENDPRCHG -1
048140,000273:
|
|
Page 1100 |
048142,000275: 01,2764 40166 CS PUSHLOC
048143,000276: 01,2765 54166 TS PUSHLOC
048144,000277: 01,2766 34753 CAF ONE
048145,000278: 01,2767 56121 XCH OVFIND
048146,000279: 01,2770 54067 TS NEWJOB
048147,000280:
048148,000281: 01,2771 00003 ENDPRCHG RELINT
048149,000282: 01,2772 52165 DXCH LOC # BASIC JOBS HAVE POSITIVE ADDRESSES, SO
048150,000283: 01,2773 00006 EXTEND # DISPATCH WITH A DTCB.
048151,000284: 01,2774 62776 BZMF +2 # IF INTERPRETIVE, SET UP EBANK, ETC.
048152,000285: 01,2775 52006 DTCB
048153,000286:
|
|
Page 1101 |
048155,000288: 01,2776 40000 COM # EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
048156,000289: 01,2777 64753 AD ONE
048157,000290: 01,3000 54164 TS LOC # RESUME.
048158,000291: 01,3001 16062 TCF INTRSM
048159,000292:
048160,000293: # COMPLETE JOBSLEEP PREPARATIONS.
048161,000294:
048162,000295: 01,3002 00004 JOBSLP1 INHINT
048163,000296: 01,3003 40167 CS PRIORITY # NNZ PRIORITY SHOWS JOB ASLEEP.
048164,000297: 01,3004 54167 TS PRIORITY
048165,000298: 01,3005 36106 CAF LOW7
048166,000299: 01,3006 70006 MASK BBANK
048167,000300: 01,3007 00006 EXTEND
048168,000301: 01,3010 04007 ROR SUPERBNK # SAVE OLD SUPERBANK VALUE.
048169,000302: 01,3011 54165 TS BANKSET
048170,000303: 01,3012 44755 CS ZERO
048171,000304: 01,3013 54131 JOBSLP2 TS BUF +1 # HOLDS - HIGHEST PRIORITY.
048172,000305: 01,3014 13124 TCF EJSCAN # SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
048173,000306:
048174,000307: 01,3015 00004 NUCHANG2 INHINT # QUICK... DONT LET NEWJOB CHANGE TO +0 .
048175,000308: 01,3016 10067 CCS NEWJOB
048176,000309: 01,3017 13022 TCF +3 # NEWJOB STILL PNZ
048177,000310: 01,3020 00003 RELINT # NEWJOB HAS CHANGED TO +0. WAKE UP JOB
048178,000311: 01,3021 13220 TCF ADVAN +2 # VIA NUDIRECT. (VERY RARE CASE.)
048179,000312:
048180,000313: 01,3022 34752 CAF TWO
048181,000314: 01,3023 00006 EXTEND
048182,000315: 01,3024 05011 WOR DSALMOUT # TURN ON ACTIVITY LIGHT
048183,000316: 01,3025 52165 DXCH LOC # AND SAVE ADDRESS INFO FOR BENEFIT OF
048184,000317: 01,3026 12716 TCF CHANJOB +4 # POSSIBLE SLEEPING JOB.
048185,000318:
|
|
Page 1102 |
048187,000320: # TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE
048188,000321: # LOC REGISTER OF ANY SUCH JOB MATCHES THAT SUPPLIED BY THE CALLER, THAT JOB IS AWAKENED. IF NO JOB IS FOUND,
048189,000322: # LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
048190,000323:
048191,000324: 01,3027 54061 JOBWAKE2 TS EXECTEM1
048192,000325: 01,3030 34755 CAF ZERO # BEGIN CORE SET SCAN.
048193,000326: 01,3031 54064 TS LOCCTR
048194,000327: 01,3032 32640 CAF NO.CORES
048195,000328: 01,3033 54062 JOBWAKE4 TS EXECTEM2
048196,000329: 01,3034 50064 INDEX LOCCTR
048197,000330: 01,3035 10167 CCS PRIORITY
048198,000331: 01,3036 13041 TCF JOBWAKE3 # ACTIVE JOB - CHECK NEXT CORE SET.
048199,000332: 01,3037 00014 COREINC DEC 12 B-14 # 12 REGISTERS PER CORE SET.
048200,000333: 01,3040 13050 TCF WAKETEST # SLEEPING JOB - SEE IF CADR MATCHES.
048201,000334:
048202,000335: 01,3041 33037 JOBWAKE3 CAF COREINC
048203,000336: 01,3042 26064 ADS LOCCTR
048204,000337: 01,3043 10062 CCS EXECTEM2
048205,000338: 01,3044 13033 TCF JOBWAKE4
048206,000339: 01,3045 44753 CS ONE # EXIT IF SLEEPING JOB NOT FOUND.
048207,000340: 01,3046 54064 TS LOCCTR
048208,000341: 01,3047 15160 TCF ENDFIND
048209,000342:
048210,000343: 01,3050 40065 WAKETEST CS NEWLOC
048211,000344: 01,3051 50064 INDEX LOCCTR
048212,000345: 01,3052 60164 AD LOC
048213,000346: 01,3053 00006 EXTEND
048214,000347: 01,3054 13056 BZF +2 # IF MATCH.
048215,000348: 01,3055 13041 TCF JOBWAKE3 # EXAMINE NEXT CORE SET IF NO MATCH.
048216,000349:
048217,000350: 01,3056 50064 INDEX LOCCTR # RE-COMPLEMENT PRIORITY TO SHOW JOB AWAKE
048218,000351: 01,3057 40167 CS PRIORITY
048219,000352: 01,3060 54063 TS NEWPRIO
048220,000353: 01,3061 50064 INDEX LOCCTR
048221,000354: 01,3062 54167 TS PRIORITY
048222,000355:
048223,000356: 01,3063 44350 CS FBANKMSK # MAKE UP THE 2CADR OF THE WAKE ADDRESS
048224,000357: 01,3064 70065 MASK NEWLOC # USING THE CADR IN NEWLOC AND THE EBANK
048225,000358: 01,3065 64741 AD 2K # HALF OF BBANK SAVED IN BANKSET.
048226,000359: 01,3066 56065 XCH NEWLOC
048227,000360: 01,3067 74350 MASK FBANKMSK
048228,000361: 01,3070 50064 INDEX LOCCTR
048229,000362: 01,3071 60165 AD BANKSET
048230,000363: 01,3072 54066 TS NEWLOC +1
048231,000364:
048232,000365: 01,3073 10064 CCS LOCCTR # SPECIAL TREATMENT IF THIS JOB WAS
048233,000366: 01,3074 12665 TCF SETLOC # ALREADY IN THE RUN (0) POSITION.
048234,000367: 01,3075 12655 TCF SPECTEST
048235,000368:
|
|
Page 1103 |
048237,000370: # PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY.
048238,000371:
048239,000372: 01,3076 54164 PRIOCH2 TS LOC
048240,000373: 01,3077 34755 CAF ZERO # SET FLAG TO TELL ENDJOB SCANNER IF THIS
048241,000374: 01,3100 54130 TS BUF # JOB IS STILL HIGHEST PRIORITY.
048242,000375: 01,3101 35004 CAF LOW9
048243,000376: 01,3102 70167 MASK PRIORITY
048244,000377: 01,3103 60063 AD NEWPRIO
048245,000378: 01,3104 54167 TS PRIORITY
048246,000379: 01,3105 40000 COM
048247,000380: 01,3106 13013 TCF JOBSLP2 # AND TO EJSCAN.
048248,000381:
|
|
Page 1104 |
048250,000383: # RELEASE THIS CORE SET AND VAC AREA AND SCAN FOR THE JOB OF HIGHEST ACTIVE PRIORITY.
048251,000384:
048252,000385: 01,3107 00004 ENDJOB1 INHINT
048253,000386: 01,3110 44755 CS ZERO
048254,000387: 01,3111 54131 TS BUF +1
048255,000388: 01,3112 56167 XCH PRIORITY
048256,000389: 01,3113 75004 MASK LOW9
048257,000390: 01,3114 54001 TS L
048258,000391:
048259,000392: 01,3115 45164 CS FAKEPRET
048260,000393: 01,3116 60001 AD L
048261,000394:
048262,000395: 01,3117 00006 EXTEND
048263,000396: 01,3120 63124 BZMF EJSCAN # NOVAC ENDOFJOB
048264,000397:
048265,000398: 01,3121 10001 CCS L
048266,000399: 01,3122 50000 INDEX A
048267,000400: 01,3123 54000 TS 0
048268,000401:
048269,000402: 01,3124 10203 EJSCAN CCS PRIORITY +12D
048270,000403: 01,3125 03175 TC EJ1
048271,000404: 01,3126 05706 TC CCSHOLE
048272,000405: 01,3127 13130 TCF +1
048273,000406:
048274,000407: 01,3130 10217 CCS PRIORITY +24D # EXAMINE EACH PRIORITY REGISTER TO FIND
048275,000408: 01,3131 03175 TC EJ1 # THE JOB OF HIGHEST ACTIVE PRIORITY.
048276,000409: 01,3132 05706 TC CCSHOLE
048277,000410: 01,3133 13134 TCF +1
048278,000411:
048279,000412: 01,3134 10233 CCS PRIORITY +36D
048280,000413: 01,3135 03175 TC EJ1
048281,000414: 01,3136 67610 -CCSPR -CCS PRIORITY
048282,000415: 01,3137 13140 TCF +1
048283,000416:
048284,000417: 01,3140 10247 CCS PRIORITY +48D
048285,000418: 01,3141 03175 TC EJ1
048286,000419: 01,3142 05706 TC CCSHOLE
048287,000420: 01,3143 13144 TCF +1
048288,000421:
048289,000422: 01,3144 10263 CCS PRIORITY +60D
048290,000423: 01,3145 03175 TC EJ1
048291,000424: 01,3146 05706 TC CCSHOLE
048292,000425: 01,3147 13150 TCF +1
048293,000426:
048294,000427: 01,3150 10277 CCS PRIORITY +72D
048295,000428: 01,3151 03175 TC EJ1
048296,000429: 01,3152 05706 TC CCSHOLE
048297,000430: 01,3153 13154 TCF +1
048298,000431:
048299,000432: 01,3154 10313 CCS PRIORITY +84D
|
|
Page 1105 |
048301,000434: 01,3155 03175 TC EJ1
048302,000435: 01,3156 05706 TC CCSHOLE
048303,000436: 01,3157 13160 TCF +1
048304,000437:
|
|
Page 1106 |
048306,000439: # EVALUATE THE RESULTS OF THE SCAN.
048307,000440:
048308,000441: 01,3160 10131 CCS BUF +1 # SEE IF THERE ARE ANY ACTIVE JOBS WAITING
048309,000442: 01,3161 05706 TC CCSHOLE
048310,000443: 01,3162 05706 TC CCSHOLE
048311,000444:
048312,000445: 01,3163 13165 TCF +2
048313,000446: 01,3164 13210 TCF DUMMYJOB
048314,000447: 01,3165 10130 CCS BUF # BUF IS ZERO IF THIS IS A PRIOCHNG AND
048315,000448: 01,3166 13170 TCF +2 # CHANGED PRIORITY IS STILL HIGHEST.
048316,000449: 01,3167 12770 TCF ENDPRCHG -1
048317,000450:
048318,000451: 01,3170 50000 INDEX A # OTHERWISE, SET NEWJOB TO THE RELATIVE
048319,000452: 01,3171 27777 CAF 0 -1 # ADDRESS OF THE NEW JOB'S CORE SET.
048320,000453: 01,3172 63136 AD -CCSPR
048321,000454: 01,3173 54067 TS NEWJOB
048322,000455: 01,3174 12710 TCF CHANJOB -2
048323,000456:
048324,000457: 01,3175 54132 EJ1 TS BUF +2
048325,000458: 01,3176 60131 AD BUF +1 # - OLD HIGH PRIORITY.
048326,000459: 01,3177 10000 CCS A
048327,000460: 01,3200 40132 CS BUF +2
048328,000461: 01,3201 13204 TCF EJ2 # NEW HIGH PRIORITY.
048329,000462: 01,3202 13203 NOOP
048330,000463: 01,3203 16753 TCF Q+2
048331,000464:
048332,000465: 01,3204 54131 EJ2 TS BUF +1
048333,000466: 01,3205 30002 CA Q
048334,000467: 01,3206 54130 TS BUF
048335,000468: 01,3207 16753 TCF Q+2
048336,000469:
|
|
Page 1107 |
048338,000471: # IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF,
048339,000472: # BUT RATHER A SUBROUTINE OF THE EXECUTIVE.
048340,000473:
048341,000474: 01,3210 1361 EBANK= SELFRET # SELF-CHECK STORAGE IN EBANK.
048342,000475:
048343,000476: 01,3210 44755 DUMMYJOB CS ZERO # SET NEWJOB TO -0 FOR IDLING.
048344,000477: 01,3211 54067 TS NEWJOB
048345,000478: 01,3212 00003 RELINT
048346,000479: 01,3213 44752 CS TWO # TURN OFF THE ACTIVITY LIGHT.
048347,000480: 01,3214 00006 EXTEND
048348,000481: 01,3215 03011 WAND DSALMOUT
048349,000482: 01,3216 10067 ADVAN CCS NEWJOB # IS A NEWJOB ACTIVE ?
048350,000483: 01,3217 13015 TCF NUCHANG2 # YES... ONE REQUIRING A CHANGE JOB.
048351,000484: 01,3220 34752 CAF TWO # NEW JOB ALREADY IN POSITION FOR
048352,000485: 01,3221 13230 TCF NUDIRECT # EXECUTION.
048353,000486:
048354,000487: 01,3222 25356 INCR DUMLOOPS # COUNT DUMMYJOB LOOPS FOR DOWNLINK
048355,000488:
048356,000489: 01,3223 31361 CA SELFRET
048357,000490: 01,3224 54001 TS L # PUT RETURN ADDRESS IN L.
048358,000491: 01,3225 33227 CAF SELFBANK
048359,000492: 01,3226 15177 TCF SUPDXCHZ +1 # AND DISPATCH JOB.
048360,000493:
048361,000494: 01,3227 1361 EBANK= SELFRET
048362,000495: 01,3227 66102 SELFBANK BBCON SELFCHK
048363,000496:
048364,000497: 01,3230 00006 NUDIRECT EXTEND # TURN THE GREEN LIGHT BACK ON.
048365,000498: 01,3231 05011 WOR DSALMOUT
048366,000499: 01,3232 52165 DXCH LOC # JOBS STARTED IN THIS FASHION MUST BE
048367,000500: 01,3233 15176 TCF SUPDXCHZ
048368,000501:
048369,000502: 5176 BLOCK 2 # IN FIXED-FIXED SO OTHERS MAY USE.
048370,000503:
048371,000504: 5176 COUNT* $$/EXEC
048372,000505: # SUPDXCHZ - ROUTINE TO TRANSFER TO SUPERBANK.
048373,000506: # CALLING SEQUENCE
048374,000507: # TCF SUPDXCHZ WITH 2CADR OF DESIRED LOCATION IN A + L.
048375,000508:
048376,000509: 5176 56001 SUPDXCHZ XCH L # BASIC.
048377,000510: 5177 00006 +1 EXTEND
048378,000511: 5200 01007 WRITE SUPERBNK
048379,000512: 5201 54006 TS BBANK
048380,000513: 5202 00001 TC L
048381,000514:
048382,000515: 5203 77677 NEG100 OCT 77677
End of include-file EXECUTIVE.agc. Parent file is MAIN.agc