Red de conocimiento informático - Espacio del host - Cualquiera que sepa ensamblar puede ayudarme a hacerlo.

Cualquiera que sepa ensamblar puede ayudarme a hacerlo.

CÓDIGO?SEGMENTO ASSUMECS:CÓDIGO ORG100H INICIO:?PUSH?CS POPDS PUSH?CS POPES @0:?MOVAH,7 INT21H CMPAL,13 JE@EXIT CMPAL,'0' JB@0 CMPAL,' 9' JA@0 MOVDL,AL MOVAH,2 INT21H CALL?DISP16 JMP@0 @EXIT: MOVAH,4CH INT21H DISP16?PROC?NEAR PUSH?DI PUSH?AX PUSH?AX LEADI,CARR MOVAH,2 MOVDL,32 INT21H POPAX MOVCL,4 SHRAL,CL MOVAH,0 MOVBX,AX MOVAH,2 MOVDL,[DI+BX] INT21H POPAX ANDAL,0FH MOVAH,0 MOVBX,AX MOVAH,2 MOVDL,[DI+BX] INT21H MOVDL,'H' INT21H MOVDL,13 INT21H MOVDL,10 INT21H POPDI RET

CARR?DB'0123456789ABCDEF' DISP16?ENDP

CÓDIGO?ENDS ENDSTART