assume cs:code
data segment
db 0,2,4,7,8,9
db '/','/',' ',':',':','$'
db 16 dup (0)
data ends
code segment
start: mov ax,data
mov ds,ax
mov si,5
mov bp,6
mov di,16
s:
mov al,[si]
out 70h,al
in al,71h
mov ah,al
mov cl,4
shr ah,cl
and al,00001111b
add al,30h
add ah,30h
mov ds:[di],ah
mov ds:1[di],al
mov al,ds:[bp]
mov ds:2[di],al
mov cx,si
jcxz ok
dec si
add di,3
inc bp
jmp s
ok: mov ah,2
mov bh,0
mov dh,12
mov dl,12
int 10h
mov dx,16
mov ah,9
int 21h
mov ax,4c00h
int 21h
code ends
end start |