mirror of https://github.com/wwarthen/RomWBW.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
57 lines
1.0 KiB
57 lines
1.0 KiB
/* 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 */
|
|
/********************/
|
|
|