论坛 › 汇编语言交流 › 书上p271的题，求改进

Near 发表于 2012-4-20 00:27:41

书上p271的题，求改进

assume cs:code
code segment

        s:         db '00/00/00 00:00:00'
        se: nop
        row: db 9,8,7,4,2,0
       
start:                call near ptr change               ;改写字符串
                call near ptr show                  ;显示字符串
                mov ax,4c00h
                int 21h

change:        mov ax,cs
                mov ds,ax
                mov si,offset s
                mov bx,offset row
                mov cx,6
        lp:    mov al,
                out 70h,al
                in al,71h
                push cx
                mov ah,al
                mov cl,4
                shr ah,cl
                and al,00001111b
                add ah,30h
                add al,30h
                mov byte ptr ,ah
                mov byte ptr ,al
                add si,3
                inc bx
                pop cx
                loop lp
                ret
               
show:         mov si,offset s
                mov ax,0b800h
                mov es,ax
                mov di,160*12+30*2
                mov cx,offset se -offset s
                mov dl,11100001b
        lp1:   mov al,
                mov byte ptr es:,al
                inc di
                mov byte ptr es:,dl
                inc di
                inc si
                loop lp1
                ret

code ends
end start

查看完整版本: 书上p271的题，求改进