.TITLE SPWN Spawn Task .IDENT "V1.3" .ENABL LC .PSECT C$CODE ;+ ; Index SPWN Spawn Task ; ; ; Usage ; ; ; #include ; rad50 tsknam[2]; /* 2 word RAD50 task name */ ; word uic; /* UIC of offspring task */ ; word eflag; /* Event flag number */ ; {typ} astsrv(); /* AST service routine */ ; word esb[8]; /* 8 word status block */ ; char *cmdlin; /* --> command line */ ; word cmdlgt; /* Length (bytes) of cmd line */ ; word unum; /* unit number to run under */ ; word dnam; /* device name to run under */ ; word status; /* Returned DSW */ ; ; status = spwn(tsknam,uic,eflag,astsrv,esb, ; cmdlin,cmdlgt,unam,dnam); ; ; ; Notes ; ; Does not support specified TI:. ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial Edit ; V1.1 09-Sep-80 RBD Dumb typo ; V1.2 20-Oct-82 RBD Change P-Section. Fix Documentation. ; V1.3 2-JUL-85 BRC Alow spawing under other devices. ; .mcall spwn$s spwn:: mov sp,r0 ;r0 --> parameters stack frame spwn$s 2(r0),,,5(r0),4(r0),6(r0),10(r0),12(r0),14(r0),16(r0),20(r0),22(r0) mov $dsw,r0 ;return dsw return .end