Ytxhel
24 de Julio del 2004

Por favor, necesito un programa de reloj , si me lo prodrian mandar en los siguientes dias. se los agradeceria.

pepelu
24 de Julio del 2004

ojala yo tuviera un programa asi, jnecesito uno de un reloj digital?
Gracias

Jjavier
24 de Julio del 2004

A qué universidad perteneceis ? A mí me lo han encargado y ya lo tengo hecho. Si pagais bien os lo envío.

KATI
24 de Julio del 2004

TE DOY UNA PINGA

elio
24 de Julio del 2004

dfd

alanis_1978
24 de Julio del 2004

Hola necesito el codigo en assemble apra el pic 16f84 porfa lo necesito con alarma pero sino tienes igual pasamelo mandamelo a mi correo [email protected]

ninos
24 de Julio del 2004

Alguien que tenga un programa en ensamblador que de la hora y que se le pueda dar una hora para la alarma y cuando llegue la hora de la alarma pueda desplegar un mensaje o hacer un pitido se los agradeceria mucho sale grasias.....

ninos
24 de Julio del 2004

mi correo es queteimportas.com

ninos
24 de Julio del 2004

mi correo es [email protected]

luis
24 de Julio del 2004

tal vez es tarde pero ahi telo envio


DISP MACRO CHAR
PUSH AX
PUSH DX
MOV DL,CHAR
MOV AH,2
INT 21H
POP DX
POP AX
ENDM


STACK SEGMENT PARA STACK
DB 1024 DUP ("_")
STACK ENDS
DATOS SEGMENT
DTAB DW DOM,LUN,MAR,MIE,JUE,VIE,SAB

MTAB DW ENE,FEB,MAZ,ABR,MAY,JUN
DW JUL,AGO,SEP,OCT,NOV,DIC

DOM DB "DOMINGO","$"
LUN DB "LUNES","$"
MAR DB "MARTES","$"
MIE DB "MIERCOLES","$"
JUE DB "JUEVES","$"
VIE DB "VIERNES","$"
SAB DB "SABADO","$"
ENE DB "ENERO","$"
FEB DB "FEBRERO","$"
MAZ DB "MARZO","$"
ABR DB "ABRIL","$"
MAY DB "MAYO","$"
JUN DB "JUNIO","$"
JUL DB "JULIO","$"
AGO DB "AGOSTO","$"
SEP DB "SEPTIEMBRE","$"
OCT DB "OCTUBRE","$"
NOV DB "NOVIEMBER","$"
DIC DB "DICIEMBRE","$"
DATOS ENDS
CODIGO SEGMENT
ASSUME CS:CODIGO,DS:DATOS,SS:STACK
PRINCIPAL PROC FAR
PUSH DS
SUB AX,AX
PUSH AX
MOV AX,DATOS
MOV DS,AX
CALL TIMES ;DESPLIEGA HORA
CALL DATES ;DESPLIEGA FECHA
RET
PRINCIPAL ENDP
TIMES PROC NEAR
MOV AH,2CH ;OBTIENE HORA DEL DOS
INT 21H
MOV BH,"A"
CMP CH,12
JB TIMES1

MOV BH,"P"
SUB CH,12

TIMES1:
OR CH,CH
JNE TIMES2
MOV CH,12
TIMES2:
MOV AL,CH
MOV AH,0
AAM ;CONVIERTE A HORAS
OR AH,AH
JZ TIMES3
ADD AH,"0"
DISP AH
TIMES3:
ADD AL,"0"
DISP AL
DISP ":"
MOV AL,CL
MOV AH,0
AAM ;CONVIERTE MINUTOS
MOV AX,3030H
PUSH AX
DISP AH
POP AX
DISP AL
DISP " "
DISP BH
DISP "."
DISP "M"
DISP "."
DISP " "
RET
TIMES ENDP


DATES PROC NEAR
MOV AH,2AH
INT 21H
PUSH DX
MOV AH,0 ;OBTIENE DIA DE LA SEMANA
ADD AX,AX
MOV SI,OFFSET DTAB
ADD SI,AX
DISP " "
MOV DX,[SI] ;DESPLIEGA DIA DE LA SEMANA
MOV AH,9
INT 21H
POP DX
PUSH DX
MOV AL,DH ;OBTIENE MES
DEC AL
MOV AH,0
ADD AX,AX
MOV SI,OFFSET MTAB
ADD SI,AX
DISP " "
MOV DX,[SI] ;DESPLIEGA MES
MOV AH,9
INT 21H
POP DX
MOV AL,DL ;OBTIENE DIA DEL MES
MOV AH,0
AAM
OR AH,AH
JZ DATES1
ADD AH,30H
DISP " "
DISP AH
DATES1:
ADD AL,30H
DISP AL
DISP ","
DISP " "
CMP CX,2000
JB DATES2
SUB CX,100
DISP "2"
DISP "0"
JMP DATES3
DATES2:
DISP "1"
DISP "9"
DATES3:
SUB CX,1900
MOV AX,CX
AAM
ADD AX,3030H
DISP AH
DISP AL
RET
DATES ENDP
CODIGO ENDS
END PRINCIPAL