Ensamblador - LEDS

   
Vista:

LEDS

Publicado por Luis (1 intervención) el 14/11/2009 20:46:31
Hola amigos

Estoy tratando de encender 8 leds a traves del puerto paralelo haciendo uso de ensamblador y no logro hacerlo funcionar.

.Model small
.Stack 64
.Code
Main proc far
Mov cx,0ffh
mov al,0h
apaga:
mov dx,0378h
out dx,al
inc al
Loop apaga
Mov ax,4c00h
int 21h
main endp
end main

Lo mismo si lo eh realizado con VB y el circuito funciona bien.

Pero el problema esta con ensamblador. ¿Que le falta a este codigo?

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:LEDS

Publicado por nose (4 intervenciones) el 21/12/2009 00:12:57
Para encender todos los led's del puerto paralelo sólo tienes que poner 3 líneas:

mov al,0FFh
mov dx,0378h
out dx,al

Para apagarlos es asi:

xor al,al
mov dx,0378h
out dx,al

Si quieres encender uno o varios led especificos sería así:

mov al,10000000b
mov dx,0378h
out dx,al

Ese código encendería el led conectado al pin número 9 del puerto paralelo y el bit más bajo (mov al,00000001b) encendería el led conectado al pin número 2.

Ten en cuenta que este código sólo funciona en MS-DOS puro, no funcionará en windows.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar