2-9-1.asm

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

stack   segment stack 'stack'
        dw 32 dup(0)
stack   ends
data    segment
      newword dw  0000H
      temp1 dw  0000H
      temp2 dw 0000H
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,1234H
        mov bx,5678H
        mov dx,0189H
      
        mov CL,4
        shl ax,CL

        mov byte ptr temp1,BL
        mov byte ptr temp1+1,DH
        mov CL,4
        rol temp1,CL

        mov aL,byte ptr temp1
        mov newword,ax
        ret

begin   endp
code    ends
        end begin