|
DataMuseum.dkPresents historical artifacts from the history of: Commodore CBM-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Commodore CBM-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 597 (0x255) Types: TextFile Notes: UNIX file Names: »jl10.c«
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code └─⟦2d53db1df⟧ UNIX Filesystem └─⟦this⟧ »hr/src/jlib/jl10.c«
#include <jlib.h> extern int myfd; extern struct jqueue sendq, runq, s_replyq; int S_SetEvMsk(wid, mask) int wid; int mask; { MsgReceiver = SMGR; MsgCmd = SM_SETEVMSK; MsgWid = wid; MsgData1 = mask; sendmess(); return(0); } int S_GetEvMsk(wid) int wid; { MsgReceiver = SMGR; MsgCmd = SM_GETEVMSK; MsgWid = wid; sendmess( ); jdoze(&s_replyq); Msg = runq.jq_head->j_m; if(MsgWid != wid) warn("S_GetEvMsk: bad wid"); return MsgData1; } int S_RstEvMsk(wid) int wid; { MsgReceiver = SMGR; MsgCmd = SM_RSTEVMSK; MsgWid = wid; sendmess( ); return(0); }