X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/cda2ba6d27526e5ef6f27f7b3391cfb55055bf2e..d693caac75dd25e668e43e85c29205bfc8dea06e:/src/clkcss.mac

diff --git a/src/clkcss.mac b/src/clkcss.mac
index 1412f7f..963ddd4 100644
--- 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
 				;NEG. VALUE IF MORE THEN ON JOB CAN
 				;USE DEVICE AT ONCE
-
-INTERNAL NXTJOB
+INTERNAL NXTJOB
 INTERNAL FTTRPSET,FTDISK
 EXTERNAL JOB,TIMEF,JBTSTS,JOBMAX,JOBN,PJBSTS,CPOPJ,CHKSHF
 ENTRY XCKCSS
@@ -75,8 +74,7 @@ NXT5:	CAIL ITEM,JOBN		;GREATER THEN HIGHEST JOB NO.?
 	JRST NXT8		;YES, IT IS RUNABLE AND IS IN THIS QUEUE
 NXT6:	SOJLE C,NXT3		;NO IT IS NOT, SCANNED ALL JOBS YET?
 	AOJA ITEM,NXT5		;NO, LOOK AT NEXT JOB
-
-;HERE IF NO JOBS FOUND TO RUN(Q=-1)
+;HERE IF NO JOBS FOUND TO RUN(Q=-1)
 
 NXT7:	MOVEI C,JOBN		;SCAN ALL JOBS INCLUDING POSSIBLY NULL JOB
 	MOVE ITEM,JOB		;STARTING WITH LAST JOB TO RUN
@@ -106,8 +104,8 @@ IFN FTTRPSET,<
 	MOVE T,QUANTS(Q)	;SET QUANTUM RUNNING TIME FOR QUEUE
 	HRRM T,JBTSTS(ITEM)	;WHICH JOB HAS JUST LEFT
 	POPJ    PDP,		;RETURN
-
-INTERNAL FTCHECK,FTMONP
+
+INTERNAL FTCHECK,FTMONP
 
 IFN FTCHECK+FTMONP,<
 EXTERNAL JOBP,AVALTB,REQTAB,QUANTS
@@ -151,10 +149,9 @@ DEFINE X(A)
 	A'Q=LOC
 	LOC=LOC+1
 >
-
+
 	CODES
-
-IFE FTCHECK+FTMONP,<
+IFE FTCHECK+FTMONP,<
 ;LAST JOB SCHEDULED FOR EACH QUEUE
 
 JOBP:   REPEAT NQUEUE,<		EXP 1>
@@ -171,13 +168,14 @@ DEFINE X(A,B)
 INTERNAL REQTAB
 
 REQTAB: QUEUES
-
-;QUANTUM RUNNING TIME FOR EACH QUEUE IN JIFFIES(CLOCK TICKS)
+
+;QUANTUM RUNNING TIME FOR EACH QUEUE IN JIFFIES(CLOCK TICKS)
 
 DEFINE X(A,B)
 <	A'QUNT: EXP 2
 	INTERNAL A'QUNT
 >
+
 QUANTS:	QUEUES
 >
 	END,