Cleaned up more typos and fixed paging issues.

[retro-software/dec/tops10/v4.5.git] / src / clkcss.mac

diff --git a/src/clkcss.mac b/src/clkcss.mac
index 1412f7f..f5b3b2e 100644 (file)
--- a/src/clkcss.mac
+++ b/src/clkcss.mac
@@ -3,11 +3,11 @@ SUBTTL        T. HASTINGS/TH TS3.17 6 SEP 67 V001
 XP     VOLKCS,001\r
                ;PUT VERSION NUMBER IN GLOB LISTING AND LOADER STORAGE MAP\r
 \r
+\r
 ;SCHEDULING ALGORITHM IS:\r
 ;CALLED EVERY 60TH OF A SECOND WHEN CURRENT JOB IS USER MODE\r
 ;CALLED WHEN CURRENT JOB IS IN EXEC MODE AND:\r
 ;      1. JUST STARTED TO WAIT FOR IO\r
-\r
 ;      2. JUST STARTED TO WAIT FOR A BUSY SHARABLE DEVICE\r
 ;      3. RETURNING TO USER AFTER TYPING CONTROL C\r
 ;      4. RETURNING TO USER AFTER CLOCK TRIED TO INTERRUPT\r
@@ -31,8 +31,7 @@ NXTINI:       MOVSI TAC,-NQUEUE       ;NO. OF QUEUES
        POPJ PDP,               ;MAY CHOOSE TO SET REQUEST TO MORE\r
                                ;NEG. VALUE IF MORE THEN ON JOB CAN\r
                                ;USE DEVICE AT ONCE\r
-\f\r
-INTERNAL NXTJOB\r
+\fINTERNAL NXTJOB\r
 INTERNAL FTTRPSET,FTDISK\r
 EXTERNAL JOB,TIMEF,JBTSTS,JOBMAX,JOBN,PJBSTS,CPOPJ,CHKSHF\r
 ENTRY XCKCSS\r
@@ -75,8 +74,7 @@ NXT5: CAIL ITEM,JOBN          ;GREATER THEN HIGHEST JOB NO.?
        JRST NXT8               ;YES, IT IS RUNABLE AND IS IN THIS QUEUE\r
 NXT6:  SOJLE C,NXT3            ;NO IT IS NOT, SCANNED ALL JOBS YET?\r
        AOJA ITEM,NXT5          ;NO, LOOK AT NEXT JOB\r
-\f\r
-;HERE IF NO JOBS FOUND TO RUN(Q=-1)\r
+\f;HERE IF NO JOBS FOUND TO RUN(Q=-1)\r
 \r
 NXT7:  MOVEI C,JOBN            ;SCAN ALL JOBS INCLUDING POSSIBLY NULL JOB\r
        MOVE ITEM,JOB           ;STARTING WITH LAST JOB TO RUN\r
@@ -106,8 +104,8 @@ IFN FTTRPSET,<
        MOVE T,QUANTS(Q)        ;SET QUANTUM RUNNING TIME FOR QUEUE\r
        HRRM T,JBTSTS(ITEM)     ;WHICH JOB HAS JUST LEFT\r
        POPJ    PDP,            ;RETURN\r
-\f\r
-INTERNAL FTCHECK,FTMONP\r
+\r
+\fINTERNAL FTCHECK,FTMONP\r
 \r
 IFN FTCHECK+FTMONP,<\r
 EXTERNAL JOBP,AVALTB,REQTAB,QUANTS\r
@@ -122,12 +120,14 @@ DEFINE X(A,B)
        QUEUES\r
        LOC=ZZ\r
 >\r
+\r
 IFE FTCHECK+FTMONP,<\r
 ;APPROPRIATE ENTRY IS NON-ZERO WHEN SCHEDULER SHOULD LOOK\r
 ;AT THAT QUEUE TO FIND A JOB TO RUN\r
 ;WSAVAL CONTAINS THE NO. OF JOBS WITH IO WAIT SATISFIED(0=NONE)\r
 ;SIMILARLY FOR TSAVAL\r
 \r
+\r
 DEFINE X(A,B)\r
 <      INTERNAL A'AVAL,A'Q\r
        A'Q=.-AVALTB\r
@@ -151,10 +151,9 @@ DEFINE X(A)
        A'Q=LOC\r
        LOC=LOC+1\r
 >\r
-\f\r
+\r
        CODES\r
-\f\r
-IFE FTCHECK+FTMONP,<\r
+\fIFE FTCHECK+FTMONP,<\r
 ;LAST JOB SCHEDULED FOR EACH QUEUE\r
 \r
 JOBP:   REPEAT NQUEUE,<                EXP 1>\r
@@ -171,13 +170,14 @@ DEFINE X(A,B)
 INTERNAL REQTAB\r
 \r
 REQTAB: QUEUES\r
-\f\r
-;QUANTUM RUNNING TIME FOR EACH QUEUE IN JIFFIES(CLOCK TICKS)\r
+\r
+\f;QUANTUM RUNNING TIME FOR EACH QUEUE IN JIFFIES(CLOCK TICKS)\r
 \r
 DEFINE X(A,B)\r
 <      A'QUNT: EXP 2\r
        INTERNAL A'QUNT\r
 >\r
+\r
 QUANTS:        QUEUES\r
 >\r
        END,\r