Los maestros de programación en lenguaje ensamblador están invitados a unirse
MOV CX, 20
MOV BL, 0
INLOOP: EN AL, 41H
PRUEBA AL, 01H
JZ INLOOP
EN AL, 40H
Y AL, 0FH; decimal ASCII (BCD)
AÑADIR BL, AL
LOOP INLOOP; ***Ingrese 20
MOV AL, BL; ¿suma acumulada?AL
MOV AH, 0
MOV BL, 100
p>
DIV BL; AX?BL; cociente?AL, resto?AH
MOV NBCDH, AL; guardar dígitos de centenas
MOV AL, AH
MOV AH, 0
MOV BL, 10
DIV BL; ¿dígito de decenas AL, dígito de unidades AH?
MOV CL, 4
ROL AL, CL; AL gira cuatro bits hacia la izquierda
O AL, AH; forma un código BCD comprimido
MOV NBCDL, AL; diez dígitos, un solo dígito
HLT