汇编实验14

eol75999

assume cs:code
code segment
a1:db 'yy/MM/dd hh:mm:ss',0
b1:db 9,8,7,4,2,0

start:
mov ax,cs
mov ds,ax
mov bx,offset a1
mov si,offset b1
mov cx,6
mov ax,0b800h
mov es,ax
mov di,160*12+31*2

s:   ;
push cx
mov al,[si]
out 70h,al
in  al,71h
mov ah,al
mov cl,4
shr ah,cl
and al,00001111b
add ah,30h
add al,30h
mov byte ptr [bx],ah
mov byte ptr [bx+1],al
add bx,3
add si,1
pop cx
loop s



mov bx,offset a1
zz:
mov ch,0
mov cl,[bx]
jcxz exit;cx=0跳出
mov byte ptr es:[di],cl
mov byte ptr es:[di+1],2;颜色
add di,2
inc bx
jmp zz


exit:
mov ax,4c00h
int 21h


code ends
end start