Seven segment LCD alarm Clock microcontroller program

MC program for 7 segment clock , This is ready to make Clock

$mod51 RB0 EQU 00H RB1 EQU 08H RB2 EQU 10H ;%%%%%%%%%%%%% %%%%%%%%%% ; PORT DECLERATION ;%%%%%%%%%%%%% %%%%%%%%%% SDA EQU P3.1 SCL EQU P3.0 timeset EQU P3.2 alarset EQU p3.3 DS1307W EQU 0D0H DS1307R EQU 0D1H segment_A EQU P1.5 segment_B EQU P1.4 segment_C EQU P1.1 segment_D EQU P1.2 segment_E EQU P1.3 segment_F EQU P1.6 segment_G EQU P1.7 DIS4 EQU P1.0 DIS3 EQU P3.5 DIS2 EQU P3.4 DIS1 EQU P3.7 DSEG ORG 20H FLAGS1: DS 1 CONTROL BIT FLAGS1.0 NEW BIT FLAGS1.1 FLAGS: DS 1 LASTREAD BIT FLAGS.0 SQW BIT FLAGS.4 ACK BIT FLAGS.5 BUS_FLT BIT FLAGS.6 _2W_BUSY BIT FLAGS.7 ;byte values BITCNT: DS 1 BYTECNT:DS 1 BYTE: DS 10 BYTES: DS 10 SECS: DS 1 MINS: DS 1 HRS: DS 1 DAY: DS 1 DATE1: DS 1 MONTH: DS 1 YEAR: DS 1 TOTAL: DS 1 alahr: DS 1 alamin: DS 1 TEMP: DS 1 TEMPS: DS 1 keypr: DS 1 COUNT: DS 1 RATE: DS 1 VALUE_1:DS 1 VALUE_2:DS 1 VALUE_3:DS 1 VALUE_4:DS 1 BAD: DS 1 TOGGLE: DS 1 ANS: DS 1 ADDR: DS 1 STACK: DS 1 ;***MACRO'S**** SCL_HIGH MACRO SETB SCL JNB SCL,$ ENDM ;%%%%%%%%%%%%%%%%%%%%%%%%%% CSEG ;-----============-----------========-------- ;main routine. program execution start here. ;-------------============-----------========= ORG 00H AJMP MAIN ORG 000BH JMP REFRESH ;------------========-----------============= MAIN: MOV PSW,#RB0 MOV SP,#60H MOV RATE,#00H MOV COUNT,#00H MOV VALUE_1,#01H MOV VALUE_2,#02H MOV VALUE_3,#03H MOV VALUE_4,#04H MOV alahr,#060h MOV alamin,#30h MOV TMOD,#01H MOV TL0,#00H MOV TH0,#0FDH MOV P3,#0FFH clr p3.3 CLR IT0 SETB ET0 SETB EA SETB TR0 MOV ANS,#00H CLR NEW ;********************************** INITILIZE RTC ;********************************** SETB SDA SCL_HIGH CLR ACK CLR BUS_FLT CLR _2W_BUSY CLR SQW CALL OSC_CONTROL ACALL SQW_CONTROL_1HZ MOV keypr,#35h ;********************************* ; CHECK FOR ENTER THE TIME CALL read_CLOCK mov a,#06h mov alahr,a mov a,#30h mov alamin,a call store_clock ;******************************** ; MAIN PROGRAM ;******************************** START_PROGRAM: CALL READ_CLOCK MOV A,#1fh anl a,#1fh mov hrs,a call alarm_chk am: mov a,hrs ANL A,#0FH SWAP A MOV VALUE_1,A MOV A,hrs MOV VALUE_2,A MOV A,MINS ANL A,#0F0H SWAP A MOV VALUE_3,A MOV A,MINS ANL A,#0FH MOV VALUE_4,A CALL keycheck AJMP START_PROGRAM alatime: ;******************************** ;alarm check ;******************************** ALARm_Chk: MOV A,alahr CJNE A,hrs,R MOV A,mins CJNE A,alamin,R setb p3.3 RET R: clr P3.3 RET ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ DELAY: MOV R1,#0FFH dela: RE1: MOV R2,#00FH RE: NOP DJNE R2,RE DJNE R1,RE1 RET ;********************************* DELAYS:MOV R3,#0AH RS3: MOV R1,#0FFH RA1: MOV R2,#00FH RS2: MOV A,keypr CJNE A,#35H,key DJNE R2,RS2 DJNE R1,RA1 DJNE R3,RS3 RET ;-----------===========--------- keycheck: key: jb timeset,nokey mov a,mins add a,#01 da a mov min,a cjne a,#13h,storeeclo windhour: mov hrs,#1 storeclo: call store_clock jmp nokey ala: mov a,mins mov alamin,a mov a,hrs mov alahr,a call store_clock jmp kk nokey: jb p3.3,ala kk: MOV R1,#100 call dela RET ;&&&&&&&&&&&&&&&&&&&&&&&&&&&& ; 7-segment display rourine ;&&&&&&&&&&&&&&&&&&&&&&&&&&&& DISP: MOV R2,RATE CJNE R2,#00H,AAS1 SETB segment_A SETB segment_B SETB segment_C SETB segment_D SETB segment_E SETB segment_F CLR segment_G RET AAS1: CJNE R2,#01H,AS2 SETB segment_B SETB segment_C CLR segment_A CLR segment_D CLR segment_E CLR segment_F CLR segment_G RET AS2: CJNE R2,#02H,AS3 SETB segment_A SETB segment_B SETB segment_D SETB segment_E SETB segment_G CLR segment_C CLR segment_F RET AS3: CJNE R2,#03H,AS4 SETB segment_A SETB segment_B SETB segment_C SETB segment_D SETB segment_G CLR segment_E CLR segment_F RET AS4: CJNE R2,#04H,AS5 SETB segment_B SETB segment_C SETB segment_F SETB segment_G CLR segment_A CLR segment_D CLR segment_E RET AS5: CJNE R2,#05H,AS6 SETB segment_A SETB segment_C SETB segment_D SETB segment_F SETB segment_G CLR segment_B CLR segment_E RET AS6: CJNE R2,#06H,AS7 SETB segment_A SETB segment_C SETB segment_D SETB segment_E SETB segment_F SETB segment_G CLR segment_B RET AS7: CJNE R2,#07H,AS8 SETB segment_A SETB segment_B SETB segment_C CLR segment_D CLR segment_E CLR segment_F CLR segment_G RET AS8: CJNE R2,#08H,AS9 SETB segment_A SETB segment_B SETB segment_C SETB segment_D SETB segment_E SETB segment_F SETB segment_G RET AS9: CJNE R2,#09H,AS10 SETB segment_A SETB segment_B SETB segment_C SETB segment_D SETB segment_F SETB segment_G CLR segment_E RET AS10: CJNE R2,#15H,AS11 CLR segment_A CLR segment_B CLR segment_C CLR segment_D CLR segment_E CLR segment_F SETB segment_G RET AS11: CJNE R2,#16H,AS12 CLR segment_A CLR segment_B CLR segment_C CLR segment_D CLR segment_E CLR segment_F CLR segment_G RET AS12: RET ;***************************************** ;INTRUPT ROUTINE TO REFRESH THE DISPLAY ;***************************************** REFRESH: PUSH PSW MOV PSW,#RB1 PUSH ACC INC COUNT MOV R4,COUNT QA1: CJNE R4,#01H,QA2 MOV RATE,VALUE_1 MOV A,RATE CJNE A,#00H,SDF MOV RATE,#16H SDF: SETB DIS1 CLR DIS2 CLR DIS3 CLR DIS4 CALL DISP AJMP DOWN QA2: CJNE R4,#02H,QA3 MOV RATE,VALUE_2 CLR DIS1 SETB DIS2 CLR DIS3 CLR DIS4 CALL DISP AJMP DOWN QA3: CJNE R4,#03H,QA4 MOV RATE,VALUE_3 CLR DIS1 CLR DIS2 SETB DIS3 CLR DIS4 CALL DISP AJMP DOWN QA4: CJNE R4,#04H,QA5 MOV RATE,VALUE_4 CLR DIS1 CLR DIS2 CLR DIS3 SETB DIS4 CALL DISP AJMP DOWN QA5: MOV COUNT,#01H MOV R4,COUNT AJMP QA1 DOWN: MOV TL0,#0FFH MOV TH0,#0FFH POP ACC POP PSW RETI ;****************************************** ;SUB SETS THE DS1307 OSCILLATOR ;****************************************** OSC_CONTROL: ACALL SEND_START MOV A,#DS1307W ;1101 0000 ADDRESS+WRITE-BIT ACALL SEND_BYTE MOV A,#00H ACALL SEND_BYTE SETB LASTREAD ACALL SEND_STOP ACALL SEND_START MOV A,#DS1307R ACALL SEND_BYTE ACALL READ_BYTE CLR ACC.7 OSC_SET: PUSH ACC ACALL SEND_STOP ACALL SEND_START MOV A,#DS1307W ACALL SEND_BYTE MOV A,#00H ACALL SEND_BYTE POP ACC ACALL SEND_BYTE ACALL SEND_STOP RET ;******************************************** ;THIS SUB CNTROLS THE SQW OUTPUT 1HZ ;******************************************** SQW_CONTROL_1HZ: LCALL SEND_START MOV A,#DS1307W LCALL SEND_BYTE MOV A,#07H LCALL SEND_BYTE MOV A,#90H JNB SQW,SQW_SET MOV A,#80H SQW_SET: LCALL SEND_BYTE LCALL SEND_STOP RET ;??????????????????????????????????????????? ; ;THIS SUB CONTROLS THE SQW OUTPUT 32HZ ; ;?????????????????????????????????????????? SQW_CONTROL_32KHZ: LCALL SEND_START MOV A,#DS1307W LCALL SEND_BYTE MOV A,#07H LCALL SEND_BYTE MOV A,#93H JNB SQW,SQW_SET3 MOV A,#80H SQW_SET3: LCALL SEND_BYTE LCALL SEND_STOP RET ;*************************************************** ;THIS SUB READS ONE BYTE OF DATA FROM THE DS1307 ;*************************************************** READ_BYTE: MOV BITCNT,#80H MOV A,#00H SETB SDA READ_BITS: SCL_HIGH MOV C,SDA RLC A CLR SCL DJNZ BITCNT,READ_BITS JB LASTREAD,ACKN CLR SDA ACKN: SCL_HIGH CLR SCL RET ;*************************************************** ;SUB SENDS START CONDITION ;*************************************************** SEND_START: SETB_2W_BUSY CLR ACK CLR BUS_FLT JNB SCL,FAULT JNB SDA,FAULT SETB SDA SCL_HIGH CLR SDA ACALL DELAY CLR SCL RET FAULT: SETB BUS_FLT RET ;******************************************* ;SUB SEND STOP CONDITION ;****************************************** SEND_STOP: CLR SDA SCL_HIGH SETB SDA CLR _2W_BUSY RET ;***************************************** ;SUB DELAY THE BUS ;**************************************** DEELAY: NOP RET ;******************************************** ;THIS SUB SENDS 1BYTE OF DATA T THE DS1307 ;CALL THIS FOR EACH REGISTER SECONDS TO YEAR ;ACC MUST CONTAIN DATA TO BE SENT TO CLOCK ;******************************************* SEND_BYTE: MOV BITCNT,#08H SB_LOOP: JNB ACC.7,NOTONE SETB SDA JMP ONE NOTONE: CLR SDA ONE: SCL_HIGH RL A CLR SCL DJNZ BITCNT,SB_LOOP SETB SDA SCL_HIGH CLR ACK JNB SDA,SB_EX SETB ACK SB_EX: ACALL DELAY CLR SCL ACALL DELAY RET ;************************************************************ ;SUB READ THE CLOCK AND WRITES IT TO THE SCRACHPAD MEMORY ;ON RETURN FROM HERE DATE & TIME DATA WILL BE STORED THE ;DATE&TIME REGISTER FROM 24H (SECS) TO 2AH (YEAR) ;ALARM SETTINGS IN REGISTERS 2CH(HRS) AND 2DH (MINUTES). ;*********************************************************** READ_CLOCK: MOV R1,#SECS MOV BYTECNT,#00H CLR LASTREAD CALL SEND_START MOV A,#DS1307W CALL SEND_BYTE MOV A,#00H CALL SEND_BYTE CALL SEND_STOP CALL SEND_START MOV A,#DS1307R CALL SEND_BYTE READ_LOOP: MOV A,BYTECNT CJNE A,#09H,NOT_LAST SETB LASTREAD NOT_LAST: CALL READ_BYTE MOV @R1,A MOV A,BYTECNT CLNE A,#00H,NOT_FIRST MOV A,@R1 CLR ACC.7 MOV @R1,A NOT_FIRST: INC R1 INC BYTECNT MOV A,BYTECNT CJNE A,#0AH,READ_LOOP CALL SEND_STOP nop NOP RET ;(((((((((((((((((((((((((((((((((((((((((( ;STORE THE TIME TO RTC CHIP ;)))))))))))))))))))))))))))))))))))))))))) STORE_CLOCK: LCALL SEND_START MOV A,#DS1307W LCALL SEND_BYTE MOV A,#08H LCALL SEND_BYTE MOV A,ALAHR LCALL SEND_BYTE MOV A,ALAMIN LCALL SEND_BYTE LCALL SEND_STOP LCALL SEND_START MOV A,#DS1307W LCALL SEND_BYTE MOV A,#01H LCALL SEND_BYTE MOV A,MINS LCALL SEND_BYTE MOV A,HRS setb ACC.6 CLR ACC.5 LCALL SEND_BYTE MOV A,DAY LCALL SEND_BYTE MOV A,DATE1 LCALL SEND_BYTE MOV A,MONTH LCALL SEND_BYTE MOV A,YEAR LCALL SEND_BYTE mov a,#90h lcall send_byte mov a,alahr lcall send_byte mov a,alamin lcall send_byte LCALL SEND_STOP RET ;******************************************** DEALAY: MOV R1,#0CCH REP2: MOV R2,#0FFH REP1: NOP DJNZ R2,REP1 DJNZ R1,REP2 RET END