Escrito en lenguaje ensamblador

¿CÓDIGO?SEGMENTO ASSUMECS:CÓDIGO BUF?DB255,?,255?DUP(?) LONGITUD?DB0 INICIO:?PUSH?CS POPDS LEADX,BUF MOVAH,10 INT21H LEASI,BUF MOVCL,[SI+ 1 ] MOVCH,0 ADDSI,2 CLD @1: LODSB CMPAL,'A' JB@2 CMPAL,'F' JA@2 INCBYTE?PTR?LENGTH @2: LOOP?@1 CALL?LFCR MOVDH,LENGTH MOVCL,4 RORDH ,CL MOVDL,DH ANDDL,0FH ORDL,30H CMPDL,'9' JBE@3 ADDDL,7 @3: MOVAH,2 INT21H MOVCL,4 RORDH,CL MOVDL,DH ANDDL,0FH ORDL,30H CMPDL,'9' JBE @4 ADDDL,7 @4: MOVAH,2 INT21H MOVAH,4CH INT21H

LFCR:?PUSH?AX PUSH?DX MOVAH,2 MOVDL,13 INT21H MOVDL,10 INT21H POPDX POPAX RET

¿CÓDIGO?ENDS ENDSTART