双字逻辑转移.asm

转换ASCII码为二进制

;5．	*如何实习双字的逻辑左移
CODE SEGMENT
   ASSUME CS:CODE
 START:MOV BX,24B3H
       PUSH BX
       CALL DISPLAY
       CLC
       POP BX
       RCL BL,1
       RCL BH,1
       MOV AH,02H
       MOV DL,0DH
       INT 21H
       MOV DL,0AH
       INT 21H
       CALL DISPLAY
       MOV AH,4CH
       INT 21H
 DISPLAY:
       MOV CX,8
    L1:SHL BH,1
       MOV AH,02H
       JC L2
       MOV DL,'0'
       INT 21H
       JMP L3
    L2:MOV DL,'1'
       INT 21H
    L3:LOOP L1    
       MOV CX,8
    L4:SHL BL,1
       MOV AH,02H
       JC L5
       MOV DL,'0'
       INT 21H
       JMP L6
    L5:MOV DL,'1'
       INT 21H
    L6:LOOP L4   
    RET  
CODE ENDS
    END START