assume cs:code,ds:data
data segment
db 9,'/',8,'/',7,' ',4,':',2,':',0
data ends
code segment
start: mov ax,data
mov ds,ax
mov si,0
mov di,0
mov cx,6
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 bx,0b800h
mov es,bx
mov byte ptr es:[160*12+31*2+di],ah
add di,2
mov byte ptr es:[160*12+31*2+di],al
add di,2
inc si
mov ah,[si]
mov byte ptr es:[160*12+31*2+di],ah
add di,2
inc si
pop cx
loop s
mov ax,4c00h
int 21h
code ends
end start |