assume cs:code
data segment
str db 0,0,'/',0,0,'/',0,0,' ',0,0,':',0,0,':',0,0,'$'
var db 9,8,7,4,2,0
code segment
BtoA: push bx
push cx
mov ah,0
mov bl,16
div bl
add al,30h
add ah,30h
pop cx
pop bx
ret
start: mov ax,data
mov ds,ax
mov di,offset str
mov bx,offset var
mov cx,6
lp:
mov al,[bx]
out 70h,al
in al,71h
call BtoA
;
mov byte ptr [di],al
mov byte ptr [di+1],ah
inc bx
add di,3
dec cx
jnz lp
;
mov dx,offset str
mov ah,09h
int 21h
;
mov ah,4ch
int 21h
code ends
end start
d:\asm>
d:\asm>lab14
10/06/22 22:04:36
d:\asm> |