8.asm

华工电信系汇编习题的编程实现

stack segment stack 'stack'
      dw 32 dup(?)
stack ends

data segment 
     b1 dd 1234H
     b2 dd 5678H
     b3 dw ?

data ends

code segment 
begin proc far
      assume ss:stack,cs:code,ds:data
      push ds
      sub ax,ax
      push ax
      mov ax,data
      mov ds,ax

      mov ax,b1
      add ax,b2
      mov b3,ax

      mov bl,0
      rcl,bl,1
      add bl,30H
      mov dl,bl
      mov ah,2
      int 21h

      mov dl,byte ptr b3 + 1
      mov cl,4
      shr dl,cl
      add dl,30h
      int 21h

      mov dl,byte ptr b3 + 1
      shl dl,cl
      shr dl,cl
      add dl,30h
      int 21h

      mov dl,byte ptr b3
      shr dl,cl
      add dl,30h
      int 21h

      mov dl,byte ptr b3
      shl dl,cl
      shr dl,cl
      add dl,30h
      int 21h

      

      ret
begin   endp
code    ends
      end begin