;*************Designed By: Engr. Tarique R. Memon
;*************electronixforu.com 
;*************Frequency conter**************
;*************Max Freq limit=256Hz*****************
;**************dated: april 09, 2015, time:3:22 am*************
;*************crystal frequency 11.0592MHz*************
ORG 0000H
enable equ p3.7
RW equ p3.3
RS equ p3.2
SETB P3.5
lb equ p2
;MOV P1,#00000000B        
ACALL COMMAND
MAIN: 
MOV R6,#14
      MOV TMOD,#01100001B 
      mov tl1, #00
      MOV TH1, #0   
      SETB TR1             
BACK: MOV TH0, #00   
      MOV TL0, #00
      SETB TR0             
HERE: JNB TF0,HERE         
      CLR TR0              
      CLR TF0              
      DJNZ R6,BACK
      clr tr1
      CLR TF0
      clr tf1
      clr tr0
      ACALL COMMAND
     ACALL DLOOP  
      ACALL TRANSFER2
      ACALL TRANSFER1
      ACALL TRANSFER
      SJMP MAIN            
DLOOP:
  MOV A,TL1           
       MOV B, #10
       DIV AB
       MOV R2, B           
       MOV B, #10
       DIV AB     
       ORL A, #30H 
       MOV R4, A
       MOV A, B           
       ORL A, #30H
       MOV R3, A
       MOV  A, R2
       ORL A, #30H
       MOV R2, A
       RET

COMMAND:  mov dptr, #syntax 
    clr RS
    clr RW
loop:   clr a
    movc a, @a+dptr
    jz RETURN
    setb enable
    mov lb, a
    clr enable
    acall delay10ms
    inc dptr
    sjmp loop
  
syntax: db 38h,0fh,01h,0ch, 00h
RETURN:RET

delay10ms:   
         MOV   R5,#25
tt2:     MOV   R1,#154
TT1:   DJNZ  R1,TT1
        djnz r5, tt2
        RET
TRANSFER:  
      setb RS
      clr RW
      setb enable
      mov lb, R2
      clr enable
      acall delay10ms
  ret

TRANSFER1:  
        setb RS
        clr RW
          setb enable
          mov lb, R3
          clr enable
        acall delay10ms
  ret
TRANSFER2:  
        setb RS
        clr RW
        setb enable
        mov lb, R4
        clr enable
        acall delay10ms
        ret
END