.TITLE PRICHK .SBTTL TITLE PAGE .IDENT /MRH001/ ; ; Frank R. Borger ; michael Reese Medical Center ; Department of Medical Physics ; July 78 ; ; This module is available for linking into mcr, mci etc ; ; It performs the same function of pds, ie ; ; a/ Looks at ...xxx task user is requesting ; ; b/ Checks priviledge word of user profile file to see if requestor ; has priviledge on calling, ; r0 must contain protection word, obtained from u.rbof the ti pud ; r1 must contain rad 50 3 letter task name ; ; c/ Returns with 0 in r0 as success indicator ; ; d/ Returns with -1 in r0 as success indicator ; ; e/ Other registers unchanged ; ; This is a dummy version, it just returns success ; .psect code,ro PRICHK::clr R0 ;show success rts pc .end