.TITLE CRAW .PSECT .PROG. .IDENT /01/ .ENABLE LC ; ; P. Hays 16 March 79 ; ; Create an address window. ; int craw(wdbadr) wdbx *wdbadr; ; Wdbadr is the address of a window definition block as described ; in the RSX11-M executive reference manual. ; ; This function returns 0 if the directive is accepted, or the value ; of the directive status word if rejected. ; .mcall craw$s craw:: mov 2(sp),r1 ; Get address of wdb clr r0 ; Tentatively clear return value craw$s r1 ; Call the exec routine bcc 9$ ; Good return -> mov @#$dsw,r0 ; else return directive status word. 9$: return .end