.TITLE GREG Get Region Parameters .IDENT "V1.1" .ENABL LC .PSECT C$CODE ;+ ; Index GREG Get Region Parameters ; ; Usage ; ; #include ; #include ; rad50 regnam[2]; /* RAD50 region name */ ; struct rparbf regdat; /* Region parameters buffer */ ; word status; /* Returned DSW */ ; ; status = greg(regnam, ®dat); ; ; Notes ; ; If a NULL pointer(!) to the region name is passed, the parameters ; returned are those of the task region of the issuing task. ; [end] ;- ; Edits: ; V1.0 12-Jun-80 RBD Initial Edit ; V1.1 20-Oct-82 RBD Change P-Section. Fix documentation. ; .mcall greg$s greg:: mov sp,r0 ;Save arg frame pointer tst 2(r0) ;Ptr. to region name NULL? beq 10$ ;NULL means omit 'rid' in macro call greg$s 2(r0),4(r0) ;Call for named region parameters. br 20$ ;... or ... 10$: greg$s ,4(r0) ;Call for issuing task region parameters. 20$: mov $dsw,r0 ;return dsw return .end