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

diff --git a/src/clkcss.mac b/src/clkcss.mac
index 963ddd4..f5b3b2e 100644
--- 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
 		;PUT VERSION NUMBER IN GLOB LISTING AND LOADER STORAGE MAP
 
+
 ;SCHEDULING ALGORITHM IS:
 ;CALLED EVERY 60TH OF A SECOND WHEN CURRENT JOB IS USER MODE
 ;CALLED WHEN CURRENT JOB IS IN EXEC MODE AND:
 ;	1. JUST STARTED TO WAIT FOR IO
-
 ;	2. JUST STARTED TO WAIT FOR A BUSY SHARABLE DEVICE
 ;	3. RETURNING TO USER AFTER TYPING CONTROL C
 ;	4. RETURNING TO USER AFTER CLOCK TRIED TO INTERRUPT
@@ -120,12 +120,14 @@ DEFINE X(A,B)
 	QUEUES
 	LOC=ZZ
 >
+
 IFE FTCHECK+FTMONP,<
 ;APPROPRIATE ENTRY IS NON-ZERO WHEN SCHEDULER SHOULD LOOK
 ;AT THAT QUEUE TO FIND A JOB TO RUN
 ;WSAVAL CONTAINS THE NO. OF JOBS WITH IO WAIT SATISFIED(0=NONE)
 ;SIMILARLY FOR TSAVAL
 
+
 DEFINE X(A,B)
 <	INTERNAL A'AVAL,A'Q
 	A'Q=.-AVALTB