.TITLE USTP
	.IDENT /14DC83/

;	File:[22,310]USTP.MAC
;	Author: Phil Hannay 14-Nov-83 (SDAT clone)
;	History: 14-Nov-83  Phil Hannay  Created using SDAT as template
;
;	Last Edit:
;

.REM |


PROCEDURE USTP(Task_Name:Rad56);
  EXTERNAL;

{*USER*
 Pascal-3 procedure to unstop a task designated by "Task_Name" which must
 be in RAD50 format.
  
This procedure directly implements executive directive USTP$. 
$DSW holds the directive status on return.

} 
|

;
; Assemble with PASMAC.MAC as prefix file.
;

	.MCALL USTP$S
	.PSECT	
	PROC USTP
	PARAM TKN, 2*INTEGER	;TASK NAME IN RAD50
	SAVE <R0>
	BEGIN
	MOV SP,R0		;PRESERVE STACK POINTER
	ADD #TKN,R0		;R1->TASK NAME
	USTP$S R0
	ENDPR
	.END