/*( getnum )*/

void lock();

main(c,v)
int c;
char **v;
{
int d,en,i,i1,i2,j,k,kk,l,ll,ver;
unsigned long y,z,zz,b[640],getnum();
char gb[8];
ll=en=ver=0;
arg: if (c>1) if (v[1][0]=='+') {ver=1;c--;v++;goto arg;}
if (c>1) if (v[1][0]=='-') {ll=1;c--;v++;goto arg;}
if (c>1) if (v[1][0]=='/') if (v[1][1]=='?') {printf("48BITLBA [+Verify] [-Lock] MaxDrives\n");return(20);}
if (c>1) {
en=getnum(v[1]);
if ((en<1) || (en>127)) {printf("Invalid Number of Drives\n");return(20);}
}
printf("48-Bit LBA Support Test  Version 4.6\n\nCopyright (C) 2004-2006 by\nRudolph R. Loew\nAll Rights Reserved\n\n");
z=0x10000000;zz=0x11000000;
if (int13ex(0x41,0x80,0L,0,b)) {
printf("Interrupt 13 Extensions Not Supported\nCannot Support Drives Greater Than 8.4GB\n");
if (ver) {
quit: printf("Press Any Key to Continue at Risk of DATA LOSS - Otherwise Press RESET\n");read(0,&i,4);
}
return(20);
}
if (en) en+=0x80;
else {
en=0x88;
asm {
push bx
push cx
push dx
mov ax,0x800
mov dx,0x80
int 0x13
jb  nocnt
mov dh,0
or  dl,0x80
mov [en],dx
}
nocnt: asm {
pop dx
pop cx
pop bx
}
}
for (d=0x80;d<en;d++) if (int13ex(0x48,d,0L,0,b)==0) {
y=b[4];j=l=0;
if (y<0x400000) printf("Drive %d: %4ldMB = %10ld Sectors  ",d-0x7f,(y<<9)/1000000,y);
else {
if (y>=195312500) printf("Drive %d: %4ldGB = %10ld Sectors  ",d-0x7f,y/1953125,y);
else {
sprintf(gb,"%3ld",(y<<1)/390625);gb[4]=0;gb[3]=gb[2];gb[2]='.';
printf("Drive %d: %sGB = %10ld Sectors  ",d-0x7f,gb,y);
}
}
for (kk=0;kk<16;kk++) {
_asm {
push bx
push ds
xor ax,ax
mov ds,ax
mov ax,[0x1ec]
mov bx,[0x1ee]
mov word ptr [0x1ec],0x524c
mov word ptr [0x1ee],0x524c
pop ds
mov [i1],ax
mov [i2],bx
pop bx
}
k=int13ex(0x44,d,29L,61,b);
_asm {
push dx
push ds
push bx
push cx
mov bx,[i1]
mov cx,[i2]
xor ax,ax
mov ds,ax
mov ax,[0x1ee]
mov dx,[0x1ec]
mov [0x1ec],bx
mov [0x1ee],cx
pop cx
pop bx
pop ds
mov [i1],dx
pop dx
mov [i],ax
}
if (k) goto derr;
if (i==0x4c52) {
if (i1==0x524c) printf("Driver Patch Active\n");
else printf("Driver Patch Version %d.%d Active\n",i1>>8,i1&255);
goto next;
}
if (i==0x4445) {
if (i1==0x524c) printf("Demo Patch Active\n");
else printf("Demo Patch Version %d.%d Active\n",i1>>8,i1&255);
goto next;
}
}
if (y<0xFA00000) {printf("Not 48-Bit Disk\n");goto next;}
if (ll) {
lock(0x84b,d+0x100,1);lock(0x84b,d+0x200,0);lock(0x84b,d+0x300,0);l=2;
}
if (int13ex(0x42,d,0L,1,b+512)) goto derr;
i=int13ex(0x42,d,z,1,b+384);
if (int13ex(0x42,d,0L,1,b)) goto derr;
if (int13ex(0x42,d,z-2,3,b)) {
if (y>z) goto derr;
printf("Not 48-Bit Disk\n");goto next;
}
printf("48-Bit LBA Disk - ");
if (int13ex(0x42,d,z-1,2,b)) j|=1;
if (i) goto fail;
for (i=0;i<128;i++) if (b[i+384]-b[i+256]) goto fail;
if (int13ex(0x42,d,zz,1,b)) j|=2;
else for (i=0;i<128;i++) if (b[i+384]-b[i]) j|=2;
b[384]++;
if (int13ex(0x43,d,z,1,b+384)) {
if (ll) goto derr2;
lock(0x84b,d+0x100,2);l=1;
if (int13ex(0x43,d,z,1,b+384)) goto derr2;
}
b[384]--;
if (int13ex(0x42,d,z-2,3,b)) goto ng;
if (int13ex(0x42,d,z,1,b)) goto ng;
if (int13ex(0x42,d,zz,1,b+128)) j|=2;
if (int13ex(0x43,d,z,1,b+384)) goto derr3;
if (int13ex(0x43,d,0L,1,b+512)) goto derr2;
for (i=0;i<128;i++) if (b[i]-b[i+256]) goto fail;
if (b[0]==b[384]) {printf("Write Support Failed\n");goto err;} 
if ((j&4)==0) if (b[0]-b[128]) j|=2;
skip: if (j&1) if (ver) ver=2;
if (y<z) {
switch(j) {
case 0: printf("Not Correctly Sized\nDemo Limited to 145GB\n");break;
case 1: printf("Not Correctly Sized\nLast 28-Bit Sector Unsupported - Demo Limited to 145GB\n");break;
case 2: printf("Not Correctly Sized\n48-Bit Support Verified\n");break;
case 3: printf("Not Correctly Sized\nLast 28-Bit Sector Unsupported\n");break;
};
goto next;
}
switch(j) {
case 0: printf("Demo Limited to 145GB\n");break;
case 1: printf("Last 28-Bit Sector Unsupported\nDemo Limited to 145GB\n");break;
case 2: printf("48-Bit Support Verified\n");break;
case 3: printf("Last 28-Bit Sector Unsupported\n");break;
}
goto next;
fail: if (ver) ver=3;
printf("48-Bit LBA Not Supported\n");
err: if (ver) ver=3;
goto next;
ng: int13ex(0x43,d,z,1,b+384);
if (int13ex(0x43,d,0L,1,b+512)) goto derr2;
derr: printf("Error Reading Disk\n");goto err;
derr3: int13ex(0x43,d,0L,1,b+512);
derr2: printf("Error Writing Disk\n");goto err;
next: if (l==1) lock(0x86b,d+0x100,0);
if (l==2) {
lock(0x86b,d+0x300,0);lock(0x86b,d+0x200,0);lock(0x86b,d+0x100,0);
}
}
if (ver>1) goto quit;
return(0);
}

int13ex(c,d,y,l,buff)
int c,d,l;
long y,*buff;
{
long arg[8];
int a,b,s;
s=(int)arg;a=c<<8;b=0x55aa;
switch(c) {
case 0x41:
case 0x48: arg[0]=0x20;break;
case 0x42:
case 0x43:
case 0x44: arg[0]=l;arg[0]=(arg[0]<<16)+0x10;
           arg[1]=(int)buff;arg[2]=y;arg[3]=0x4c524c52;
           break;
default: return(1);
};
asm {
push bx
push cx
push dx
push si
push es
mov bx,[b]
mov dx,[d]
mov si,[s]
mov ax,ss
mov es,ax
mov [si+6],ax
mov ax,[a]
push bp
int 0x13
pop bp
mov [b],bx
pop es
pop si
pop dx
pop cx
pop bx
jc err
mov [a],0
}
err: if (c==0x48) for (d=0;d<8;d++) buff[d]=arg[d];
if (c==0x41) if (b+0x55ab) a=1;
return(a);
}

void lock(m,d,p)
int m,d,p;
{
asm {
push bx
push cx
push dx
mov ax,0x440d
mov bx,[d]
mov cx,[m]
mov dx,[p]
int 0x21
pop dx
pop cx
pop bx
}
}