Преобразование строки в двоичное представление

STACKSG   SEGMENT PARA STACK
    DB 64 DUP(?) 
STACKSG   ENDS 
DATASG    SEGMENT PARA 'DATA'   
    MSG   DB "String: $"
    MSG1  DB 10, 13, "Binary code: $"   
DATASG    ENDS 
CODESG    SEGMENT PARA 'CODE'
ASSUME    CS:CODESG,DS:DATASG,SS:STACKSG 
ENTRY PROC FAR 
 
        PUSH DS             
        XOR  AX,AX              
        PUSH AX             
        MOV  AX, DATASG         
        MOV  DS, AX
 
        MOV  AH, 09H
        MOV  DX, offset MSG
        INT  21H
 
        MOV  BL, 0
        MOV  AH, 01H
        INT  21H
        MOV  BL, AL
 
        MOV  AH, 09h
        MOV  DX, offset MSG1
        INT  21h
 
 
        MOV  CL, 8
M1:
        MOV  AH, 02h
        SHL  BL, 1
        JC   M2
 
        MOV  DL,'0'
        JMP  M3
 
M2:
        MOV DL,'1'
 
M3:
        INT 21H
        DEC CX
        JNZ M1
 
        MOV AH, 4ch
        INT 21h   
        RET
ENTRY   ENDP
CODESG  ENDS
        END ENTRY

STACKSG   SEGMENT PARA STACK
    DB 64 DUP(?) 
STACKSG   ENDS 
DATASG    SEGMENT PARA 'DATA'   
    MSG   DB         "String: $"
    MSG1  DB 10, 13, "Binary code: $"  
    BUF   DB 10     ; 10 символов для ввода
    LEN   DB ?
    MES   DB 10 DUP ('$')  
DATASG    ENDS 
CODESG    SEGMENT PARA 'CODE'
ASSUME    CS:CODESG,DS:DATASG,SS:STACKSG 
ENTRY PROC FAR 
    MOV  AX, DATASG         
    MOV  DS, AX
 
    MOV  AH, 09H
    MOV  DX, offset MSG
    INT  21H
 
    MOV  AH, 0Ah
    MOV  DX, offset BUF
    INT  21H
 
    MOV  AH, 09H
    MOV  DX, offset MSG1
    INT  21h
 
    MOV  SI, offset MES
    MOV  AH, 02H
    XOR  CX, CX
    MOV  CL, [LEN]
@READ:
    PUSH CX
    MOV  BL, [SI]
    MOV  CL, 08H
    @WRITE:
        MOV DL, '0'
        SHL BL, 1
        JNC NEXT
        INC DL 
    NEXT:
        INT 21H
    LOOP @WRITE
    MOV DL, ' '
    INT 21H
    INC SI
    POP CX
LOOP @READ  
 
    MOV  AH, 4Ch
    INT  21h   
    RET
ENTRY   ENDP
CODESG  ENDS
        END ENTRY