.TITLE SDAT .IDENT /110183/ ; File:[22,310]SDAT.MAC ; Author: Jim Bostwick 1-Nov-83 (P2util clone) ; History: 8-Nov-83 JMB remove IDS parameter ; 12-Feb-87 PTH corrected external defn ; ; Last Edit: 12-FEB-1987 18:20:55 ; .REM | PROCEDURE SDAT(Task_Name:Rad56; Var Buff:CH26; EFN:Event_Flag );External; {*USER* Pascal-3 procedure to send a 26-byte data packet to the specified task. EFN is set for the SENDING task. (of course, globals or group globals may be used). If f0 is specified, no flag is set. Task_Name must be in RAD50 format. This procedure directly implements executive directive SDAT$. $DSW holds the directive status on return. 021882, 030582, 101582, 110183, 110883 JMB } | ; ; Assemble with PASMAC.MAC as prefix file. ; .MCALL SDAT$S .PSECT PROC SDAT PARAM TKN, 2*INTEGER ;TASK NAME IN RAD50 PARAM BUFF, ADDRESS PARAM EFN, SCALAR SAVE BEGIN MOV SP,R0 ;PRESERVE STACK POINTER MOV R0,R1 ; ADD #TKN,R1 ;R1->TASK NAME SDAT$S R1,BUFF(0),EFN(0) ENDPR .END