source: buchla-68k/orig/MT/MTGETID.C@ 6099cac

Last change on this file since 6099cac was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Imported original source code.

  • Property mode set to 100755
File size: 823 bytes
RevLine 
[3ae31e9]1/*
2 =============================================================================
3 mtgetid.c -- Multi-Tasker -- get current task ID
4 Version 2 -- 1988-04-12 -- D.N. Lynx Crowe
5 (c) Copyright 1988 -- D.N. Lynx Crowe
6 =============================================================================
7*/
8
9#include "stddefs.h"
10#include "biosdefs.h"
11#include "mtdefs.h"
12
13extern struct _mtdef *_MT_; /* Multi-Tasker structure pointer */
14
15/*
16 =============================================================================
17 MTGetID() -- get current task ID
18 =============================================================================
19*/
20
21unsigned
22MTGetID()
23{
24 if ((struct _mt_def *)NIL EQ _MT_)
25 _MT_ = (struct _mt_def *)XBIOS(X_MTDEFS);
26
27 return(_MT_->CurP->tid); /* return current task ID */
28}
Note: See TracBrowser for help on using the repository browser.