.TITLE DECL .PSECT .PROG. .IDENT /01/ .ENABLE LC ; ; P. Hays 25 April 79 ; ; Declare a significant event ; int decl() ; ; The return value of the function is normally 0; if the directive ; is rejected, the value of the directive status word is returned. ; .mcall decl$s decl:: clr r0 decl$s bcc 5$ mov @#$dsw, r0 5$: return .end