Re: [vfp] Resumen de correo para publicesvfoxpro@googlegroups.com - 1 actualización en 1 tema

[Veronica Ortiz Ramírez]

Verónica Ortiz Ramirez

El El jue, 30 de abr de 2026 a la(s) 6:30 a.m., <publice...@googlegroups.com> escribió:

publice...@googlegroups.com

Grupos de Google

Resumen de temas
Ver todos los temas

• Podrian ayudarme a optimizar y hacer más cortito este código? - 1 actualización

Podrian ayudarme a optimizar y hacer más cortito este código?

Ramón Rodríguez Martínez <cesara...@gmail.com>: Apr 29 12:30PM -0600 Pruebas asi: CODE SEGMENT ASSUME CS:CODE, DS:CODE ORG 0H   PROGR: MOV AL, 89H OUT 13H, AL ; Configuración inicial   CICLO: MOV BL, 01H ; Bit inicial para desplazar MOV SI, OFFSET DATOS ; Apuntamos al inicio de nuestra tabla MOV CX, 8 ; Vamos a repetir el proceso 8 veces   BUCLE_INTERNO: ; Paso 1: Limpiar puerto 10H XOR AL, AL ; Forma más rápida de hacer MOV AL, 00H OUT 10H, AL   ; Paso 2: Cargar valor de la tabla y sacar por 11H MOV AL, [SI] OUT 11H, AL   ; Paso 3: Sacar valor de BL por 10H MOV AL, BL OUT 10H, AL   ; Paso 4: Delay/Interrupción MOV AX, 1 INT 1CH   ; Paso 5: Preparar siguiente iteración INC SI ; Siguiente valor en la tabla SHL BL, 1 ; Desplazar bit en BL LOOP BUCLE_INTERNO ; Decrementa CX y salta si no es 0   JMP CICLO ; Reiniciar todo el ciclo   ; --- Tabla de datos para evitar redundancia --- DATOS DB 81H, 42H, 24H, 18H, 18H, 24H, 42H, 81H   CODE ENDS END PROGR   El jue, 9 abr 2026 a las 21:12, RS “Ricardo” (<ricardo...@gmail.com>) escribió:

-- Ramón Rodríguez Martínez *Licenciado en Ciencias de la computación* *SOPORTE TOTAL EN COMPUTACIÓN*

Volver al principio

Recibiste este resumen porque estás suscrito a las actualizaciones de este grupo. Puedes modificar tu configuración en la página de pertenencia al grupo. Para cancelar tu suscripción a este grupo y dejar de recibir sus correos electrónicos, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

[José Antonio Peña Martínez]

Ensamblador?

PROGR:
    MOV AL, 89H
    OUT 13H, AL
    

CICLO:
    MOV SI, OFFSET DATOS
    MOV BL, 01H
    MOV CX, 8
    
BUCLE:
    XOR AL, AL
    OUT 10H, AL

    MOV AL, [SI]
    OUT 11H, AL

    MOV AL, BL
    OUT 10H, AL

    INT 1CH
    INC SI
    SHL BL, 1
    DEC CX
    JNZ BUCLE
    
    JMP CICLO

DATOS DB 81H, 42H, 24H, 18H, 18H, 24H, 42H, 81H

con IA

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAGEmkA5sxp%3DiL%3DHOsBBWq4XyKB-m-3oYsBQXTr1vU%3DnMjxG-_A%40mail.gmail.com.

--

Desarrollo de Sistemas TecnoPro

José Antonio Peña

Saludos!

[José Antonio Peña Martínez]

Andas en un foro de VFP con temas de ensamblador. (que no dudo que también sepan los compañeros pero no es tema para este foro).

El lun, 8 jun 2026 a las 5:43, Veronica Ortiz Ramírez (<veronicara...@gmail.com>) escribió:

--

Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAGEmkA5sxp%3DiL%3DHOsBBWq4XyKB-m-3oYsBQXTr1vU%3DnMjxG-_A%40mail.gmail.com.