mirror of
https://github.com/wwarthen/RomWBW.git
synced 2026-02-06 14:11:48 -06:00
57 lines
1.0 KiB
C
57 lines
1.0 KiB
C
/* clogical.c 6/4/2012 dwg - */
|
||
|
||
#include "portab.h"
|
||
#include "cpmbios.h"
|
||
#include "asmiface.h"
|
||
|
||
lugcur(drive)
|
||
{
|
||
asmif(pGETLU,drive,0,0);
|
||
return xregde;
|
||
}
|
||
|
||
lugnum(drive)
|
||
{
|
||
asmif(pGETLU,drive,0,0);
|
||
return xreghl;
|
||
}
|
||
|
||
lugdu(drive)
|
||
{
|
||
asmif(pGETLU,drive,0,0);
|
||
return xregbc>>8;
|
||
}
|
||
|
||
luscur(drive,lunum)
|
||
{
|
||
asmif(pGETLU,drive,0,0);
|
||
/* A = Result 0=OK */
|
||
/* B = devunit */
|
||
/* DE = current */
|
||
/* HL = numlu */
|
||
|
||
/* BC = devunit*256+drive */
|
||
/* DE = current */
|
||
/* HL = numlu */
|
||
asmif(pSETLU,xregbc,lunum,xreghl);
|
||
}
|
||
|
||
lusnum(drive,numlu)
|
||
{
|
||
asmif(pGETLU,drive,0,0);
|
||
/* A = Result 0=OK */
|
||
/* B = devunit */
|
||
/* DE = current */
|
||
/* HL = numlu */
|
||
|
||
/* BC = devunit*256+drive */
|
||
/* DE = current */
|
||
/* HL = numlu */
|
||
asmif(pSETLU,xregbc,xregde,numlu);
|
||
}
|
||
|
||
|
||
/********************/
|
||
/* eof - clogical.c */
|
||
/********************/
|
||
|