.TITLE SDRP Send, Request and Pass OCB .IDENT "V1.0" .ENABL LC .PSECT C$CODE ;+ ; Index SDRP Send, Request and Pass OCB ; ; ; Usage ; ; #include ; #include /* OCB Definitions */ ; /* ; * 'flag' parameter symbolics ; */ ; #define SD_REX 128 /* Force exit */ ; #define SD_RAL 1 /* Pass all OCB's */ ; #define SD_RNX 2 /* Pass 1st OCB */ ; rad50 tname[2]; /* Offspring task name */ ; word msgbuf[13]; /* 13-word buffer */ ; word efn; /* Event flag */ ; word flag; /* Exec. flags (see above) */ ; rad50 parent[2]; /* Parent task name */ ; struct ocb *ocbpt; /* Address of OCB (CLIs only) */ ; word status; /* Returned DSW */ ; ; status = sdrp(tname,msgbuf,efn,flag,parent,ocbpt); ; ; [end] ;- ; Edits: ; V1.0 20-Oct-82 RBD Initial edit ; .mcall sdrp$s sdrp:: mov sp,r0 ; r0 --> calling stack sdrp$s 2(r0),4(r0),#13.,6(r0),10(r0),12(r0),14(r0) mov $dsw,r0 ; Return DSW return .end