.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 <R0,R1,R2>
	BEGIN
	MOV 	SP,R1		;PRESERVE STACK POINTER
	ADD 	#TKN,R1		;R1->TASK NAME
	ALTP$S 	R1,PRI(SP)
	ENDPR
	.END