RE:Deseo obtener el codigo fuente de un reloj digi
Publicado por
jose (1 intervención) el 01/05/2008 15:20:35
Ps espero que te sirva yo = busco uno pero este que hice puede servirte , es el reloj digital tomando desde horas minutos segundos ymilesimas espero enserio y te sirva.
;programa que muestra la hora del sistema en la
;esquina superior de la pantalla
stack segment para stack 'stack'
db 256 dup(?)
stack ends
data segment para 'data'
contu db 0
contd db 0
data ends
code segment para 'code'
principal proc far
assume cs:code, ds:data, ss:stack
inicio:push ds
xor ax,ax
push ax
mov ax, data
mov ds,ax
call clear
mov dh,00
mov dl,44h
call col_pulsor
mov ah,2ch
int 21h
mov al,ch
call decimal
call imprimir
mov ah,2ch
int 21h
mov al,cl
call decimal
call imprimir
mov ah,2ch
int 21h
mov al,dh
call decimal
call imprimir
mov ah,2ch
int 21h
mov al,dl
call decimal
call imprimir
call lee
ret
principal endp
decimal proc near
con:cmp al,0ah
jb uni
sub al,0ah
inc contd
mov contu,0
jmp con
uni:mov contu, al
add contd,30h
add contu,30h
ret
decimal endp
imprimir proc near
mov ah,02h
mov dl,CONTD
int 21h
mov dl,CONTU
int 21h
mov DL,0FFh
int 21h
mov CONTD,0
mov CONTU,0
ret
imprimir endp
clear proc near
push ax
push bx
push cx
push dx
mov al, 19h
mov bh, 20h
mov ch, 00
mov cl, 00
mov dh, 19h
mov dl, 6fh
mov ah, 06h
int 10h
pop dx
pop cx
pop bx
pop ax
ret
clear endp
col_pulsor proc near
push ax
push bx
push cx
push dx
mov bh, 00
mov ah, 02
int 10h
pop dx
pop cx
pop bx
pop ax
ret
col_pulsor endp
lee proc near
push ax
push bx
push cx
push dx
mov ah, 01
int 21
pop dx
pop cx
pop bx
pop ax
ret
lee endp
code ends
end inicio
end
