|
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 - download
Length: 545 (0x221)
Types: TextFile
Notes: UNIX file
Names: »jl19.c«
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
└─⟦2d53db1df⟧ UNIX V7 Filesystem
└─ ⟦this⟧ »hr/src/jlib/jl19.c«
#include <jlib.h>
extern int myfd;
extern struct jqueue sendq,
runq,
s_replyq;
POINT G_GetPoint(wid)
int wid;
{
MsgReceiver = SMGR;
MsgCmd = SM_GETPOINT;
MsgWid = wid;
sendmess( );
jdoze(&s_replyq);
Msg = runq.jq_head->j_m;
if ( MsgCmd != WM_REPLY )
warn("Bad reply from SM_GetPoint %d\n", MsgCmd);
if ( MsgWid != wid )
warn("Bad wid from SM_GetPoint: got %d, need %d\n", MsgWid, wid);
return MsgPt;
}
int G_RstPoint(wid)
int wid;
{
MsgReceiver = SMGR;
MsgCmd = SM_RSTPOINT;
MsgWid = wid;
sendmess( );
return(0);
}