.TITLE RSUM
	.IDENT /041388/



;	Version:
;	File:[22,320]RSUM.MAC
;	Author: Peter Stadick 
;	History: 
;	Last Edit: 13-APR-1988 13:03:42 
; 

.REM |

Procedure RSUM( task:RAD56 );EXTERNAL;

{*USER*

This Pascal-2.1e external call will resume a task that is suspended, but
it can also be used to find out if a specfic task is active or not.

Directive status is available in $DSW on return.

} 
|

;
; Assemble with PASMAC.MAC as prefix file.
;
; Thanks to Frank S. for the idea and the Pascal-1 version, which I 
; brazenly plagiarized. Same here - P. Stadick.
;

         .MCALL  RSUM$S
	
	PROC RSUM
	PARAM TKN, 2*INTEGER		;task name in rad50
	SAVE <R0, R1, R2, R3, R4 >
	BEGIN
	MOV SP,R0			;PRESERVE SP
	MOV R0,R1
	ADD #TKN,R1			;R1->TASK NAME
3$:     RSUM$S R1			;EXEC RESUME
	ENDPR
	.END