Fixed typos.

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

diff --git a/src/clkcss.mac b/src/clkcss.mac
index 1412f7f..963ddd4 100644 (file)
--- a/src/clkcss.mac
+++ b/src/clkcss.mac
@@ -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
@@ -151,10 +149,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 +168,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