.TITLE ALTPPA .IDENT /082289/ ; File:[22,310]ALTPPA.MAC ; Author: Jim Bostwick 1-Nov-83 (P2util clone) ; History: 8-Nov-83 JMB remove IDS parameter ; 12-Feb-87 PTH corrected external defn ; 17-APR-87 PJS Convert to VSDA from SDAT ; 22-Aug-89 PJS Ceoverted to ALTP ; ; Last Edit: 22-AUG-1989 20:36:16 ; .REM | PROCEDURE ALTPPA(Task_Name:Rad56; Priority:INTEGER );External; {*USER* This routine alters the priority of the given task_name. If the task_name is zero then the task issuing the commands priority is changed. The priority must be between 1 and 250. Task_Name must be in RAD50 format. This procedure directly implements executive directive ALTP$. $DSW holds the directive status on return. } | ; ; Assemble with PASMAC.MAC as prefix file. ; .MCALL ALTP$S .PSECT PROC ALTPPA PARAM TKN, 2*INTEGER ;TASK NAME IN RAD50 PARAM PRI, INTEGER SAVE BEGIN MOV SP,R1 ;PRESERVE STACK POINTER ADD #TKN,R1 ;R1->TASK NAME ALTP$S R1,PRI(SP) ENDPR .END