.TITLE SPWNX Spawn Task extended .IDENT "GWM01" .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 unit; /* VT: or TT: unit number ; GWM01 ; char device[2]; /* terminal device */ ; GWM01 ; word status; /* Returned DSW */ ; ; status = spwn(tsknam,uic,eflag,astsrv,esb, ; cmdlin,cmdlgt,unit,device); ; ; ; [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. ; GWM01 28-JUN-85 added support for specified TI: and renamed ; to SPWNX. G. Merriman Associated Press ; .mcall spwn$s spwnx:: 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