{Como creo que sabrás el usb es algo prohibido para el dos y pascal es del dos pero se esta intentando la comunicación desde pascal mira te dejo un pequeño programa de prueba del usb desde pascal queda mucho que andar en esto pero se andará suerte
esta en dos portes }
{porte 1} program prueusb;
{$G+} uses
crt, dos;
type
USBRequest = record
bmRequestType : Byte;
bRequest : byte;
wValue : word;
wIndex : word;
wLength : word;
end;
const
deviceaddress = 1;
preferredHWInterrupt = 3;
preferredIOSpace = $120;
SetAddressDescriptor : USBRequest =
(bmRequestType : $00;
bRequest : $5;
wValue : $0001;
wIndex : $000;wLength:$0000);
GetHubDescriptor : USBRequest =
(bmRequestType : $A0;
bRequest : $06;
wValue : $0001;
wIndex : $0000;
wLength : $0012);
SetConfiguration : USBRequest =
(bmRequestType : $00;
bRequest : $9;
wValue : $0001;
wIndex : $0000;
wLength : $000);
GetConfiguration : USBRequest =
(bmRequestType : $00;
bRequest : $8;
wValue : $0001;
wIndex : $0000;
wLength : $000);
GetHubStatus : USBRequest =
(bmRequestType : $A0;
bRequest : $0;
wValue : $000;
wIndex : $0000;
wLength : $004);
GetDeviceDescriptor : USBRequest =
(bmRequestType : $80;
bRequest : $06;
wValue : $0001;
wIndex : $0000;
wLength : $008);
SetHubPortPowerFeature : USBRequest =
(bmRequestType : $23;
bRequest : $3;
wValue : $0008;
wIndex : $0001;
wLength : $000);
type
LinkPointer = longint;
BufferPointer = longint;
FrameListPointer = longint;
FrameListPointerArray = Array[0..1023] of FrameListPointer;
FrameList = ^FrameListPointerArray;
TransferDescriptor = record
next : LinkPointer;
ActLen : word;
Status : byte;
Flags : Byte;
Token : longint;
BufferPtr : BufferPointer;
res : array[0..3] of longint;
end;
var
USBDeviceID, USBVendorID : word;
USBBusNumber, USBFunctionNumber : Byte;
USBDescription : string;
USBIOSpace : word;
USBdetected : boolean;
ISAdetected : boolean;
ISADeviceID, ISAVendorID : word;
ISABusNumber, ISAFunctionNumber : Byte;
ISADescription : string;
old_port4d0 : byte;
old_port4d1 : byte;
old_pirqd : byte;
oldmasterintmask : byte;
oldslaveintmask : byte;
FrameListPtr : FrameList;
FrameListBase : longint;
FrameListHandle : pointer;
p : pointer;
DeviceID,VendorID : word; { PCI-BUS USB Device } BusNumber, FunctionNumber : Byte; { PCI-BUS Address } Description : string;
result : longint;
IOSpace : word;
hwint : word;
dummytimer : word;
hwactive : boolean;
flbase : framelistpointer;
flptr : framelist;
testbuffer : array[0..1279] of byte;
oldUsbInt : pointer;
serviceInt : word;
function hexs(xx:longint):String;
var
ss : String[8];
h1,h2 : Byte;
begin
ss := '';
h1 := 32;
repeat
dec(h1,4);
h2 := (xx shr h1) and $f;
if h2 > 9 then
h2 := h2 + 7;
h2 := h2 + 48;
ss := ss + chr(h2);
until h1 = 0;
hexs := ss;
end;
function hexs16(xx:word):String;
var
ss : String[8];
h1, h2 : Byte;
begin
ss := '';
h1 := 16;
repeat
dec(h1,4);
h2 := (xx shr h1) and $f;
if h2 > 9 then
h2 := h2 + 7;
h2 := h2 + 48;
ss := ss + chr(h2);
until h1 = 0;
hexs16 := ss;
end;
function detectPCIBios:boolean;assembler;
asm
mov ax,0b101h
int 1ah
jc @nopcibios
mov ax,1
ret
@nopcibios:
xor ax,ax
ret
end;
function detectPCIdevice(DeviceID : Word; VendorID : Word;
VAR BusNumber : Byte;
VAR FunctionNumber : Byte) : boolean;
var
found : boolean;
bn : byte;
fn : byte;
begin
bn := 0;
fn := 0;
found := false;
asm
db 66h;pusha
mov cx,DeviceID
mov dx,VendorID
mov ax,0b102h
xor si,si
int 1ah
jc @nodevice
mov found,true
mov bn,BH
mov fn,BL
@nodevice:
db 66h;popa
end;
BusNumber := bn;
FunctionNumber := fn;
detectPCIdevice := found;
end;
function USBdetect(Var DeviceID, VendorID : word;
VAR BusNumber, FunctionNumber : Byte;
var Description : string) : boolean;
var
i : byte;
error, found : boolean;
begin
BusNumber := 0;
FunctionNumber := 0;
USBdetect := false;
i := 0;
error := false;
found := false;
repeat
case i of
0 : begin
deviceId := $7020;
vendorId := $8086;
description := 'Intel 82371SB USB controller';
end;
1 : begin
deviceId := $7112;
vendorId := $8086;
description := 'Intel PIIX4 USB controller';
end;
2 : begin
deviceId := $0571;
vendorId := $1106;
description := 'VIA AMD-645 USB controller';
end;
3 : begin
deviceId := $A0F8;
vendorID := $1045;
description := 'Opti 82C750 (Vendetta) USB controller';
end;
4 : begin
deviceId := $C861;
vendorID := $1045;
description := 'Opti 82C861/871 (Firelink/FireBlast) USB controller';
end;
end;
inc(i);
found := detectPCIdevice(deviceId, vendorId, BusNumber, FunctionNumber);
error := i > 4;
until error or found;
USBdetect := found;
end;
function ISAdetect(Var DeviceID, VendorID : word;
VAR BusNumber, FunctionNumber : Byte;
var Description : string) : boolean;
var
i : byte;
error, found : boolean;
begin
BusNumber := 0;
FunctionNumber := 0;
ISAdetect := false;
i := 0;
error := false;
found := false;
repeat
case i of
0 : begin
deviceId := $7000;
vendorId := $8086;
description := 'Intel 82371SB ISA-PCI controller';
end;
1 : begin
deviceId := $7110;
vendorId := $8086;
description := 'Intel PIIX4 ISA-PCI controller';
end;
{ 2: begin deviceId:=$0571;vendorId:=$1106; description:='VIA AMD-645 USB controller'; end; 3: begin deviceId:=$A0F8;vendorID:=$1045; description:='Opti 82C750 (Vendetta) USB controller'; end;
4: begin deviceId:=$C861;vendorID:=$1045; description:='Opti 82C861/871 (Firelink/FireBlast) USB controller'; end; }
end;
inc(i);
found := detectPCIdevice(deviceId, vendorId, BusNumber, FunctionNumber);
error := i > 2;
until error or found;
ISAdetect := found;
end;
function readPCIRegisterWord(RegisterNumber : word; BusNumber : Byte;
FunctionNumber : Byte;
var result : Word) : boolean;
var
okay : boolean;
res : word;
begin
okay := false;
res := 0;
asm
db 66h; pusha
mov AX,0B109h
mov BH,busNumber
mov BL,functionNumber
mov DI,RegisterNumber
int 1Ah
jc @noaction
mov res,cx
mov okay,true
@noaction:
db 66h; popa
end;
result := res;
readPCIRegisterWord := okay;
end;
function USBGetDeviceIOSpace(var IOSpace : word) : boolean;
var
okay : boolean;
result : word;
setiospace : word;
begin
okay := false;
if readPCIRegisterWord($20, USBBusNumber, USBFunctionNumber, result) then
begin
okay := true;
IOSpace := result and $FFFE;
USBIOSpace := IOSpace;
end;
USBGetDeviceIOSpace := okay;
end;
function readPCIRegisterByte(RegisterNumber : word; BusNumber : Byte;
FunctionNumber : Byte;
var result : byte) : boolean;
var
okay : boolean;
res : byte;
begin
okay := false;
res := 0;
asm
db 66h; pusha
mov AX,0B108h
mov BH,busNumber
mov BL,functionNumber
mov DI,RegisterNumber
int 1Ah
jc @noaction
mov res,cl
mov okay,true
@noaction:
db 66h; popa
end;
result := res;
readPCIRegisterByte := okay;
end;
function writePCIRegisterByte(RegisterNumber : word;
BusNumber : Byte;
FunctionNumber : Byte;
input : byte) : boolean;
var
okay : boolean;
begin
okay := false;
asm
db 66h; pusha
mov AX,0B10bh
mov BH,busNumber
mov BL,functionNumber
mov DI,RegisterNumber
mov CL,input
int 1Ah
jc @noaction
mov okay,true
@noaction:
db 66h; popa
end;
writePCIRegisterByte := okay;
end;
function writePCIRegisterWord(RegisterNumber : word;
BusNumber : Byte;
FunctionNumber : Byte;
input : word) : boolean;
var
okay : boolean;
begin
okay := false;
asm
db 66h; pusha
mov AX,0B10ch
mov BH,busNumber
mov BL,functionNumber
mov DI,RegisterNumber
mov CX,input
int 1Ah
jc @noaction
mov okay,true
@noaction:
db 66h; popa
end;
writePCIRegisterWord := okay;
end;
function writePCIRegisterDWord(RegisterNumber : word;
BusNumber : Byte;
FunctionNumber : Byte;
input : longint) : boolean;
var
okay : boolean;
res : byte;
begin
okay := false;
res := 0;
asm
db 66h; pusha
mov AX,0B10dh
mov BH,busNumber
mov BL,functionNumber
mov DI,RegisterNumber
db 66h; mov CX, word ptr input
int 1Ah
jc @noaction
mov okay,true
@noaction:
db 66h; popa
end;
writePCIRegisterDWord := okay;
end;
function GetPtrBase(p:pointer):longint;
begin
GetPtrBase := longint(seg(p^)) shl 4 + longint(ofs(p^));
end;
function GetBasePtr(b:longint):pointer;
var
h1,h2 : longint;
begin
h1 := b shr 4;
h2 := b and $f;
GetbasePtr := Ptr(h1,h2);
end;
function bins8(xx : byte) : String;
var
ss : String[32];
h1, h2 : Byte;
begin
ss := '';
h1 := 8;
repeat
dec(h1);
h2 := (xx shr h1) and $1;
h2 := h2 + 48;
ss := ss + chr(h2);
until h1 = 0;
bins8 := ss;
end;
function hexs8(xx:byte):String;
var
ss : String[8];
h1, h2 : Byte;
begin
ss := '';
h1 := 8;
repeat
dec(h1,4);
h2 := (xx shr h1) and $f;
if h2 > 9 then
h2 := h2 + 7;
h2 := h2 + 48;
ss := ss + chr(h2);
until h1 = 0;
hexs8 := ss;
end;
Crear cuenta