From 2bcb943ee958c99010436b452adc57060ae552ec Mon Sep 17 00:00:00 2001 From: cai Date: Tue, 9 Oct 2018 16:16:45 +0800 Subject: [PATCH] Proof EXECUTIVE (closes #205) (#354) * Proof EXECUTIVE #354 * Use full stop. --- Comanche055/EXECUTIVE.agc | 71 +++++++++++++++++++-------------------- 1 file changed, 35 insertions(+), 36 deletions(-) diff --git a/Comanche055/EXECUTIVE.agc b/Comanche055/EXECUTIVE.agc index 1ee75b6..0cac458 100644 --- a/Comanche055/EXECUTIVE.agc +++ b/Comanche055/EXECUTIVE.agc @@ -47,7 +47,7 @@ NOVAC INHINT TS EXECTEM1 TCF NOVAC2 # ENTER EXECUTIVE BANK. -# TO ENTER A JOB REQUEST REQUIRING A VAC AREA -- E.G., ALL (PARTIALLY) INTERPRETIVE JOBS. +# TO ENTER A JOB REQUEST REQUIRING A VAC AREA - E.G., ALL (PARTIALLY) INTERPRETIVE JOBS. FINDVAC INHINT TS NEWPRIO @@ -77,7 +77,7 @@ CHANG1 LXCH Q # TO SUSPEND AN INTERPRETIVE JOB: CHANG2 CS LOC # NEGATIVE LOC SHOWS JOB = INTERPRETIVE. -# ITRACE (4) REFERS TO "CHANG2" +# ITRACE (4) REFERS TO "CHANG2". # Page 1209 TS L +2 CAF EXECBANK @@ -104,9 +104,9 @@ JOBWAKE INHINT # TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION: -PRIOCHNG INHINT # NEW PRIORITY ARRIVES IN A. RETURNS TO +PRIOCHNG INHINT # NEW PRIORITY ARRIVES IN A. RETURNS TO TS NEWPRIO # CALLER AS SOON AS NEW JOB PRIORITY IS - CAF EXECBANK # HIGHEST. PREPARE FOR POSSIBLE BASIC- + CAF EXECBANK # HIGHEST. PREPARE FOR POSSIBLE BASIC- XCH BBANK # STYLE CHANGE-JOB. TS BANKSET CA Q @@ -126,7 +126,7 @@ EXECBANK CADR FINDVAC2 FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET) # Page 1211 -# LOCATE AN AVAILABLE VAC AREA +# LOCATE AN AVAILABLE VAC AREA. BANK 01 COUNT 01/EXEC @@ -148,10 +148,10 @@ FINDVAC2 TS EXECTEM1 # (SAVE CALLER'S BANK FIRST.) VACFOUND AD TWO # RESERVE THIS VAC AREA BY STORING A ZERO ZL # IN ITS VAC USE REGISTER AND STORE THE INDEX A # ADDRESS OF THE FIRST WORD OF IT IN THE - LXCH 0 -1 # LOW NINE BITS OF THE PRIORITY WORD. + LXCH 0 -1 # LOW NINE BITS OF THE PRIORITY WORD. ADS NEWPRIO -NOVAC2 CAF ZERO # NOVAC ENTERS HERE. FIND A CORE SET. +NOVAC2 CAF ZERO # NOVAC ENTERS HERE. FIND A CORE SET. TS LOCCTR CAF NO.CORES # SEVEN SETS OF ELEVEN REGISTERS EACH. NOVAC3 TS EXECTEM2 @@ -166,9 +166,9 @@ NO.CORES DEC 6 CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE INDEX LOCCTR # SET'S PRIORITY REGISTER AND SET THE TS PRIORITY # JOB'S PUSH-DOWN POINTER AT THE BEGINNING - MASK LOW9 # OF THE WORK AREA AND OVERFLOW INDICATOR. + MASK LOW9 # OF THE WORK AREA AND OVERFLOW INDICATOR INDEX LOCCTR - TS PUSHLOC # OFF TO PREPARE FOR INTERPRETIVE PROGRAMS. + TS PUSHLOC # OFF TO PREPARE FOR INTERPRETIVE PROGRAMS CCS LOCCTR # IF CORE SET ZERO IS BEING LOADED, SET UP TCF SETLOC # OVFIND AND FIXLOC IMMEDIATELY. @@ -177,7 +177,7 @@ CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE TS FIXLOC SPECTEST CCS NEWJOB # SEE IF ANY ACTIVE JOBS WAITING (RARE). - TCF SETLOC # MUST BE AWAKENED OUT UNCHANGED JOB. + TCF SETLOC # MUST BE AWAKENED BUT UNCHANGED JOB. TC CCSHOLE TC CCSHOLE TS NEWJOB # +0 SHOWS ACTIVE JOB ALREADY SET. @@ -270,7 +270,7 @@ ENDPRCHG RELINT # Page 1215 COM # EPILOGUE TO JOB CHANGE FOR INTERPRETIVE AD ONE - TS LOC # RESUME + TS LOC # RESUME. TCF INTRSM # COMPLETE JOBSLEEP PREPARATIONS. @@ -284,20 +284,20 @@ JOBSLP1 INHINT ROR SUPERBNK # SAVE OLD SUPERBANK VALUE. TS BANKSET CS ZERO -JOBSLP2 TS BUF +1 # HOLDS -- HIGHEST PRIORITY. +JOBSLP2 TS BUF +1 # HOLDS - HIGHEST PRIORITY. TCF EJSCAN # SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB. -NUCHANG2 INHINT # QUICK... DON'T LET NEWJOB CHANGE TO +0. +NUCHANG2 INHINT # QUICK... DONT LET NEWJOB CHANGE TO +0 . CCS NEWJOB - TCF +3 # NEWJOB STILL PNZ - RELINT # NEW JOB HAS CHANGED TO +0. WAKE UP JOB - TCF ADVAN +2 # VIA NUDIRECT. (VERY RARE CASE.) + TCF +3 # NEWJOB STILL PNZ + RELINT # NEWJOB HAS CHANGED TO +0. WAKE UP JOB + TCF ADVAN +2 # VIA NUDIRECT. (VERY RARE CASE.) CAF TWO EXTEND WOR DSALMOUT # TURN ON ACTIVITY LIGHT DXCH LOC # AND SAVE ADDRESS INFO FOR BENEFIT OF - TCF CHANJOB +4 # POSSIBLE SLEEPING JOB. + TCF CHANJOB + 4 # POSSIBLE SLEEPING JOB. # Page 1216 # TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE @@ -305,15 +305,15 @@ NUCHANG2 INHINT # QUICK... DON'T LET NEWJOB CHANGE TO +0. # LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE. JOBWAKE2 TS EXECTEM1 - CAF ZERO # BEGIN CORE SET SCAN + CAF ZERO # BEGIN CORE SET SCAN. TS LOCCTR CAF NO.CORES JOBWAKE4 TS EXECTEM2 INDEX LOCCTR CCS PRIORITY - TCF JOBWAKE3 # ACTIVE JOB -- CHECK NEXT CORE SET. + TCF JOBWAKE3 # ACTIVE JOB - CHECK NEXT CORE SET. COREINC DEC 12 # 12 REGISTERS PER CORE SET. - TCF WAKETEST # SLEEPING JOB -- SEE IF CADR MATCHES. + TCF WAKETEST # SLEEPING JOB - SEE IF CADR MATCHES. JOBWAKE3 CAF COREINC ADS LOCCTR @@ -336,7 +336,7 @@ WAKETEST CS NEWLOC INDEX LOCCTR TS PRIORITY - CS FBANKMSK # MASK UP THE 2CADR OF THE WAKE ADDRESS + CS FBANKMSK # MAKE UP THE 2CADR OF THE WAKE ADDRESS MASK NEWLOC # USING THE CADR IN NEWLOC AND THE EBANK AD 2K # HALF OF BBANK SAVED IN BANKSET. XCH NEWLOC @@ -350,7 +350,7 @@ WAKETEST CS NEWLOC TCF SPECTEST # Page 1217 -# PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY. +# PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY. PRIOCH2 TS LOC CAF ZERO # SET FLAG TO TELL ENDJOB SCANNER IF THIS @@ -415,25 +415,24 @@ EJSCAN CCS PRIORITY +12D # Page 1219 # EVALUATE THE RESULTS OF THE SCAN. - CCS BUF +1 # SEE IF THERE ARE ANY ACTIVE JOBS WAITING + CCS BUF +1 # SEE IF THERE ARE ANY ACTIVE JOBS WAITING TC CCSHOLE TC CCSHOLE TCF +2 TCF DUMMYJOB - CCS BUF # BUF IS ZERO IS THIS IS A PRIOCHNG AND + CCS BUF # BUF IS ZERO IF THIS IS A PRIOCHNG AND TCF +2 # CHANGED PRIORITY IS STILL HIGHEST. TCF ENDPRCHG -1 INDEX A # OTHERWISE, SET NEWJOB TO THE RELATIVE - # Was CAF --- RSB 2004 - CA 0 -1 # ADDRESS OF THE NEW JOB'S CORE SET. + CAF 0 -1 # ADDRESS OF THE NEW JOB'S CORE SET. AD -CCSPR TS NEWJOB TCF CHANJOB -2 -EJ1 TS BUF +2 - AD BUF +1 # - OLD HIGH PRIORITY. +EJ1 TS BUF +2 + AD BUF +1 # - OLD HIGH PRIORITY. CCS A CS BUF +2 TCF EJ2 # NEW HIGH PRIORITY. @@ -441,7 +440,7 @@ EJ1 TS BUF +2 INDEX Q TC 2 # PROCEED WITH SEARCH. -EJ2 TS BUF +1 +EJ2 TS BUF +1 EXTEND QXCH BUF # FOR LOCATING CCS PRIORITY + X INSTR. INDEX BUF @@ -459,15 +458,15 @@ DUMMYJOB CS ZERO # SET NEWJOB TO -0 FOR IDLING. CS TWO # TURN OFF THE ACTIVITY LIGHT. EXTEND WAND DSALMOUT -ADVAN CCS NEWJOB # IS THE NEWJOB ACTIVE? +ADVAN CCS NEWJOB # IS A NEWJOB ACTIVE ? TCF NUCHANG2 # YES... ONE REQUIRING A CHANGE JOB. CAF TWO # NEW JOB ALREADY IN POSITION FOR - TCF NUDIRECT # EXECUTION + TCF NUDIRECT # EXECUTION. CA SELFRET TS L # PUT RETURN ADDRESS IN L. CAF SELFBANK - TCF SUPDXCHZ +1 # AND DISPATCH JOB. + TCF SUPDXCHZ + 1 # AND DISPATCH JOB. EBANK= SELFRET SELFBANK BBCON SELFCHK @@ -481,12 +480,12 @@ NUDIRECT EXTEND # TURN THE GREEN LIGHT BACK ON. COUNT 02/EXEC -# SUPDXCHZ -- ROUTINE TO TRANSFER TO SUPERBANK. -# CALLING SEQUENCE: -# TCF SUPDXCHZ # WITH 2CADR OF DESIRED LOCATION IN A + l. +# SUPDXCHZ - ROUTINE TO TRANSFER TO SUPERBANK. +# CALLING SEQUENCE +# TCF SUPDXCHZ # WITH 2CADR OF DESIRED LOCATION IN A + L. SUPDXCHZ XCH L # BASIC. - +1 EXTEND ++1 EXTEND WRITE SUPERBNK TS BBANK TC L