Ensamblador - LEDS

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

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.

y como se haria en windows si se puede saber