mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
49 lines
2.2 KiB
C
49 lines
2.2 KiB
C
/***************************************************************************
|
|
*
|
|
* _ c h k u s e r F u n c t i o n
|
|
* ---------------------------------
|
|
*
|
|
* '_chkuser' and '_uchkuser' handle user numbers under CPM before
|
|
* version 4. The user number is stored in the ccb structure;
|
|
* if a zero, the default user # is assumed, else the _chkuser()
|
|
* routine sets the user number to the desired user number (one less
|
|
* than the stored user number, since user 0 is valid - similar to the
|
|
* default drive spec for an FCB).
|
|
* '_uchkuser()' sets the user number back to its previous value.
|
|
*
|
|
****************************************************************************/
|
|
|
|
#include "portab.h"
|
|
#include "osif.h"
|
|
/****************************/
|
|
WORD _chkuser(newu) /* */
|
|
WORD newu; /* Desired user number */
|
|
{ /****************************/
|
|
#if CPM /*===============================================================*/
|
|
REG WORD prevu; /* Previous user number */
|
|
/****************************/
|
|
if( newu == 0 ) /* Default user # desired? */
|
|
return 0; /* Yes, return */
|
|
prevu = __OSIF(USER,0xFF)+1; /* Get prev and adjust */
|
|
if( newu != prevu ) /* Are they different? */
|
|
__OSIF(USER,newu-1); /* Yes, set to desired u# */
|
|
return prevu; /* Return the previous */
|
|
#else /*===============================================================*/
|
|
return 0;
|
|
#endif /*===============================================================*/
|
|
} /****************************/
|
|
|
|
/****************************/
|
|
_uchkuser(newu,prevu) /* */
|
|
WORD newu; /* Desired user number */
|
|
WORD prevu; /* Previous user number */
|
|
{ /****************************/
|
|
#if CPM /*===============================================================*/
|
|
if( newu == 0 ) /* Default user #? */
|
|
return; /* assume no change */
|
|
if( newu != prevu ) /* Are they different? */
|
|
__OSIF(USER,prevu-1); /* Yes, set to what it was*/
|
|
#else /*===============================================================*/
|
|
return 0;
|
|
#endif /*===============================================================*/
|