BCD для двоичного преобразования в языке ассемблера

Question

BCD2BIN PROC 

     PUSH AX 
     PUSH CX 
     PUSH BX 
     PUSH DX 
     PUSH SI 

     MOV CL,08H 

    LB : 
     SAL DH,1 
      JC PRTONE 
      CMP CL,04H 
      JG SKP3 
      MOV DL,48 
      MOV AH,02H 
      INT 21H 
      JMP SKP3 

    PRTONE: CMP CL,04H 
      JG SKP3 
      MOV DL,49 
      MOV AH,02H 
      INT 21H 

    SKP3: DEC CL 
      CMP CL,00H 
      JE SKP4 
      JMP 040H 


    SKP4: MOV DL,' ' 
      MOV AH,02H 
      INT 21H 
      POP SI 
       POP DX 
       POP BX 
       POP CX 
       POP AX 

      RET 



    BCD2BIN ENDP 

Это часть программы для преобразования номера bcd в двоичное число. Может ли кто-нибудь объяснить логику этого? Инструкции, которые я могу понять, просматривая интернет, но логику/алгоритм для этого? Благодаря!

Answer 1

Этот код плохо разработан (медленнее, чем необходимо, и сложнее читать, чем необходимо). Это эквивалентно следующему:

PUSH AX 
    PUSH CX 
    PUSH BX 
    PUSH DX 
    PUSH SI 

    MOV CL,04H 
    SAL DH,4 

LB: 
    SAL DH,1 
    JC PRTONE 

    MOV DL,'0' 
    MOV AH,02H 
    INT 21H 
    JMP SKP3 

PRTONE: 
    MOV DL,'1' 
    MOV AH,02H 
    INT 21H 

SKP3: 
    DEC CL 
    JNE LB 


    MOV DL,' ' 
    MOV AH,02H 
    INT 21H 

    POP SI 
    POP DX 
    POP BX 
    POP CX 
    POP AX 
    RET 

..which могут быть улучшены более:

PUSH AX 
    PUSH CX 
    PUSH BX 
    PUSH DX 
    PUSH SI 

    MOV CL,04H 
    SAL DH,4 

LB: 
    MOV DL,'0' 
    SAL DH,1 
    ADC DL,0 
    MOV AH,02H 
    INT 21H 

    DEC CL 
    JNE LB 

    MOV DL,' ' 
    MOV AH,02H 
    INT 21H 

    POP SI 
    POP DX 
    POP BX 
    POP CX 
    POP AX 
    RET 

..which может раскатывают:

PUSH AX 
    PUSH CX 
    PUSH BX 
    PUSH DX 
    PUSH SI 

    MOV DL,'0' 
    SAL DH,5 
    ADC DL,0 
    MOV AH,02H 
    INT 21H    ;Display bit 3 as '0' or '1' 

    MOV DL,'0' 
    SAL DH,1 
    ADC DL,0 
    MOV AH,02H 
    INT 21H    ;Display bit 2 as '0' or '1' 

    MOV DL,'0' 
    SAL DH,1 
    ADC DL,0 
    MOV AH,02H 
    INT 21H    ;Display bit 1 as '0' or '1' 

    MOV DL,'0' 
    SAL DH,1 
    ADC DL,0 
    MOV AH,02H 
    INT 21H    ;Display bit 0 as '0' or '1' 

    MOV DL,' ' 
    MOV AH,02H 
    INT 21H    ;Display a space 

    POP SI 
    POP DX 
    POP BX 
    POP CX 
    POP AX 
    RET 

По существу, все это делает печать 4 бинарная цифр (от младших 4 бит DH), за которым следует пробел.