home *** CD-ROM | disk | FTP | other *** search
- #include <ebss.h>
- struct rqb *Res_pdequeue();
- struct rqb *pdequeue(); /* @0310 */
- portmsg() /* @0201 *//* @0308 *//* @0310 */
- { /* @0201 */
- struct rqb * rp; /* @0310 */
- short msgno; /* @0310 */
- short pno; /* @0310 */
- short *pp; /* @0310 */
- #if (OVL_TYPE==1 && RESIDENT==0)
- rp=Res_pdequeue(&(avt->msgq)); /* @0310 */
- #else /* @0310 */
- rp=pdequeue((struct rqb *)0,&(avt->msgq)); /* @0310 */
- #endif
- msgno=rp->th.ra.rparm.parm.parm1; /* @0310 */
- pno=rp->th.ra.rparm.parm.parm2; /* @0310 */
- pp=rp->th.ra.wa.rqba.area1; /* @0310 */
- #if (OVL_TYPE==1 && RESIDENT==0) /* @0310 */
- Res_prelrq(rp); /* @0310 */
- #else /* @0310 */
- prelrq(rp); /* @0310 */
- #endif /* @0310 */
- #if (OVL_TYPE && RESIDENT==1) /* @0310 */
- Trn_psmsgop(msgno,pno,pp); /* @0201 *//* @0308 *//* @0310 */
- #else /* @0310 */
- psmsgop(msgno,pno,pp); /* @0201 *//* @0308 *//* @0310 */
- #endif /* @0310 */
- if (avt->msgq!=0) /* @0310 */
- return 1; /* @0310 */
- else /* @0310 */
- return 0; /* @0310 */
- } /* @0201 *//* @0308 */