File: SWAP.PA of Tape: Sources/RTS/dec-s8-ortsa-c-uc1-rts8
(Source file text)
/1 SWAPPER TASK FOR RTS8 V2B 8/30/74 VERS= 1 XLIST 1 /COPYRIGHT ALSO GIVEN IN PARAM.PA /EDIT HISTORY: / 2-APR-75 CHANGE: FORCE OFF SWPWT AND FORCE ON NONRWT / 18-JUN-75 FIX GROSS BUG IN NON-CHECKPOINTING VERSION / 19-JUN-75 FIX BUG IN CHECKPOINTING VERSION / 08-OCT-76 MOVED TABLES TO EXEC / / / / / / / / / /COPYRIGHT (C) 1974,1975,1976 BY DIGITAL EQUIPMENT CORPORATION / / / / / / / / / / /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. / /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. / /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY /DIGITAL. / / / / / / / / / / XLIST 0 /LIST TASK TASK= SWAPPER /BY SHAWN 7/25/74 CUR= 0 INIWT= RUNWT COMMAND=43 /SWAPPER COMMAND BUFFER FIELD 0 /MUST BE FIELD 0 *COMMAND INIT /ENTRY POINT FOR INITIALIZATION XFREE / /PARTITION TABLE (PARTBL) ENTRIES: / / N O T E: THESE ARE NORMALLY DEFINED IN THE PARAMETER FILE / BUT A USER CAN DEFINE THEM HERE IF HE WANTS / BY NOT DEFINING THE SYMBOL 'PRTEND' / IN THE PARAMETER FILE / XLIST 1 IFNDEF PRTEND < XLIST 0 /MUST BE INITIALIZED BY USER AS EXPLAINED IN THE COMMENTS /DON'T FORGET TO REMOVE LEADING "/" FROM LINES USED / *PARTBL XLIST 1 IFNZRO PARTNS <XLIST 0 /MFLD00= /MEMORY FIELD OF PARTITION #0 (E.G. 2 IF FIELD 2) /ADDR00= /LOWEST ADDRESS IN PARTITION #0 /SIZE00= /SIZE OF PARTITION #0 (CORE PAGES) SIZE00^10+MFLD00^10+4000 ADDR00 ZBLOCK 2 XLIST IFNZRO PARTNS-1 <XLIST 0 /MFLD01= /MEMORY FIELD OF PARTITION #1 /ADDR01= /LOWEST ADDRESS IN PARTITION #1 /SIZE01= /SIZE OF PARTITION #1 (CORE PAGES) SIZE01^10+MFLD01^10+4000 ADDR01 ZBLOCK 2 XLIST IFNZRO PARTNS-2 <XLIST 0 /MFLD02= /MEMORY FIELD OF PARTITION #2 /ADDR02= /LOWEST ADDRESS IN PARTITION #2 /SIZE02= /SIZE OF PARTITION #2 SIZE02^10+MFLD02^10+4000 ADDR02 ZBLOCK 2 XLIST IFNZRO PARTNS-3 <XLIST 0 /MFLD03= /PARTITION #3 /ADDR03= /SIZE03= SIZE03^10+MFLD03^10+4000 ADDR03 ZBLOCK 2 XLIST IFNZRO PARTNS-4 <XLIST 0 /MFLD04= /PARTITION #4 /ADDR04= /SIZE04= SIZE04^10+MFLD04^10+4000 ADDR04 ZBLOCK 2 XLIST IFNZRO PARTNS-5 <XLIST 0 /MFLD05= /PARTITION #5 /ADDR05= /SIZE05= SIZE05^10+MFLD05^10+4000 ADDR05 ZBLOCK 2 XLIST IFNZRO PARTNS-6 <XLIST 0 /MFLD06= /PARTITION #6 /ADDR06= /SIZE06= SIZE06^10+MFLD06^10+4000 ADDR06 ZBLOCK 2 XLIST IFNZRO PARTNS-7 <XLIST 0 /MFLD07= /PARTITION #7 /ADDR07= /SIZE07= SIZE07^10+MFLD07^10+4000 ADDR07 ZBLOCK 2 XLIST>>>>>>>> / /ADDITIONAL PARTITIONS MAY BE DEFINED BY THE USER AS SHOWN ABOVE /FURTHERMORE, THE PARTITION TABLE MAY RESIDE ANYWHERE IN FIELD ZERO / XLIST 0> XLIST 1 IFDEF PRTEND < XLIST 0 FIELD 0 *PRTEND XLIST 1> XLIST 0 PAGE NRTASK=SWAPPER+1 LOOPNX, IFZERO HGHFLD <ION> ISZ NXTFLG /BUMP TFTABL POINTER ISZ NFLAGS /AND TASK COUNTER JMP LOOPON /CONTINUE IF ANY TASKS LEFT SWAPEX, CAL SUSPND START, SWAPON, TAD (NRTASK+TFTABL DCA NXTFLG /POINTS TO NEXT TFTABL ENTRY TAD (NRTASK-NTASKS DCA NFLAGS /TFTABL ENTRY OVERFLOW COUNT LOOPON, TAD I NXTFLG /GET A FLAG WORD AND KSWPWT /KEEP ONLY THE SWPWT BIT SNA CLA /THIS TASK IN SWPWT? JMP LOOPNX /NO: TRY NEXT TASK IFZERO HGHFLD <IOF> IFNZRO HGHFLD <CIF CUR> TAD I NXTFLG /GET THE FLAG WORD TAD (-SWPWT /LESS THE SWPWT BIT SNA /TASK RUNABLE NOW? JMP GOTONE /YES: RESIDENCY CANDIDATE TAD KNRWT /NO: FLAG HIM NONRESIDENT DCA I NXTFLG /AND TRY SOMEONE ELSE JMP LOOPNX GOTONE, IFZERO HGHFLD <ION> TAD NXTFLG TAD (-TFTABL CLL RAL /TASK NUMBER TIMES 2 TAD (-NRTASK-NRTASK+RESTBL DCA PTR2 /POINTS TO RESTBL WORD 1 UNBUSY, TAD I PTR2 AND (7774 DCA PTR3 /POINTS TO PARTBL WORD 1 TAD I PTR3 RAR /PARTITION BUSY BIT TO LINK SZL /PARTITION BUSY? JMP CHKPT /YES: CHECKPOINT RAL DCA LEVEL /SAVE IO DRIVER ARG2 ISZ PTR2 /POINTS TO RESTBL WORD 2 ISZ I PTR3 /FLAG PARTITION BUSY ISZ PTR3 /POINTS TO PARTBL WORD 2 TAD I PTR3 /GET PARTITION ADDRESS DCA CORADR ISZ PTR3 /POINTS TO PARTBL WORD 3 TAD I PTR3 SNA /ANYONE HOME? JMP NORITE DCA PTR4 /POINTS TO RESTBL WORD 1 TAD PTR4 CMA /COMPARE WITH SAME POINTER TAD PTR2 /FOR NEW RESIDENT SNA CLA /SAME TASK? JMP NOREAD /YES: NO TASK IO TAD I PTR4 RAR /"WRITE ME" BIT TO LINK SNL CLA /NEED TO WRITE CURRENT OCCUPANT? JMP NORITE /NO: READ IN NEW OCCUPANT ISZ PTR4 /POINTS TO RESTBL WORD 2 TAD I PTR4 /AC=DISK ADDRESS FOR WRITE DCA DSKADR JMS SENDIT NORITE, CLL CMA RAR /AC3777 AND LEVEL DCA LEVEL /CLEAR THE WRITE BIT TAD I PTR2 DCA DSKADR JMS SENDIT NOREAD, CLA CMA TAD PTR2 DCA I PTR3 TAD I PTR3 TAD (NRTASK+NRTASK-RESTBL CLL RAR CAL /CLEAR HIS SWAP WAIT UNBARG KSWPWT, SWPWT JMP SWAPON /RESCAN FROM THE TOP IFDEF CHECKPT < CHKPT, STL CLA RTL /AC0002 TAD PTR3 DCA PTR4 TAD I PTR4 DCA PTR1 /POINTS TO OWNER'S RESTBL WORD 1 TAD I PTR1 RTR /"CHECKPOINTABLE" BIT TO LINK SNL CLA /IS HE CHECKPOINTABLE? JMP LOOPNX /NO: NEXT REQUEST TAD PTR1 CLL CMA TAD PTR2 /COMPARE RESTBL POINTERS SZL CLA /NEWCOMER HIGHER PRIORITY? JMP LOOPNX /NO: NEXT REQUEST TAD PTR1 TAD (NRTASK+NRTASK-RESTBL CLL RAR CAL BLKARG > KNRWT, NONRWT IFDEF CHECKPT < STA /FLAG PARTITION "FREE" TAD I PTR3 DCA I PTR3 JMP UNBUSY > IFNDEF CHECKPT < CHKPT, CLA JMP LOOPNX > NXTFLG, 0 NFLAGS, 0 PTR2, 0 PTR3, 0 PTR4, SENDIT, 0 RETRY, CAL SENDW SYS SYSMSG TAD ERRORS SNA CLA JMP I SENDIT JMP RETRY SYSMSG, ZBLOCK 3 UNIT, SUNIT LEVEL, . CORADR, . DSKADR, . PTR1, ERRORS, . PAGE TASKX= 32 T= 42 / /THE FOLLOWING CODE IS ACTUALLY PART OF THE EXECUTIVE /HOWEVER, IT RESIDES HERE FOR COMPATIBILITY WITH VERSION 1. /ENTER WITH ION, AC=0, LINK=DON'T CARE, SAVE STATE ON INTERRUPTS / XFREE, 0 /FREE UP A PARTITION TAD TASKX TAD (-NRTASK SPA /THIS TASK LOWER PRIORITY THAN SWAPPER? JMP I XFREE /NO: BAD FREE COMMAND CLL RAL TAD (RESTBL DCA T /POINTS TO RESTBL WORD 1 TAD I T SNA /IS TASK REALLY NONRES? JMP I XFREE /NO: RETURN AND (7774 /YES: ERASE FLAG BITS DCA T /POINTS TO PARTBL WORD 1 AC7776 AND I T DCA I T /FLAG PARTITION "FREE" TAD TASKX TAD (TFTABL DCA T /POINTS TO TASK'S FLAG WORD IFNZRO HGHFLD <CIF 0> IFZERO HGHFLD <IOF> STL RAR TAD I T DCA I T /FLAG TASK NONRESIDENT TAD (-RUNWT-1 AND I (SWAPPER+TFTABL DCA I (SWAPPER+TFTABL /CANCEL SWAPPER RUN WAIT IFZERO HGHFLD <ION> /BE NICE SINCE SPACE IS NO PROBLEM JMP I XFREE /FIND NEXT TASK TO RUN / /THE FOLLOWING CODE IS ENTERED AT LOAD TIME AND EXECUTED /TO INITIALIZE THE RESTBL WITH THE DISK ADDRESS OF EACH /NONRESIDENT TASK. ONCE THIS CODE HAS RETURNED TO THE EXEC, /IT IS NEVER EXECUTED AGAIN. IT COULD BE PLACED IN ANY /PARTITION (SINCE ALL ARE EMPTY AT LOAD TIME) IF DESIRED. / INIT, 0 CIF 10 JMS I (7700 10 NEXTIN, CIF 10 JMS I (200 5 2326 CDF 10 TAD I (7646 SNA JMP NOINPUT CLL RAL TAD (-SWAPPER-SWAPPER-1+RESTBL DCA T TAD I (7646 / TAD (TFTABL / DCA TFPTR / TAD I (7620 CDF IAC DCA I T TAD I TFPTR / AND (-SWPWT-NONRWT-1 /FORCE TASK NON-RESIDENT WAIT BIT ON TAD (NONRWT / DCA I TFPTR / CDF 10 NOINPUT,TAD I (7642 CDF SMA CLA JMP NEXTIN CIF 10 JMS I (200 11 CLA CLL CMA TAD INIT DCA INIT TAD (ION DCA I INIT JMP I (200 TFPTR, 0 / $$$$$