Password based door lock system

Here u can find diagram and code of the project..



source code:


                ORG 0000H
START:         MOV R0,#30H    //ram address
              MOV R6,#4         //counter
                MOV A,#38H
               ACALL COMMAND
                ACALL DELAY
               MOV A,#0EH
               ACALL COMMAND
                ACALL DELAY
                MOV A,#01H
                ACALL COMMAND
                ACALL DELAY
                MOV A,#06H
               ACALL COMMAND
               ACALL DELAY
               MOV A,#80H
               ACALL COMMAND
               ACALL DELAY
              MOV A,#'E'
             ACALL DATAWRT
               ACALL DELAY
             MOV A,#'N'
             ACALL DATAWRT
             ACALL DELAY
           MOV A,#'T'
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#'E'
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#'R'
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#' '
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#'P'
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#'A'
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#'S'
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#'S'
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#'W'
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#'O'
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#'R'
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#'D'
           ACALL DATAWRT
           ACALL DELAY
           MOV A,#0C0H
           ACALL COMMAND
           ACALL DELAY    
  
    
           SJMP KEY
  
COMMAND:    MOV P1,A
               CLR P3.0
               CLR P3.1
           SETB P3.2
   ACALL DELAY
   CLR P3.2
   RET
   DATAWRT: MOV P1,A
 SETB P3.0
 CLR P3.1
 SETB P3.2
 ACALL DELAY
 CLR P3.2
 RET

  DELAY:MOV R5,#25   
HERE1: MOV R4,#255
 HERE2:DJNZ R4,HERE2
 DJNZ R5,HERE1
 RET

 KEY:  MOV P2,#0FFH
   K1:MOV P0,#0
  MOV A,P2
  ANL A,#00000111B
  CJNE A,#00000111B,K1
  K2:ACALL DELAY
  MOV A,P2
  ANL A,#00000111B
  CJNE A,#00000111B,OVER   
  SJMP K2
  OVER:ACALL DELAY
  MOV A,P2
  ANL A,#00000111B
  CJNE A,#00000111B,OVER1
  SJMP K2
  OVER1:MOV P0,#11111110B
  MOV A,P2
  ANL A,#00000111B
  CJNE A,#00000111B,ROW_0
  MOV P0,#11111101B
  MOV A,P2
  ANL A,#00000111B
  CJNE A,#00000111B,ROW_1
  MOV P0,#11111011B
  MOV A,P2
  ANL A,#00000111B
  CJNE A,#00000111B,ROW_2
  MOV P0,#11110111B
  MOV A,P2
  ANL A,#00000111B
  CJNE A,#00000111B,ROW_3
  LJMP K2
  ROW_0:MOV DPTR,#KCODE0
  SJMP FIND
  ROW_1:MOV DPTR,#KCODE1
  SJMP FIND
  ROW_2:MOV DPTR,#KCODE2
  SJMP FIND
  ROW_3:MOV DPTR,#KCODE3
  SJMP FIND
  FIND:RRC A
  JNC MATCH
  INC DPTR
  SJMP FIND
  MATCH:
          CLR A
          MOVC A,@A+DPTR
        MOV  @R0,A
          MOV A,#'*'
        ACALL DATAWRT
        ACALL DELAY
        INC R0
          DJNZ R6,K1
  LJMP PASS
 ORG 500H
  KCODE0:DB '1','2','3'
  KCODE1:DB '4','5','6'
  KCODE2:DB '7','8','9'
  KCODE3:DB '*','0','#'
PASS:MOV R3,#'5'
 MOV R0,#30H
 MOV A,@R0
 INC R0
 CJNE A,#'2',A1
 INC R3
 SJMP N1
 A1:DEC R3
 N1:MOV A,@R0
 INC R0
 CJNE A,#'5',A2
 INC R3
 SJMP N2
 A2:DEC R3
 N2:MOV A,@R0
 INC R0
 CJNE A,#'8',A3
 INC R3
 SJMP N3
 A3:DEC R3
 N3:MOV A,@R0
 INC R0
 CJNE A,#'0',A4
 INC R3
 SJMP N4
 A4:DEC R3   
  N4:MOV A,R3

 CJNE A,#'9',NOTMA
 LCALL MATCHED
 NOTMA:LCALL NOTMATCH
 MATCHED:MOV A,#01H
 ACALL COMMAND
 ACALL DELAY
 MOV A,#'P'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'A'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'S'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'S'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'W'
   ACALL DATAWRT
   ACALL DELAY
 MOV A,#'O'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'R'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'D'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#' '
   ACALL DATAWRT
   ACALL DELAY
    MOV A,#'M'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'A'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'T'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'C'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'H'
   ACALL DATAWRT
   ACALL DELAY

 CLR P2.4
 MOV R7,200
MDELAY: ACALL DELAY
 DJNZ R7,MDELAY
 SETB P2.4
 MOV A,#01H
   ACALL COMMAND
   ACALL DELAY

 MOV A,#'D'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'O'
   ACALL DATAWRT
   ACALL DELAY
  
    MOV A,#'O'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'R'
   ACALL DATAWRT
   ACALL DELAY
      MOV A,#' '
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'I'
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'S'
   ACALL DATAWRT
   ACALL DELAY
    MOV A,#' '
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'0'
   ACALL DATAWRT
   ACALL DELAY
       MOV A,#'P'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'E'
   ACALL DATAWRT
   ACALL DELAY
  
    MOV A,#'N'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'E'
   ACALL DATAWRT
   ACALL DELAY
      MOV A,#'D'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'.'
   ACALL DATAWRT
   ACALL DELAY
 AG: SJMP AG

 NOTMATCH:MOV A,#01H
   ACALL COMMAND
   ACALL DELAY

 MOV A,#'W'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'R'
   ACALL DATAWRT
   ACALL DELAY
  
    MOV A,#'O'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'N'
   ACALL DATAWRT
   ACALL DELAY
      MOV A,#'G'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#' '
   ACALL DATAWRT
   ACALL DELAY
   MOV A,#'P'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'A'
   ACALL DATAWRT
   ACALL DELAY
       MOV A,#'S'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'S'
   ACALL DATAWRT
   ACALL DELAY
  
    MOV A,#'W'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'O'
   ACALL DATAWRT
   ACALL DELAY
      MOV A,#'R'
   ACALL DATAWRT
   ACALL DELAY

MOV A,#'D'
   ACALL DATAWRT
   ACALL DELAY
   MOV R7,#50
 LD:  ACALL DELAY
   DJNZ R7,LD
     
   LJMP START
  
        END

TRAFFIC LIGHT INTERFACING WITH AT89C51 MICROCONTROLLER

Hi every one this video is demo of traffic light interfacin..you can also find its program and circuit diagram.




org 0300h
db 10h,00h,78h,02h,12h,19h,30h,24h,79h,40h
org 0000h
again:mov p3,#24h
mov p1,#09h
acall ldelay
mov p3,#12h
mov p1,#12h
acall sdelay
mov p3,#09h
mov p1,#24h
acall ldelay
mov p3,#12h
mov p1,#12h
acall sdelay
sjmp again
ldelay: mov r4,#06h
mov dptr,#0300h
mov a,r4
movc a,@a+dptr
mov p0,a
mov a,#40h
mov p2,a
acall delay
inc r4
nxt: mov dptr, #0300h
mov a,r4
movc a,@a+dptr
mov p0,a
mov r3,#0ah
mov dptr, #0300h
next: clr a
movc a,@a+dptr
mov p2,a
acall delay
inc dptr
djnz r3,next
inc r4
cjne r4,#0ah,nxt
 ret
delay:mov r1,#20
mov TMOD,#01h
here:mov TL0,#25h
mov TH0,#4Ch
setb TR0
here1:jnb TF0,here1
clr TR0
clr TF0
djnz r1, here
ret
sdelay:mov p0,#00h
mov p2,#00h
mov a,#00h
mov p0,#40h
mov dptr,#0300h
mov r5,#04h
z:mov a,r5
movc a,@a+dptr
mov p2,a
acall delay2
inc r5
cjne r5,#0ah,z
sjmp out
delay2:mov r1,#20
mov TMOD,#01h
here2:mov TL0,#25h
mov TH0,#4Ch
setb TR0
here4:jnb TF0,here4
clr TR0
clr TF0
djnz r1, here2
out:
ret
end



THANK YOU VERY MUCH....
GOOD LUCK..