¿como programo el puerto serial con delphi + ensamblador?

[candia]

hola amigos, quiero controlar el puerto serial com1 para sacar datos y conectar el pic 16f84A, lo primero que quiero hacer es ennviar un numero del 0 al 9 y que se muestre en un display de 7 segmentos.

pero la verdad es que haun no me cae el 20, se que puedo controlar el uart con la interrupsion 14 del bios, y que en el reguistro lcr (que no se que significa) se configura, pero no puedo.

si alguien tiene un ejemplo de comunicasion serie con delphi y ensamblador le agradeceria mucho si me lo pasa, para vcer como configuro el puerto y como lo manda llamar ademas de como controla los pines como el rts.

de ante mano gracias y voy a seguir intentando.

[[FGarcia]]

Hola! aunque no es mi fuerte esto del ensamblador, mi pregunta es ¿en donde quieres configurar el puerto serie?

1. ¿Desde tu aplicacion Delphi? Creo que andas reinventando el hilo negro, ya que existen diversos componentes para accesar el puerto desde delphi (APro, ComPortLib por decir algunos, una busqueda en los foros te daran los enlaces para descarga)

2. ¿Quieres configurar el puerto de comunicaciones de tu PIC? Aqui no te puedo ayudar pero tal vez alguien del foro nos pueda enseñar.

Saludos

[candia]

si he utilizado el tcomport, pero lo que pasa es que quiero entender mas el funcionamiento del puerto serie, es por eso que tengo como reto controlarlo con un codigo en essamblador, ademas creo que asi es mas facil desde el punto de vista de comonicasion con dispositivos como el pic.

haa, pero el tcomport, no lo utilize para conectar el pic, eso no lo he intentado.

[JoseFco]

Hola candia.

Si lo que quieres es ver como se ve un programita Delphi en asm para el puerto serie, aqui te dejo esto:

Código Delphi [-]
var
  Form1: TForm1;
  data,status:byte;
const
    base = $3f8;{base address port serial}
    lcr = 3; {line control register}
    dll = 0; {divisor lacht low byte}
    dlh = 1; {divisor lacht high byte}
    lsr = 5; {line status register}

Procedure Initserial;
begin
    asm
        mov dx,base+lcr; {address line control register}
        mov al,$80 ; {10000000b = access bit divisor lacht}
        out dx,al
;
        mov dx,base+dll; {address divisor lacht low byte}
        mov al,$30 ; {DLLB = 30h}
        out dx,al
;
        mov dx,base+dlh; {address divisor lacht high byte}
        mov al,$00     ; {DLLH = 00h}
        out dx,al
;                       {In this case Port Serial have}
;                       { baud rate = 2400 bps}
        mov dx,base+lcr;{address line control register}
        mov al,$03 ;    {00000011b =}
        out dx,al ;     {bit 7=0, access to Rx buffer & Tx
;                       {bit 6=0, set break disable
;                       {bit 5-4-3=000, no parity
;                       {bit 2=0, one stop bit
;                       {bit 1-0=11,data lenght 8 bit}
        end;
end;

Procedure Send_Data_Serial;
begin
    asm
        mov dx,base
        mov al,data
        out dx,al
    end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Initserial;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
repeat
  asm
   mov dx,base+lsr ; {address line status register }
   in al,dx
   and al,$20      ; {00100000b =not masking bit 5}
   mov status,al   ; {bit5=Empty Transmitting holding reg}
  end;
until status = $20; { If ETHR = 1 then data ready tobe send }
data:=0;
Send_Data_Serial;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 repeat
  asm
   mov dx,base+lsr; {address line status register }
   in al,dx
   and al,$20     ; {00100000b =not masking bit 5}
   mov status,al  ; {bit5=Empty Transmitting holding reg}
  end;
until status = $20; { If ETHR = 1 then data ready tobe send}
data:=1;
Send_Data_Serial;
end;

Yo prefiero usar ComPort por muchas razones y una es que en asm, algunas PC ya no quieren rodar bien.Por ejemplo Win XP da problemas cuando se crea un asm para controlar el puerto serie.
Con los PICs no te puedo ayudar. Pero aqui hay algunos colegas que si conocen bastante estos chips.

Un Saludo.

[MaMu]

Queres controlar el puerto Serie, el de la PC o USART del pic?

Saludos

[candia]

el puerto serie de la computadora, del pic yo me encargo (eso creo)

[candia]

[quote=JoseFco;281567]Hola candia.

Si lo que quieres es ver como se ve un programita Delphi en asm para el puerto serie, aqui te dejo esto:

[JoseFco]

Hola Candia.

Trabajar el serial port en asm, no es nada complicado.Lo que lo hace complicado es que a ese nivel tan abajo los PC actuales dan la pataleta.
Si quieres mandar hex al puerto serie de un uC usando Delphi y teniendo Delphi 6, yo te recomiendo que te bajes este componente que es gratis.
ComPort Trae ayuda para instalarlo y ademas muchos ejemplos.Por otra parte aqui en el foro existen muchos hilos relacionados directamente con el.

Cuando tengas ese componente istalado y comiences a jugar con el te daras cuenta que facil es mandar data a un uC usando Delphi con su ayuda.

Un Saludo.