压缩BCD码转非压缩BCD码

DATAS SEGMENT

    ;此处输入数据段代码

    buf db 32h,29h,64h,10h,89h,99h  

    res dw ?

    buf_size db ?

    res_size db ?  

DATAS ENDS

 

STACKS SEGMENT

    ;此处输入堆栈段代码

STACKS ENDS

 

CODES SEGMENT

    ASSUME CS:CODES,DS:DATAS,SS:STACKS

START:

    MOV AX,DATAS

    MOV DS,AX

    ;此处输入代码段代码

     ;宏 显示一个字符

dispchar macro char

         mov ah,2

         mov dl,char

         int 21h

         endm

    ;宏定义完成

 

    ;宏 显示字符串

dispmsg   macro message

          mov ah,9

          lea dx,message

          int 21h

          endm

    ;宏定义完成

 

    ;宏 显示十六进制数的四位

disphex   macro hexdata

          local disphex1

          push ax

          push bx

          push cx

          push dx

          mov bx,hexdata

          mov cx,0404h

disphex1: rol bx,cl

          mov al,bl

          and al,0fh

          call htoasc

          dispchar al

          dec ch

          jnz disphex1

          pop dx

          pop cx

          pop bx

          pop ax

          endm

    ;宏定义完成

    

   

    mov cx, lengthof buf

    lea si,buf

    lea di,res

again:

    mov al,byte ptr [si]

    call bcd

    mov word ptr [di],ax

    disphex ax

    inc si

    inc di

    inc di

    loop again  

    

    MOV AH,4CH

    INT 21H

    

    ;子程序压缩BCD转非压缩BCD

    BCD proc

        push cx

        mov ah,0h

        mov cl,4

        shl ax,cl

        shr al,cl

        pop cx

        ret

    BCD endp

    

    ;子程序十六进制转ASCII

 HTOASC proc

        push bx

        mov bx,offset ASCII

        and al,0fh

        xlat ASCII

        pop bx

        ret

ASCII db 30h,31h,32h,33h,34h,35h,36h,37h,38h,39h

      db 41h,42h,43h,44h,45h,46h

HTOASC  endp    

CODES ENDS

    END START