.TITLE ATRG .PSECT .PROG. .IDENT /01/ .ENABL LC ; ; P. Hays 16 March 79 ; ; Attach region. ; int atrg(rdbadr) rdbx *rdbadr; ; Rdbadr is the address of a region definition block which is handled ; per the description of macro atrg$, RSX11-M executive reference manual. ; ; Atrg returns the value of the directive status word if the directive ; is rejected. ; .mcall atrg$s atrg:: mov 2(sp),r1 ; Get address of rdb clr r0 ; Tentatively clear return value atrg$s r1 ; Call the exec routine bcc 9$ ; Good return -> mov @#$dsw, r0 ; else return directive status word. 9$: return .end