2-12.asm

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

stack   segment stack 'stack'
        dw 32 dup(0)
stack   ends
data    segment

        First dd 12345678H
        Third db 4 dup (?)

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


        ;qiu bu ma
        mov ax,word ptr First
        Not ax
        mov word ptr First,ax
        mov ax,word ptr First + 2
        Not ax

        mov word ptr First + 2,ax
        add ax,1;
        mov word ptr First,ax

        mov ax,word ptr First + 2;
        adc ax,0
        mov word ptr First + 2,ax  ;end qiu bu ma

        mov ax,word ptr First  ;1st
        mov cl,2
        shr ax,cl
        mov Third,al

        mov ax,word ptr First + 1;
        shr ax,cl
        mov Third + 1,al

        mov ax,word ptr First + 2
        shr ax,cl
        mov word ptr Third + 2,ax

        ret

begin   endp
code    ends
        end begin