exam802.asm

我在汇编课上完成的一些作业（上机常见习题）和汇编课本上的几个例题

;在bcdz单元中有一个2位十进制数的压缩bcd码，
;试编程将其转化成二进制数，并保存到binz单元
data segment
     bcdz db 00110100b
     binz db ?
data ends
code segment
     assume cs: code, ds:data
main proc far
     push ds
     mov ax, 0
     push ax
     mov ax, data
     mov ds, ax
     mov al, bcdz  ;把参数保存到al寄存器
     call sub1
     mov binz, al  ;返主后,binz<—al
     ret
main endp
sub1 proc near
     pushf         ;保护现场
     push bx
     push cx
     mov ah, al    ;十进制34的bcd码传送给ah
     and ah, 0fh
     mov bl, ah    ;个位送给bl保存
     and al, 0f0h  ;10位数保留al
     mov cl, 04
     ror al, cl    ;10位数转移到低4位(变位个位数)
     mov bh, 0ah
     mul bh        ;个位数乘10
     add al, bl    ;加上原来的低4位
     call outax
     pop cx        ;恢复现场
     pop bx
     popf
     ret           ;返回调用程序,al的内容传递回调用程
sub1 endp

outax  proc far      ;显示AX的内容
       push bx       ;保护现场
       push cx
       push dx
       mov bx, ax
       mov ch, 04    ;数据位计数器
rot:  mov cl, 4      ;数据位数有4bit
      rol bx, cl     ;将最高4bit移
      mov al, bl     ;到bl最低4bit
      and al, 0fh    ;并取出送到al
      add al, 30h    ;转换为ASCII码
      cmp al, 3ah    ;al>'9'?
      jb print       ;是'0' ~ '9'转
      add al,07      ;是'A' ~ 'F'再加7
print:  mov ah, 02
        mov dl, al
        int 21h      ;显示al字符
        dec ch       ;四位已经显示完没?
        jnz rot      ;还没有，转ROT
        pop dx       ;恢复现场
        pop cx
        pop bx
        ret          ;返回
outax  endp          ;子程序结束
code ends
     end main