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
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