十进制转换二进制

;A3-1.asm

;将ASCII码十进制数转换为二进制数

STACK1 SEGMENT STACK

DW 256 DUP(?)

STACK1 ENDS

DATA SEGMENT

MES1 DB 'The ascii code of decimal code are:$'

BUF DB 31H,32H,33H

DB 10H DUP(0)

DATA ENDS

CODE SEGMENT

ASSUME CS:CODE,DS:DATA

START: MOV AX,DATA

MOV DS,AX

MOV SI,OFFSET BUF

MOV BX,000AH

MOV CX,0002H

MOV AH,00H

MOV AL,[SI]

SUB AL,30H

A1: IMUL BX

ADD AL,[SI+01]

SUB AL,30H

INC SI

LOOP A1

MOV [SI],AX

MOV DX,OFFSET MES1

MOV AH,09H

INT 21H

INC SI CALL SHOW

DEC SI CALL SHOW

MOV AX,4C00H

INT 21H

SHOW PROC NEAR

MOV AL,DS:[SI]

AND AL,0F0H SHR AL,4

;显示高字节

;显示低字节 ;取高4位

CMP AL,0AH ;是否是A以上的数

JB C2

ADD AL,07H

C2: ADD AL,30H

MOV DL,AL MOV AH,02H

INT 21H

MOV AL,DS:[SI]

AND AL,0FH CMP AL,0AH

JB C3

ADD AL,07H

C3: ADD AL,30H

;show character

;取低4位

MOV DL,AL ;show character

MOV AH,02H

INT 21H

RET

ENDP

CODE ENDS

END START