.TITLE EMST Emit Status .IDENT "V1.0" .ENABL LC .PSECT C$CODE ;+ ; Index EMST Emit Status ; ; Usage ; ; #include ; rad50 tname[2]; /* Spec'd connected task */ ; word estat; /* Emitted status value */ ; word dstat; /* Returned DSW */ ; ; dstat = emst(tname, estat); ; ; [end] ;- ; Edits: ; V1.0 12-Oct-82 RBD Initial edit ; .mcall emst$s emst:: mov sp,r0 ; r0 --> call stack emst$s 2(r0),4(r0) ; Do it mov $dsw,r0 ; Return DSW return .end