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