;***** ; ; FIXOV "SLP" file for added protection when implementing ; alternate CLI's under MV3.2/M+V1.0. This patch checks ; if the task being REMoved is a CLI, and if so, checks if ; the task has a special pointer in the system lists; ; only DEC CLI's have special pointers. Any CLI that ; doesn't belong to DEC will be blocked from removal until ; its CLI status is dropped. ; ; NOTE: This SLP file is for RSX-11M V3.2, .IDENT /1.1A/ ; but should work for any version (???) requiring only ; a modified .IDENT here to keep things straight. ; FIXOV.SLP requires a virgin copy of FIXOV.MAC to be ; in FIXOV.VGN...USAGE: SLP @FIXOV.SLP ;***** ; ; Paul Sorenson, 3/21/84 ; AEP/Interactive Graphics Section ; Columbus, OH 43214 ; ;***** ; FIXOV.MAC/AU:72.=FIXOV.VGN -/.IDENT/,. .IDENT /1.1AP/ -/JRK141/,, ; ; P.R. SORENSON 21-MAR-84 ; PRS01 BLOCK REMOVAL OF NON-DEC CLIS -/REMOVE:/ -/U2.PRV/+2,,/;PRS01/ BIT #T3.CLI,T.ST3(R1) ; TASK A CLI ?? BEQ 9$ ; NO, ALLOW "REM" MOV #TSKTB,R4 ; PICKUP START OF SPECIAL TASK POINTERS 5$: TST (R4) ; END-OF-LIST ?? BEQ UNF3 ; YES, NON-DEC CLI...BLOCK REM CMP T.NAM(R1),(R4) ; CHECK 1ST HALF OF NAME BNE 8$ ; BRANCH ON NO MATCH CMP T.NAM+2(R1),2(R4) ; MAYBE, CHECK 2ND HALF BEQ 9$ ; MATCH, ALLOW "REM" 8$: ADD #6,R4 ; STEP TO NEXT ENTRY 9$: ; REF LABEL //