assume cs:code
code segment
strat:
mov bx,0
mov al,9
call show
mov byte ptr es:[160*12+40*2+bx],'/'
add bx,2
mov al,8
call show
mov byte ptr es:[160*12+40*2+bx],‘/’
add bx,2
mov al,7
call show
mov byte ptr es:[160*12+40*2+bx],‘ ’
add bx,2
mov al,4
call show
mov byte ptr es:[160*12+40*2+bx],':'
add bx,2
mov al,2
call show
mov byte ptr es:[160*12+40*2+bx],':'
add bx,2
mov al,0
call show
mov ax,4c00h
int 21h
show:
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 dx,0b800h
mov es,dx
mov byte ptr es:[160*12+40*2+bx],ah
mov byte ptr es:[160*12+40*2+2+bx],al
add bx,4
ret
code ends
end strat