将两位十进制的书转换成八位纯二进制数

来源:互联网 发布:惠普打印机驱动for mac 编辑:程序博客网 时间:2024/03/29 19:39

DATA      SEGMENT
 ABCD     DB 2 DUP(?)
 ABIN      DB 8 DUP(?)
 RESULT DB 0
    MSG   DB 'PLEASE'
       EN  EQU $-MSG
DATA    ENDS
CODE    SEGMENT
 ASSUME CS:CODE,DS:DATA
 START: MOV AX,DATA
             MOV DS,AX
             LEA SI,MSG
             MOV CX,LEN
         A:MOV DL,[SI]
            MOV AH,02H
            INT 21H
            INC SI
            DEC CX
            JNZ A
      ;*****************
            LEA DI, ABCD
            MOV CX, 2
         B:MOV AH,07H
           INT 21H
          CMP AL,30H
           JB  B
          CMP AL,39H
          JA  B
          MOV [DI],AL
          MOV DL,AL
          MOV AH,02H
          INT 21H
          INC DI
          DEC CX
          JNZ B
        ;*************
          MOV DL,0DH
          MOV AH,02H
          INT 21H
          MOV DL,0AH
          MOV AH,02H
          INT 21H
        ;************
          LEA SI,ABCD
          MOV AL,[SI]
          INC SI
          SUB AL,30H
          ADD AL,AL
          MOV BL,AL      
          ADD AL,AL
          ADD AL,AL
          ADD AL,BL
          MOV BL,[SI]
          SUB BL,30H
          ADD AL,BL
          MOV RESULT,AL
       ;******************
           LEA DI,ABIN
           MOV CX,8
           MOV BL,RESULT

AGAIN:MOV AL,30H
           TEST AL,80H
           JZ NEXT
           INC AL
 NEXT:MOV [DI],AL
          SAL BL,1
          INC DI
          DEC CX
          DEC DI
          MOV SI,DI
          MOV CX,8
          MOV DL,[SI]
      X: MOV AH,02H
          INT 21H
          DEC CX
          JNZ X
          MOV AH,4CH
          INT 21H

CODE    ENDS
            END START

原创粉丝点击