.
.  This macro calculates the address of the XCB of the current task.
.          laxcbp    ak,xj
.             ak - destination register for ^XCB.
.             xj - scratch register
.
         PROC
laxcbp   pname
f:(0)    ente      f:(2,1),r_bc      .Read base constant
         cpysx     f:(2,1),f:(2,1)
         shfx      f:(2,1),f:(2,1),x0,32
         addxq     f:(2,1),f:(2,1),1000(16)+snjfjob
         shfc      f:(2,1),f:(2,1),x0,32
         cpyxa     f:(2,0),f:(2,1)
         pend
.
*copyc SYA$CONSTANTS
*copyc sya$xp_and_sf_constants
