X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/bb920f47d2b4fd2ac0c46c72df890dfe6931e943..a0865c742fe1bf0b69346aa5f90665fc301e0236:/src/clkcss.mac diff --git a/src/clkcss.mac b/src/clkcss.mac index 2ccc5ac..f5b3b2e 100644 --- a/src/clkcss.mac +++ b/src/clkcss.mac @@ -3,6 +3,7 @@ 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: @@ -119,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