.TITLE ASTREC .PSECT .PROG. .IDENT /01/ .ENABLE LC ; ; P. Hays 16 March 79 ; ; Disable ast recognition. ; int dsar() ; Enable ast recognition. ; int enar() ; ; The return value is 0 if the executive directive is accepted; ; otherwise the value of the executive's directive status word is returned. ; .mcall dsar$s, enar$s dsar:: clr r0 ; Clear in case of successful return dsar$s bcc 9$ mov @#$dsw,r0 ; Get dsw for rejection of directive. 9$: return enar:: clr r0 ; Clear in case of successful return enar$s bcc 9$ mov @#$dsw,r0 ; Get dsw for rejection of directive. 9$: return .end