实验14

参考网上的写的……

ps:貌似加个循环就动态显示了……

======================

assume cs:code, ds:data

data segment

s1
        db 9, 8, 7, 4, 2, 0
s2
        db "00/00/00 00:00:00", '$'
s3
        db 10h dup (0)
        
data ends

code segment

start:
        mov ax, data
        mov ds, ax
        mov bx, offset s3
        mov si, offset s1
        mov di, offset s2
        
        ; 将数据写入到s3
        mov cx, 6
wdata:
        push cx
        mov al, [si]    ; 将指定单元送入al
        out 70h, al    ; 将指定单元号送入地址端口
        in al, 71h        ; 从指定单元号中读取数据送入al
        mov ah, al
        mov cl, 4
        shr ah, cl            ; ah为数据的十位
        and al, 00001111b    ; al为数据的个位
        add ah, 30h
        add al, 30h        ; 将ah和al转换为ascii
        mov [bx], ah
        mov [bx + 1],al
        
        pop cx
        inc si
        add bx, 2
        loop wdata
        
        ; 将s3的数据写入到s2
        mov bx, offset s3
        mov cx, 11h
wdata1:
        mov al, [bx]
        cmp byte ptr[di], 30h       ; 如果字符串s2的该字节等于0(ASCII 30H),复制,否则递增s2
        jne next
        mov byte ptr[di], al
        inc bx
next:
        inc di
        loop wdata1
        
        ; 用int 10h,int 21h显示字符串s2
        mov ah, 2
        mov bh, 0
        mov dh, 5
        mov dl, 0
        int 10h
        mov ah, 9
        mov dx, offset s2
        int 21h
        
        mov ax, 4c00h
        int 21h
        
code ends

end start