实验13-两个版本之一

调用dos中断显示以$符结束的字符串

assume cs:codesg


;    秒： 0  分：2 时： 4 日 ： 7 月：8 年：9
codesg segment
    str1:    db '20yy/mm/dd hh:mm:ss','$'
    row:    db 9,8,7,4,2,0
    start:
        mov ax, cs
        mov ds, ax
        mov di, offset str1 + 2
        mov si, offset row
        mov cx, 5

    s:    mov al, [si]
        out 70h, al
        in  al, 71h
        call do_addstr
        add di, 3
        inc si
        loop s
        
    ;    调用dos中断
        mov ah, 2
        mov bh, 0
        mov dh, 12
        mov dl, 12
        int 10h
        
        mov dx, 0
        mov ah, 9
        int 21h

        mov ax, 4c00h
        int 21h
    ;    参数al， 将al中bcd放到ds:si指定处
do_addstr:
    push di
    push ax
        mov ah, al
        mov cl, 4
        shr ah, cl
        add ah, 30h
        and al, 00001111b
        add al, 30h
        mov [di], ah
        mov [di + 1], al
    pop ax
    pop di
    ret

codesg ends
end start